主题：求助：如何打开一个文本文件，给每行加一个字符串？

比如

Dim strs As String = FileSys.ReadAllText("d:\test.txt")
strs = strs.Replace(vblf,"")
strs = strs.Replace(vbcr, "123456" & vbcrlf)

FileSys.WriteAllText("d:\test.txt", strs & "123456", false)

参考代码

Dim strs As String = FileSys.ReadAllText("d:\test.txt")
strs = strs.Replace(vblf,"")
Dim ary() As String = strs.split(vbcr)
For Each s As String In ary
    output.show(s)
Next

txt太大报错很正常。

改用一点一点读的方法，可以处理

Dim sr As new Io.StreamReader("d:\test.txt")
Dim line As String = sr.ReadLine()
Do While line IsNot Nothing
    line = sr.ReadLine()
    output.show(line)
Loop
sr.Close

第一行不读取

Dim sr As new Io.StreamReader("d:\test.txt")
Dim line As String = sr.ReadLine()

output.show(line)
Do While line IsNot Nothing
    line = sr.ReadLine()
    output.show(line)
Loop
sr.Close