VB读txt文本问题

[tld12]

我想让它每回只读txt文本里的一行数据，而不是全读，进行相关操作以后再读下一条该怎么办，才学VB两天，请大家帮帮忙

[hhjjhh009]

mid("数据",1,5)'代表从第一个字符截取到第五个字符

[fskjb01]

用line input语句不知道符合楼主的意识吗!!

[goosen]

Option Explicit

Private Sub Command1_Click()
Dim sFile As String
Open "d:\1.txt" For Input As #1    '打开你的文件
Do
  Line Input #1, sFile
  '在这里添加你的处理代码
MsgBox sFile                        '处理后一行一行读出
 Loop While Not (EOF(1))
 Close #1

End Sub

[hansuzhi]

使用FileSystemObject，TextStream
需要添加引用：Microsoft Scripting Runtime
代码如下：

Dim fso As New FileSystemObject
Dim fileName As String
Dim ts As TextStream
Dim strReadLine As String

fileName = "FilePath" ' 输入你的 txt文件路径
If fso.FileExists(fileName) Then
Set ts = fso.OpenTextFile(fileName, ForReading, False)
While Not ts.AtEndOfStream
strReadLine = ts.ReadLine
Debug.Print strReadLine
If Trim(strReadLine) <> "" Then
'这里可以添加你的处理代码
else
'可以使用下面语句跳过一行
ts.SkipLine
End If
Wend
set ts=nothing
End if
setfso=nothing