文件名为 num.txt 否则请修改以下两处 num.txt 为指定文件名
将以下代码保存为 .vbs 或 .vbe格式执行.
'复制以下
set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("num.txt",1)
str = file.readall
str = replace(str,vbcrlf," ") '将回车换行符转换为 " " (空格).
set file=fso.opentextfile("num.txt",2)
file.write str
保存运行.vbs或.vbe即可