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

xptool · 发表于 2012-7-13 23:36:11

如何把数据.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 · 发表于 2012-7-14 00:19:56

本帖最后由 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

复制代码

乱码 · 发表于 2012-7-14 10:54:19

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

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

xptool · 发表于 2012-7-14 12:01:54

bat ok thank you

poter · 发表于 2012-7-14 21:24:36

@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

复制代码

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

评分

评分