标题: 求一个在文本首行添加一行的批处理 [打印本页]
作者: youaoyi 时间: 2008-9-18 22:36 标题: 求一个在文本首行添加一行的批处理
求一个可以根据文本中第一行的“|”个数，
在首行新增“0|0|0|0|0|0|” 一行的批处理。
SED CHANGE GAWK 之类的命令都可以，只求速度。
样本： a.txt
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0 |
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35 |
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0 |
样本 a.txt 第一行有 7个“|”符，希望得到的结果如下：
0|0|0|0|0|0|0|
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0 |
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35 |
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0 |
在首行新增“0|0|0|0|0|0|” 一行的批处理。
SED CHANGE GAWK 之类的命令都可以，只求速度。
样本： a.txt
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0 |
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35 |
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0 |
样本 a.txt 第一行有 7个“|”符，希望得到的结果如下：
0|0|0|0|0|0|0|
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0 |
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35 |
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0 |
作者: dragonamd 时间: 2008-9-18 22:39
文本超过10MB的话还是GAWK快
作者: moniuming 时间: 2008-9-18 23:25
其它的工具不会,试试这个?
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('type 1.txt') do (
set "str=%%a"
goto :out
)
:out
if not "!str!"=="" (
set "var=!str:~,1!"
set "str=!str:~1!"
if "!var!"=="|" set /a n+=1
goto :out
)
for /l %%a in (1 1 %n%) do (>>tem_.txt set /p=0^|<nul)
>>tem_.txt echo.
copy tem_.txt/b+1.txt/b temp_.txt
del tem_.txt
echo move /y temp_.txt 1.txt
start temp_.txt作者: HAT 时间: 2008-9-18 23:26
@echo off
set /p str=<a.txt
set n=0
:begin
if "%str:~0,1%" equ "|" (
set /a n+=1
)
set "str=%str:~1%"
if "%str%" neq "" (
goto :begin
)
type nul>b.txt
for /l %%a in (1,1,%n%) do (
set /p t=0^|<nul>>b.txt
)
echo.>>b.txt
copy /b b.txt+a.txt c.txt>nul
move /y c.txt a.txt
del /q b.txt
作者: HAT 时间: 2008-9-18 23:31
只顾着和朋友聊天了，贴代码的速度比 moniuming 兄慢了1分钟，呵呵，思路很相似。
作者: youaoyi 时间: 2008-9-18 23:40
1、sed "1q" a.txt>new.txt
2、for /F "tokens=1,* delims=|" %i in (new.txt) do ？？？？
3、copy new.txt + a.txt
第二步需要将这个new.txt中只有一行的文本，“|”之外的都替换成0就可以了，
可是我不会写 。。。。
2、for /F "tokens=1,* delims=|" %i in (new.txt) do ？？？？
3、copy new.txt + a.txt
第二步需要将这个new.txt中只有一行的文本，“|”之外的都替换成0就可以了，
可是我不会写 。。。。
作者: HAT 时间: 2008-9-18 23:44
取第一行，不必用sed，用set即可。
替换字符不是有人帮你写出来了么？3、4楼的代码能理解否？
替换字符不是有人帮你写出来了么？3、4楼的代码能理解否？
作者: youaoyi 时间: 2008-9-18 23:53
嗯 明天睡醒再仔细想想 参悟一下 。。。
说实话，以我目前的水平，尚不能理解3、4楼的代码
我六楼的想法产生的原因是，如果样本是下面这样：
样本： B.txt （最后一位后面没有“|”分隔符）
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0
也能够生成与之对应的行：
0|0|0|0|0|0|0
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0
说实话，以我目前的水平，尚不能理解3、4楼的代码
我六楼的想法产生的原因是，如果样本是下面这样：
样本： B.txt （最后一位后面没有“|”分隔符）
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0
也能够生成与之对应的行：
0|0|0|0|0|0|0
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0
作者: pooronce 时间: 2008-9-19 00:05
gawk -F "|" "{if (FNR==1){for (i=1;i<NF;i++){printf(\"0^|\");}printf(\"\n\");}print}" a.txt
作者: pooronce 时间: 2008-9-19 00:23
样本B的：
gawk "BEGIN{FS=OFS=\"^|\"}FNR==1{tmp=$0;for (i=1;i<=NF;i++){$i=0}print;print tmp}FNR>1{print}" b.txt
作者: HAT 时间: 2008-9-19 16:43 标题: Re 4楼
关于统计|的个数，namejm 兄给出了另外一个思路（不必逐个判断字符）：
@echo off
set /p str=<a.txt
set n=0
:loop
set "str=%str:*|=%"
set /a n+=1
if "%str%" neq "" (
if "%str%" neq " " (
goto :loop
)
)
type nul>b.txt
for /l %%a in (1,1,%n%) do (
set /p t=0^|<nul>>b.txt
)
echo.>>b.txt
copy /b b.txt+a.txt c.txt>nul
move /y c.txt a.txt
del /q b.txt
作者: HAT 时间: 2008-9-19 17:35 标题: Re 11楼
没有理解清楚 namejm 兄的完整本意，更改如下（不必使用两层if）：
@echo off
set /p str=<a.txt
set "str=%str%|"
set n=0
:loop
set "str=%str:*|=%"
if "%str%" neq "" (
set /a n+=1
goto :loop
)
type nul>b.txt
for /l %%a in (1,1,%n%) do (
set /p t=0^|<nul>>b.txt
)
echo.>>b.txt
copy /b b.txt+a.txt c.txt>nul
move /y c.txt a.txt
del /q b.txt
作者: moniuming 时间: 2008-9-20 17:10
Originally posted by youaoyi at 2008-9-18 23:53:
我六楼的想法产生的原因是，如果样本是下面这样：
样本： B.txt （最后一位后面没有“|”分隔符）
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0
也能够生成与之对应的行：
0|0|0|0|0|0|0
1|0757 | 合同 | 其它 | 殷晏 | 200837015029392 | 4000.0
2|0752 | 合同 | 经济原因 | 葛宝 | 200000026251 | 10232.35
3|2810 | 合同 | 经济原因 | 王传 | 2002810000013079 | 479.0
@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('type 1.txt') do (
set "str=%%a"
goto :out
)
:out
if "!str:~-1!"==" " (
set "str=!str:~,-1!"&goto :out
) else (
if "!str:~-1!"==" " (set "str=!str:~,-1!"&goto :out)
)
if "!str:~-1!"=="|" (set "god=batch_fan")
:agn
for /f "tokens=1* delims=|" %%a in ("!str!") do (
set /a "n+=1"
if not "%%b"=="" (set "str=%%b"&goto :agn)
)
for /l %%a in (1 1 %n%) do (set "var=!var!0|")
if defined god (
>tem_.txt echo !var!
) else (
>tem_.txt echo !var:~0,-1!
)
copy tem_.txt/b+1.txt/b temp_.txt
del tem_.txt
move /y temp_.txt 1.txt
start 1.txt
msg %username% 这个应该就是你想要的结果了吧...