code:

---

Dim filTest, sTemp, iTemp
Set filTest = CreateObject("Scripting.FileSystemObject").OpenTextFile(Wscript.arguments.Item(0), 1)

wscript.echo time
iTemp=0
do
     sTemp=filTest.ReadLine
     iTemp=iTemp+1
loop until filTest.atendofstream
wscript.echo time
wscript.echo iTemp & " lines"
filTest.Close

---

Please run it like this:

CSCRIPT scriptfilename.VBS testtextfilename.TXT

If you use WScript (the default when you just run whatever.VBS, the wscript.echo commands become msgbox() and it affects the times...

I ran that same 1.3MB file through this script and got:

02:55:24
02:55:25
30446 lines

hmmm... someone better quickly tell me why I should keep using KiX

cj

P.S. Here is the KiX test script:
filesizetest.kix

code:

---

break on
cls

;
; OPEN file size limit test
;

while $filename="" "Filename: " gets $filename ? loop
? "@time" ?
open(1, $filename)
$i=0
do
	$=readline(1)
	$i=$i+1
until @error<>0

close(1)
? "@time"
? "$i lines" ?
beep
quit

---

[This message has been edited by cj (edited 15 February 2001).]