Tæl antal linier kode i et projekt

Forslag: Copy&Past din kode i Word :)

Hvis det kun er antal linjer du er ude efter, så findes findes den i Standard-toolbar.

[Copy/Paste]: Nixen... Jeg sidder med mange moduler, og vil gerne kunne kontrollere med jævne mellemrum.

[... standard toolbar]: Hvor?

Jeg kører ikke lige VB6, men jeg er ret sikker på, at man kan finde antal linjer en kode består af, et eller andet sted i programmet. Jeg kan bare ikke huske om det var i toolbaren eller om det var i status-linjen. Der står noget der ligner det her:

  Ln 123, Col 10

Det angiver kun din aktuelle position.

Ja ja, men hvis du placerer din tekst-markør helt nederst på siden kan du hurtig se, hvor mange linjer din kode fylder.

Du kan jo lave et andet lille program der tæller det for dig - et selvstændigt program, der åbner alle moduler og form-filer i dit VB-project og tæller karakterene. Det kan jo laves så du looper over alle filer i mappen, og så kan du bare køre det program med jævne mellemrum. Så kan du få lige præcis de oplysninger du har brug for, fx. tælle antallet af Sub's og function'er osv.

Jeg kan godt lave det for dig (alternativt give dig tips til hvordan du selv laver det), hvis det ellers er en lsøning du kan bruge.

Det program kan du jo så altid bruge, også når du bygger andre VB-applikationer fremover

Hej Martin!
Tænkte nok, at det blev noget i den stil. ;-)
Jeg vil gerne lave det selv, men tager også gerne imod nogle hints.

Vil du lave det som "læs en linie (streng) og undersøg for ord" eller som en "tegn for tegn" leksikalsk analyse?

/Mich

Det kommer meget an på hvad du vil undersøge - skal du bare have antal tegn, kan du jo smide hele filen ind i en variabel

  Dim Filnummer as integer
  Filnummer = FreeFile
  Open "C:\Min_fil.txt" For Input As #Filnummer
  Text1.Text = Input(LOF(1), 1)
  Close #Filnummer

Og så bruge Len på filen. Og deri kan du jo så også tælle antallet af "Sub" og "Function" og andre interessante ord (forudsat, at du ikek bruger ordene i dine kommentarer. Alternativt er den "hårde måde", fx. smide hver linie i filen ind i en plads i et array, og derefter undersøge arrayet post for post - starter en post med ', ved du så at du kan springe den over... Afhængigt af hvor grundigt du vil have din statistik, kan det jo blive et større program - men til gengæld et program, som jeg ville synes var sjovt at lave...

Sikke jeg vrøvler - skriver, at du kan smide hele filen ind i en variabel, og så giver jeg koden til at smide den ind i en text.text...  Og med "Og så bruge Len på filen" mener jeg naturligvis "Og så bruge Len på variablen" ;o)

Det lyder unægteligt, som om du er ude efter en lille "hyggeopgave".

Du skal være velkommen. Hvor mange point vil du have for det, hvis jeg har følgende ønsker:
* Tæl subs, procedurer og functions
* Tæl kodelinier (der ikke starter med en ')
* Extract kommentarer og "bundt" dem i de subs/procedurer/functions de hører til. (Jeg kommenterer kune med ' og ikke med REM)
* (Eventuelt:) Angiv kald, til hvad fra hvilke subs/procedurer/functions.

Resultatet kan gemmes i en text fil med angivelse af .BAS/.FRM tilhørsforhold.

Der voksede opgaven lige! ;-)

Det er ikke en haster, men hvis du har lyst, er du naturligvis meget velkommen. På sigt ville jeg nok selv prøve at lave noget sådant, men det er lige det med tiden.

Det samme her - det er lige det med tiden. Såå - det bliver ikke lige nu, for jeg har travlt med alt for mange andre tind :o(

Meeen det er hurtigt gjort - læs linierne i filen ind i et array (se fx. www.eksperten.dk/spm/303446), og arbejd herefter KUN med arrayet. Sorter alle blanke linier og kommentar-linier ud med et loop igennem arrayets poster. Herefter tælles subs og functions. Kan du leve med det, er det lavet på 3 minutter, og det skal jeg gerne gøre - at bundte kommentarer sammen og tælle kald, kommer nok til at overstige tidsplanen ;o)

Det er helt i orden. Jeg ser selv på det ved lejlighed.
Tak for dine input. :oD