Hur kan jag enkelt räkna antal rader i en textfil och lagra det i en variabel. <code>
Räkna antal rader i en textfil
Svara
Sv: Räkna antal rader i en textfil
Svara
Dim NrOfLines As Long, TextLine As String
Open "fil.txt" For Input As #1
Do Until EOF(1)
Line Input #1, TextLine
NrOfLines = NrOfLines +1
Loop
Close #1
Msgbox "Antal rader: " & NrOfLines
</code>