Anybody Got a Snippet for Counting the Numer of Times Looped

[edauthier]

Does anyone have code for counting the number of times you've looped in a script until you've reached ##EOF##? Not reading the values, but the loops thru until all the lines are accounted for?

Code: Select all

Let>k=1
Label>start
ReadLn>c:\temp\test.txt,k,line
If>line=##EOF##,finish
Message>line
Let>k=k+1
Goto>start
Label>finish

[edauthier]

Posted my question a little too early, actually found an old vb script of mine that I can tie in. I tested, works nicely.

But if you have straight Macro commands I would appreciate you posting iust the same.

BTW if you change:
Lines = (cstr(ubound(acontents)))+1 to
Lines = strcontents
it will return the values in your file.

Take Care, Ed

Code: Select all

VBSTART

Function Lines
const filename="c:\1\data.txt"
set fso=createobject("scripting.filesystemobject")
set ofile=fso.opentextfile(filename)
strcontents=ofile.readall
ofile.close
set ofile=nothing
set fso=nothing
acontents=split(strcontents,vbcrlf)
'wscript.echo "LOCATION : " & cstr(ubound(acontents)+1)

Lines = (cstr(ubound(acontents)))+1
End Function

VBEND

VBEval>Lines,line_info
MessageModal>line_info

[pgriffin]

You have your own answer in your first post. The number of loops through your file until EOF will be contained in the variable k.

No VBScript required.

[edauthier]

Thanks Paul,
Actually, the k return will always give you +1 in the return value. Which (as you noted) is the number of loops. However, the VB Script will return exact number of entries in the text file, which I was really trying to achieve.

Thnaks again.

[pgriffin]

ok, so K-1 should do the trick. Still VBScript is not required for counting records.

[edauthier]

Like shooting fish in a barrel for ya eh.

Give me a hand here instead:
http://www.mjtnet.com/forum/viewtopic.php?t=4051

[JRL]

Actually, if you put the "Let>k=k+1" at the top of the code you won't even need to subtract to have k=the exact number of lines

Let>k=0
Label>start
Let>k=k+1
ReadLn>c:\temp\test.txt,k,line
If>line=##EOF##,finish
Message>line
Goto>start
Label>finish

[edauthier]

Yeah, the original post is straight from the help file.