[求助]关于读取文件中的数据
我要读取一个文件第三行中的第二个数据，语句该如何写？其中，同一行的每一个数据之间是用空格隔开的。
谢谢各位大侠:)
可以用fso的ReadLine读取第三行...
然后用Split来分隔开数据....读取下标第二个的就行..
2006-11-29 21:21
2006-11-30 10:04
给你一段代码，使用 TextStream 对象，用SkipLine来跳过一行。
[CODE]
Public Function ReadTextFromLine(ByVal FileName As String, ByVal lLine As Long) As String
Dim FS As New Scripting.FileSystemObject
Dim TS As Scripting.TextStream
Dim i As Long
'打开文件
Set TS = FS.OpenTextFile(FileName, ForReading, False, TristateUseDefault)
'跳过制定和行
For i = 1 To lLine - 1
TS.SkipLine
Next i
'读取该行的内容
ReadTextFromLine = TS.ReadLine
End Function
[/CODE]
FileName 文本文件的路径
lLine 要读取的行数
读出完后用Split函数分解
你也可以用API函数来读取指定行，SendMessage 函数，网上也有好多例子，自己多留意下吧~~~~
[此贴子已经被作者于2006-12-1 16:29:26编辑过]
2006-12-01 16:27
2006-12-02 15:38
