本帖最后由 CrLf 于 2012-7-14 11:37 编辑
bat:- @echo off
- (for /f "tokens=1-3delims=* " %%a in (数据.txt) do echo %%a&echo %%b&echo %%c)>$
- move /y $ 数据.txt
复制代码 vbs:- Set FSO = CreateObject("Scripting.FileSystemObject")
-
- Set file = FSO.OpenTextFile("数据.txt",1)
- f = file.ReadAll
- file.Close
-
- Set file = FSO.OpenTextFile("数据.txt",2)
- file.Write Replace(f,"*",vbNewLine)
- file.Close
复制代码
|