将文本.txt竖向排列换成横向排列

文件名为 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即可