主题：TEXT保存出现二行一行保存TEXT1信息`第二行是空白`怎么除去第二行空白！
yzai
[专家分：20] 发布于 2009-10-03 05:57:00
TEXT保存出现二行一行保存TEXT1信息`第二行是空白`怎么除去第二行空白！
Open App.Path & "\版本说明.txt" For append As #1
Print #1, replace(text1.text,vbcrlf,"") '这里除去了回车键怎么保存到“版本说明.txt”下面还有个回车，不知道是回车还是什么```总之在“版本说明.txt”内容里有二行````一行是保存TEXT1的内容`第二行就是空白的```请问怎么才不让“版本说明.txt”里面显示二行``（也就是说不显示第二行的空白）
Close #1 '关闭打开的文件
回复列表 （共7个回复）
沙发
一江秋水 [专家分：9680] 发布于 2009-10-03 07:17:00
最后一个回车换行符是VB自动加的，没办法去掉
板凳
yzai [专家分：20] 发布于 2009-10-03 16:28:00
[quote]最后一个回车换行符是VB自动加的，没办法去掉[/quote]
没办法去掉那怎么搞吖```
我读取的时候就会把那个回车符读进去````
3 楼
一江秋水 [专家分：9680] 发布于 2009-10-03 17:52:00
你可以读取出来以后再去掉啊：
Do While Right$(St, 2) = Chr(13) & Chr(10): St = Left$(St, Len(St) - 2): Loop
假设你读取的字符串在变量St中
4 楼
bcahzvip [专家分：6040] 发布于 2009-10-04 00:36:00
dim v
v = split(text1.text,vbcrlf)
Print #1, join(v,vbnullstring)
5 楼
wwc7654321 [专家分：1590] 发布于 2009-10-08 11:47:00
之前好像有解决的了,print 后加个分号
[url=http://bbs.pfan.cn/post-306578.html]怎么让写入文件时不换行？？[/url]
6 楼
zcxlhx [专家分：720] 发布于 2009-10-14 14:52:00
就是用print和write的区别了，一个有回车，一个没有回车，你自己试一下。
7 楼
tanchuhan [专家分：15140] 发布于 2009-10-15 00:32:00
[quote]之前好像有解决的了,print 后加个分号
[url=http://bbs.pfan.cn/post-306578.html]怎么让写入文件时不换行？？[/url][/quote]
正解
参见: [url]http://www.fzs8.net/visual_basic/2007-06-17/6556.html[/url]
[quote]
charpos 可选。指定下个字符的插入点。使用分号 (;) 直接将插入点定位在上一个被显示的字符之后。使用 Tab(n) 将插入点定位在绝对列号上。使用无参数的 Tab 将插入点定位在下一个打印区的起始位置。如果省略 charpos，则在下一行打印下一字符。
[/quote]
我来回复
您所在位置：