中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-06-17 10:11
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 求一个在文本首行添加一行的批处理 查看 1,310 回复 12
楼 主 求一个在文本首行添加一行的批处理 发表于 2008-09-18 22:36 ·  中国 山东 济宁 联通
初级用户
★★
积分 154
发帖 67
注册 2007-10-31 13:18
UID 101283
性别 男
状态 离线
求一个可以根据文本中第一行的“|”个数,

在首行新增“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 |
2 发表于 2008-09-18 22:39 ·  中国 江苏 苏州 太仓市 电信
中级用户
★★
积分 209
发帖 100
注册 2008-08-01 02:53
UID 122532
性别 男
状态 离线
文本超过10MB的话还是GAWK快
3 发表于 2008-09-18 23:25 ·  中国 广东 广州 电信
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
UID 103929
性别 男
来自 广西
状态 离线
其它的工具不会,试试这个?
@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
4 发表于 2008-09-18 23:26 ·  中国 重庆 九龙坡区 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
UID 89899
性别 男
状态 离线
@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
5 发表于 2008-09-18 23:31 ·  中国 重庆 九龙坡区 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
UID 89899
性别 男
状态 离线
只顾着和朋友聊天了,贴代码的速度比 moniuming 兄慢了1分钟,呵呵,思路很相似。
6 发表于 2008-09-18 23:40 ·  中国 山东 济宁 联通
初级用户
★★
积分 154
发帖 67
注册 2007-10-31 13:18
UID 101283
性别 男
状态 离线
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就可以了,

可是我不会写 。。。。
7 发表于 2008-09-18 23:44 ·  中国 重庆 九龙坡区 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
UID 89899
性别 男
状态 离线
取第一行,不必用sed,用set即可。
替换字符不是有人帮你写出来了么?3、4楼的代码能理解否?
8 发表于 2008-09-18 23:53 ·  中国 山东 济宁 联通
初级用户
★★
积分 154
发帖 67
注册 2007-10-31 13:18
UID 101283
性别 男
状态 离线
嗯 明天睡醒再仔细想想 参悟一下 。。。

说实话,以我目前的水平,尚不能理解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
9 发表于 2008-09-19 00:05 ·  中国 北京 科技网
中级用户
★★
积分 484
发帖 250
注册 2007-06-05 23:33
UID 90372
性别 男
状态 离线

gawk -F "|" "{if (FNR==1){for (i=1;i<NF;i++){printf(\"0^|\");}printf(\"\n\");}print}" a.txt
10 发表于 2008-09-19 00:23 ·  中国 北京 科技网
中级用户
★★
积分 484
发帖 250
注册 2007-06-05 23:33
UID 90372
性别 男
状态 离线
样本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
11 Re 4楼 发表于 2008-09-19 16:43 ·  美国 惠普HP
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
UID 89899
性别 男
状态 离线
关于统计|的个数,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
12 Re 11楼 发表于 2008-09-19 17:35 ·  美国 惠普HP
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
UID 89899
性别 男
状态 离线
没有理解清楚 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
13 发表于 2008-09-20 17:10 ·  中国 广东 广州 电信
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
UID 103929
性别 男
来自 广西
状态 离线
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% 这个应该就是你想要的结果了吧...
论坛跳转: