十大记录和书写线

Question

如何编写新的行数组？我怎样才能阅读前十大记录？

Dim arrFileLines()
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\FSO\ScriptLog.txt", 1)
Do Until objFile.AtEndOfStream
 Redim Preserve arrFileLines(i)
 arrFileLines(i) = objFile.ReadLine
 i = i + 1
Loop
objFile.Close
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
 Wscript.Echo arrFileLines(l)
Next

感谢答案

Answer 1

Dim FileContents, arrFileLines
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\FSO\ScriptLog.txt", 1)
FileContents = objFile.ReadAll()
objFile.Close()
Set objFile = Nothing
arrFileLines = Split(FileContents, vbCrLf)

Dim i, j
For i = LBound(arrFileLines) To UBound(arrFileLines)
   Response.Write(arrFileLines(i))
   j = j + 1
   If (j > 10) Then
      Exit For
   End If
Next