如何逐行读文本文件的内容？

[aalan]

请教一下：
如何逐行读文本文件的内容？能给段例子将不胜感激

[zhoumins]

System.IO.StreamReader stream=System.IO.File.OpenText(@"d:\csdn.txt");
string str;
while((str=stream.ReadLine())!=null)
{
Response.Write(str+"<br>");
}

[myhgyp]

Option Explicit
'引用Microsoft Scripting Runtime
Private Sub Form_Load()
Dim oFSO As FileSystemObject
Dim oTextStream As TextStream
Dim oFirstLine As String
Dim i, LineNum As Integer
Set oFSO = CreateObject("scripting.filesystemobject")
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForAppending, False, TristateFalse)
oTextStream.Write (vbCrLf & "这是一个新增的测试行")

'以下为删除某一行，如第二行
oTextStream.Close
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForReading, False, TristateFalse)
Dim str(1000) As String '这里根据实际情况可增大或缩小数组的维数
i = 0
Do While oTextStream.AtEndOfLine <> True
str(i) = oTextStream.ReadLine '读取一行
i = i + 1
Loop
LineNum = i
oTextStream.Close
Set oTextStream = oFSO.OpenTextFile("c:\aa.txt", ForWriting, False, TristateFalse)
oTextStream.Write str(0)
For i = 1 To LineNum - 1
If i <> 1 Then
oTextStream.Write vbCrLf & str(i)
End If
Next i
oTextStream.Close
Set oFSO = Nothing
End Sub

[VBToy]

fn="C:\test.txt"
dim lineStr as string, strFile as string
Open Fn For Input As #1
Do While Not EOF(1)
Line Input #1, lineStr
strFile = strFile & lineStr
DoEvents
Loop
Close #1

[conrad_wan]

studying。。。

[yinweihong]

http://community.csdn.net/Expert/topic/4235/4235585.xml?temp=.6353418

[aalan]

谢谢，用VBToy的方法解决