$array[$index] = readline(1)

while @ERROR = 0
 $index = $index + 1
 if $index > $KEEP
  $RollOver = 1
  $index = 0
 endif
 $array[$index] = readline(1)
loop

if $RollOver = 0
 for $i = 0 to $index - 1
  ? $array[$i]
 next
else
 for $i = $index + 1 to $keep
  ? $array[$i]
 next
 for $i = 0 to $index - 1
  ? $array[$i]
 next 
endif

 
Function Tail($file, $last)
	Dim $oExec, $Output,$out[$last]
	$oExec = CreateObject("WScript.Shell").Exec('%comspec% /c type "' + $file + '"')
	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
	$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll
	$output=Split(Join(Split($Output,CHR(13)),''),CHR(10))
        for $i=0 to $last
          $out[$i]=$output[ubound($output)+$i-$last]
        next
        $tail=$out    
	Exit($oExec.ExitCode)
EndFunction
 

Quote:

---

If COM is allowed, then if the file is 100K (assuming ANSI 1 byte/char.) then there are ~100,000 characters in the file. If you just want the last 10K of the file or so, you can use the TextStream object from the scripting library. It contains a 'Skip' method which takes a number of characters to skip (90,000 in this example). Then just call ReadAll and you'll get the rest of the text from the file.

---