以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助：如何打开一个文本文件，给每行加一个字符串？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=79448)
--  作者：colink
--  发布时间：2015/12/31 16:55:00
--  求助：如何打开一个文本文件，给每行加一个字符串？
求助：如何打开一个文本文件，给每行后面加一个字符串？
--  作者：大红袍
--  发布时间：2015/12/31 17:07:00
--  

比如

 

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)
--  作者：colink
--  发布时间：2016/1/2 12:26:00
--  
如果我要根据文本文件每行的内容先做判断，再决定是否添加怎么弄？
--  作者：大红袍
--  发布时间：2016/1/3 22:40:00
--  

参考代码

 

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
--  作者：colink
--  发布时间：2016/1/4 11:48:00
--  
如果我要根据文本文件每行的内容先做判断，再决定是否添加怎么弄？
--  作者：大红袍
--  发布时间：2016/1/4 11:56:00
--  
4楼的代码就是，在循环里面判断每个s
--  作者：colink
--  发布时间：2016/1/5 16:04:00
--  
我用这些代码去弄，如果数据量较大时会报“引发类型为“System.OutOfMemoryException”的异常。”错误，数据量少时没问题，不知道还有没有别的代码？
--  作者：大红袍
--  发布时间：2016/1/5 16:08:00
--  

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

 

 
--  作者：黑苹果
--  发布时间：2016/1/21 18:42:00
--  

第一行不读取
--  作者：大红袍
--  发布时间：2016/1/21 18:43:00
--  

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