- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 检测txt文档里面所有空格和换行，删除空格、换行，然后保存，怎么处理？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123594)
-- 发布时间：2018/8/18 20:38:00
-- 检测txt文档里面所有空格和换行，删除空格、换行，然后保存，怎么处理？
如题：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:107224.txt |
-- 发布时间：2018/8/19 9:06:00
--
dim str as string = ReadAllText
str = str.replace(" ","").replace(vbcr,"").replace(vblf,"")
FileSys.WriteAllText("C:\\data\\Table.Txt", str , True)
-- 发布时间：2018/8/19 11:30:00
--
mark
-- 发布时间：2018/8/27 18:48:00
--
窗口插入一个按钮后，输入如下代码，将txt改为utf-8，测试成功
Dim str As String = FileSys.ReadAllText("d:\\123.txt")
str = str.replace(" ","").replace(vbcr,"").replace(vblf,"")
FileSys.WriteAllText("d:\\123.Txt", str , True)
新问题：
如何插入几个回车后，再保存呢？
-- 发布时间：2018/8/27 20:27:00
--
Dim str As String = FileSys.ReadAllText("d:\\123.txt")
str = str.replace(" ","").replace(vbcr,"").replace(vblf,"")
str = vbcrlf & vbcrlf & str
FileSys.WriteAllText("d:\\123.Txt", str , True)