[文本处理] 批处理如何把文本内容转换为制定格式？

xptool

如何把数据.txt中的内容

2705*1638*3827
2749*1627*3805
0549*2738*0527
1638*0549*1649

转换成
2705
1638
3827
2749
1627
3805
0549
2738
0527
1638
0549
1649
不需要生成新文件 在原有基础上改就行 谢谢朋友

CrLf

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
复制代码

乱码

bat：vbs：
CrLf 发表于 2012-7-14 00:19

楼上大大的代码非常清晰整洁，但是貌似粗心疏忽了一个细节、、
第7行应该 Set file = FSO.OpenTextFile("数据.txt",2) '2表示写入

xptool

bat ok thank you

poter

@echo off
setlocal enableDelayedExpansion
for /f "tokens=1-3 delims=*" %%i in (数据.txt) do (
	set str=%%i %%j %%k
	for %%a in (!str!) do (
		echo %%a>>tmp.txt
	)
)
del 数据.txt
ren tmp.txt 数据.txt
复制代码