用VBS把很简单的
批处理有点够呛 对A.TXT内容限制太多
把下面内存保存为VBS后缀运行
a=createobject("scripting.filesystemobject").opentextfile("a.txt").readall
for i=1 to len(a)
strI=mid(a,i,1)
ST=ST & vbcrlf & STri
NEXT
set fso=CreateObject("Scripting.FileSystemObject")
set a = fso.OpenTextFile("b.txt", 8, true)
a.writeline(st)