中国DOS联盟

　　经常在群里讨论批处理，有些代码是直接发出来的，复制下来保存到文件中去，发现所有行的内容都挤在同一行上，有回车的地方被讨厌的小黑块占据，有多少回车就有多少黑块，想测试代码，一般得手工断行，十分麻烦，难道我们就只能忍受这样的折磨吗？

　　今天在群里，被别人问起如何用批处理来解决这个问题，在测试过程中，无意间发现了一条十分管用的语句，发出来和大家共享：
@echo off more test.txt>test.cmd
　　使用方法：把这个代码保存为非test.cmd的批处理文件，把从QQ上复制下来的代码保存在test.txt文件中，运行以上代码，然后，打开test.cmd查看，发现了什么？呵呵，代码是不是被还原了？

　　推而广之，只要是从QQ上复制下来的内容，都可以用这个代码来还原。

　　别问我是什么原理，因为，我也不知道^_^，但是，有篇文章值得参考，请看：如何提取不同行上的内容

用ue打开就可以了嘛。或者保存成rtf文件里复制下……再用txt看就没了。

用写字板打开txt文件直接保存一次就OK了

不错的东东，顶上去！
解决不少实际问题...

因为Windows 的回车是 0x0D0A 而QQ里只用了 0x0D 。more会自动辨认编码和回车。

想问一下electronixtar，在VBS里怎么表示QQ里的 0x0D ？

chr(13)

通常回车和换行是连在一起用的。
如果能看到黑块说明只有回车符而无换行符，
其实只要将‘回车符’替换为‘回车+换行’就可以了。
将下面的代码保存为vbs文件，将文件拖到这个vbs文件上生成的新文件就没黑块了
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Args = WScript.Arguments
Set ReadFile = FSO.OpenTextFile(Args(0), 1)
Str=ReadFile.ReadAll
ReadFile.Close
Str=Replace(Str,chr(13),chr(13)&chr(10))
Set NewFile = FSO.CreateTextFile(FSO.BuildPath(FSO.GetParentFolderName(Args(0)),"newfile.txt"), True)
NewFile.Write Str
NewFile.Close
Set FSO = Nothing
代码中的newfile.txt是你要生成的新文件名！

呵呵 我这里网速太慢 刷了好久 electronixtar兄已有说明了，学习了^_^

[ Last edited by baomaboy on 2007-3-10 at 11:11 AM ]

replace("内容",chr(13),vbcrlf)为什么不能替换呢？

8楼的我试了，还是不行....

UNIX系统回车编码和WINDOWS不太一样

那么请问下 我有一个文件夹的文本文件，该如何批量转换为WINDOWS格式呢？

不错啊

用替换也行..换回回车OK