Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
how to find # of lines in txt file
- Thread starter THEMAN101
- Start date
TheBigBasicQ
Programmer
Simple...
OPEN "TEXT1.TXT" FOR INPUT AS #1
DO
LINE INPUT #1, A$
'IF YOU DON'T WANT TO COUNT A BLANK LINE THEN UNREM THE
'CODE BELOW.
'IF LTRIM$(RTRIM$(A$))<>"" THEN
C0UNT% = COUNT% + 1
'END IF
LOOP UNTIL EOF(1)
PRINT "NO. OF LINES IN THIS TEXT FILE IS " + LTRIM$(STR$(COUNT%))
CLOSE #1
OPEN "TEXT1.TXT" FOR INPUT AS #1
DO
LINE INPUT #1, A$
'IF YOU DON'T WANT TO COUNT A BLANK LINE THEN UNREM THE
'CODE BELOW.
'IF LTRIM$(RTRIM$(A$))<>"" THEN
C0UNT% = COUNT% + 1
'END IF
LOOP UNTIL EOF(1)
PRINT "NO. OF LINES IN THIS TEXT FILE IS " + LTRIM$(STR$(COUNT%))
CLOSE #1
- Status
Similar threads
- Question