以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 文本文件，每行之前插入单引号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79670)
--  作者：lsy
--  发布时间：2016/1/7 9:47:00
--  [求助] 文本文件，每行之前插入单引号
有个批处理文件，想在每行文本的前面加上单引号

@echo off 
for /f %%i in (大段文本.txt) do echo \'%%i\'>>大段文本1.txt
echo "单引号添加完毕"
pause

结果不是想要的。
--  作者：大红袍
--  发布时间：2016/1/7 9:49: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
--  作者：lsy
--  发布时间：2016/1/7 10:15:00
--  
这样只怕处理大量文本的时候，速度跟不上。
--  作者：大红袍
--  发布时间：2016/1/7 10:42:00
--  

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

 

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