|
函数功能:读取文本文件指定行
问题描述:对于操作的这个html我一直是按照文本文件格式写入的,但是使用这个函数读取的时候:读取前25行都正常,读取25行以后就越界了
我用myfile.readall查看了一下,只读取到了25行之前的文本,好奇怪,这是为什么啊
小弟先谢过各位大侠啦
HTML请保存至D盘
调用函数和函数代码如下:
MsgBox ReadLine("d:\report.html", 28)
Function ReadLine(pathway, rowcount)
Dim fso,myfile,i,flag
flag = 1
Set fso=CreateObject("scripting.FileSystemObject")
If fso.FileExists(pathway) then
Set myfile = fso.openTextFile(pathway,1,false)
Else
flag = 0
End If
For i=1 to rowcount-1
If Not myfile.AtEndOfLine Then
myfile.SkipLine
tempp = myfile.Line
End If
Next
If flag = 1 Then
If Not myfile.AtEndOfLine Then
ReadLine = myfile.ReadLine
Else
ReadLine = "overflow"
'ReadLine = myfile.ReadLine
End If
myfile.close
Else
ReadLine = "file not exist"
End If
End Function |
|