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):
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
:-X
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
s = File.Load(.Dir &/ .Name &/ ".src/nomefile.class")
Francamente non capisco quale sia l'utilità pratica di una tale funzione, ma nel campo delle :coder: , 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).
:ciao: