Board logo

标题: 求一个在文本首行添加一行的批处理 [打印本页]

作者: 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 |
作者: dragonamd     时间: 2008-9-18 22:39
文本超过10MB的话还是GAWK快
作者: moniuming     时间: 2008-9-18 23:25
其它的工具不会,试试这个?
CODE:  [Copy to clipboard]
@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
CODE:  [Copy to clipboard]
@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就可以了,

可是我不会写 。。。。
作者: HAT     时间: 2008-9-18 23:44
取第一行,不必用sed,用set即可。
替换字符不是有人帮你写出来了么?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
作者: pooronce     时间: 2008-9-19 00:05
CODE:  [Copy to clipboard]
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的:
CODE:  [Copy to clipboard]
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 兄给出了另外一个思路(不必逐个判断字符):
CODE:  [Copy to clipboard]
@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):
CODE:  [Copy to clipboard]
@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:

  Quote:
我六楼的想法产生的原因是,如果样本是下面这样:

样本:  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

CODE:  [Copy to clipboard]
@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%    这个应该就是你想要的结果了吧...





欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5