Contare le righe di codice di un progetto Gambas

Da Gambas-it.org - Wikipedia.

E' possibile contare il numero delle righe di codice, delle quali è composto un progetto Gambas, leggendo all'interno dei file che le contengono.


Facciamo il semplice esempio di voler conoscere di quante righe è formato il progetto stesso per leggere il numero delle proprie righe di codice:

Public Sub Button1_Click()  
 
 Dim s As String  
 Dim ss As String[]  
 
 With Application  
   s = File.Load(.Dir &/ .Name &/ ".src/FMain.class")  
 End With  
 
 ss = Split(s, "\n")  
 
  Print ss.Count  
 
End

Se volessimo conoscere il numero delle righe che compongono il codice di un altro progetto, dovremmo - ovviamente - indicare il percorso del file, o dei file se composto da più Classi e Moduli, interessato.