主题：[求助] 文本文件，每行之前插入单引号

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

大文件的，就一行一行读取，然后一行一行写回

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