Function ReadLineTextFile
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
MyFile.WriteLine "Hello world!"
MyFile.WriteLine "The quick brown fox"
MyFile.Close
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
ReadLineTextFile = MyFile.ReadLine ' Returns "Hello world!"
End Function
上面这个函数只能读取第一项的值,请问我怎么指定到第二项的值?
Const ForReading = 1, ForWriting = 2
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
MyFile.WriteLine "Hello world!"
MyFile.WriteLine "The quick brown fox"
MyFile.Close
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading)
ReadLineTextFile = MyFile.ReadLine ' Returns "Hello world!"
End Function
上面这个函数只能读取第一项的值,请问我怎么指定到第二项的值?
哎,长分怎么这么慢啊
Public Function ReadLine(FileName As String, LineNumber As Long) As String
'读FileName中第LineNumber行的内容,使用FSO
On Error GoTo ErrHandler
Dim FSO As New FileSystemObject
Dim FStr As Scripting.TextStream
Dim ret As Long
Dim lCount As Long
If FSO.FileExists(FileName) Then
Set FStr = FSO.OpenTextFile(FileName, ForReading)
Do While Not FStr.AtEndOfStream
lCount = lCount + 1 '滑到行LineNumber
If lCount = LineNumber Then
ReadLine = FStr.ReadLine
Exit Do
End If
FStr.SkipLine
Loop
FStr.Close
Set FStr = Nothing
Set FSO = Nothing
End If
Exit Function
ErrHandler:
MsgBox Err.Description, vbOKOnly + vbExclamation, Err.Number & "-" & Err.Source
End Function