Contare righe di codice di un progetto

[md9327]

...dici? 

[vuott]

Con Gambas 3 si potrebbe ipotizzare una cosa di questo genere (facciamo il caso della sola classe principale FMain in questo esempio del progetto stesso che conta le righe del proprio codice):

Codice: gambas [Seleziona]

Public Sub Button1_Click()

 Dim s As String
 Dim ss As String[]

     s = File.Load(Application.Path &/ ".src/FMain.class")

   ss = Split(s, "\n")

    Print ss.Count

End

    

[Picavbg]

Bravissimo vuott!
Purtroppo sto attraversando un periodo di scarsa disponibilità di tempo. Non appena potrò lo proverò, anche perché vorrei complicare l'esempio tuo aggiungendovi una seconda classe, sì da ottenere una seconda numerazione (globale). Banalmente sembrerebbe possibile ripetendo l'istruzione

Codice: [Seleziona]

s = File.Load(.Dir &/ .Name &/ ".src/nomefile.class")

per tutte le classi pesenti nel programma, ma occorrerebbe renderlo dinamico creando, se possibile, un ciclo iterativo automatico che scorra tutti i file.class presenti e calcoli il totale n° di righe per ciascuna classe restituendolo alla classe dove risiede la funzione di contatore-righe.
Francamente non capisco quale sia l'utilità pratica di una tale funzione, ma nel campo delle  , tanto per fare, tutto è lecito; sicuramente, però, sempre formativo ai fini della crescita conoscitiva della programmazione e dell'ambiente in cui essa venga applicata (gambas o altro).
 

[vuott]

Francamente non capisco quale sia l'utilità pratica di una tale funzione....

Bisognerebbe domandarlo a Ceskho che inserì questa misteriosa discussione. 

Per me è stata utile come esercitazione didattica.