中国DOS联盟

有三个文件如下：
a.txt

5411 10000  1998-11-24 1999-11-24 12730101

5416 15600  2009-11-13 2011-11-12 12540227

5422 130000  2010-6-24 2012-6-23 12510202

5426 70000  2010-7-13 2020-7-13 12540214

5427 20000  2010-6-24 2011-6-23 12460001

5428 30000  2008-4-30 2010-4-28 12460001

5429 18000  2009-8-23 2010-8-22 12460001

5430 4800  2003-7-11 2005-7-12 12810001

5431 30000  2010-3-22 2011-3-21 12310001

5432 9645  2010-2-13 2009-11-14 12750201

5433 148217  2010-5-18 2020-5-18 12540214

5434 1000  2003-12-16 2004-12-16 12760001

5435 1300  2004-5-18 2004-11-18 12710001

5436 180000  2010-6-16 2012-6-15 12510202

5437 10000  2009-11-19 2010-11-18 12460001

5438 4000  2010-1-7 2011-1-6 12450301

5439 20700  2009-9-28 2010-9-27 12460001

b.txt

5411 公司部

5416 保宁

5422 城关

5426 沙溪

5427 石子

5428 江南

5429 垭口

5430 裕华

5431 田公

5432 治平

5433 白塔

5434 彭城

5435 双龙

5436 七里

5437 柏垭

5438 飞凤

5439 天林

c.txt

 

123 正常

124 正常

125 正常

126 逾期

127 呆滞

128 呆帐

我想用sed或gawk命令将a.txt文件中第一列（以空格作分隔符）复制到第二列，再将此列数据对应b.txt文件中的第一列，替换成b.txt中的第二列；
同时将将a.txt文件中的第五列中的前三位数据复制到第五列前，再将此列数据（复制后的数据列）对应c.txt文件中的第一列，替换成c.txt中的第二列。
替换后文件内容如下：

5411 公司部 10000  1998-11-24 1999-11-24 呆滞 12730101

5416 保宁 15600  2009-11-13 2011-11-12 正常 12540227

5422 城关 130000  2010-6-24 2012-6-23 正常 12510202

5426 沙溪 70000  2010-7-13 2020-7-13 正常 12540214

5427 石子 20000  2010-6-24 2011-6-23 正常 12460001

5428 江南 30000  2008-4-30 2010-4-28 正常 12460001

5429 垭口 18000  2009-8-23 2010-8-22 正常 12460001

5430 裕华 4800  2003-7-11 2005-7-12 呆帐 12810001

5431 田公 30000  2010-3-22 2011-3-21 正常 12310001

5432 治平 9645  2010-2-13 2009-11-14 呆滞 12750201

5433 白塔 148217  2010-5-18 2020-5-18 正常 12540214

5434 彭城 1000  2003-12-16 2004-12-16 呆滞 12760001

5435 双龙 1300  2004-5-18 2004-11-18 呆滞 12710001

5436 七里 180000  2010-6-16 2012-6-15 正常 12510202

5437 柏垭 10000  2009-11-19 2010-11-18 正常 12460001

5438 飞凤 4000  2010-1-7 2011-1-6 正常 12450301

5439 天林 20700  2009-9-28 2010-9-27 正常 12460001

求大家相助，写一批处理达到上述结果。要求：使用sed或gawk。

是这个不可能实现，还是高人暂时都不在？

不难
可能是这个论坛会gawk的人不多

不难
可能是现在积极的人不多

那些命令我都不会，也没打算学。
还是上批处理了

@echo off

setlocal enabledelayedexpansion

for /f "tokens=1,2" %%a in (b.txt) do (set b_%%a=%%b)

for /f "tokens=1,2" %%a in (c.txt) do (set c_%%a=%%b)



for /f "tokens=*" %%a in (a.txt) do (

   call :next %%a

)

pause

exit



:next

set tmpstr=%5

set tmpstr=%tmpstr:~0,3%

echo %1 !b_%1! %2 %3 %4 !c_%tmpstr%! %5

5411 公司部 10000 1998-11-24 1999-11-24 呆滞 12730101
5416 保宁 15600 2009-11-13 2011-11-12 正常 12540227
5422 城关 130000 2010-6-24 2012-6-23 正常 12510202
5426 沙溪 70000 2010-7-13 2020-7-13 正常 12540214
5427 石子 20000 2010-6-24 2011-6-23 正常 12460001
5428 江南 30000 2008-4-30 2010-4-28 正常 12460001
5429 垭口 18000 2009-8-23 2010-8-22 正常 12460001
5430 裕华 4800 2003-7-11 2005-7-12 呆帐 12810001
5431 田公 30000 2010-3-22 2011-3-21 正常 12310001
5432 治平 9645 2010-2-13 2009-11-14 呆滞 12750201
5433 白塔 148217 2010-5-18 2020-5-18 正常 12540214
5434 彭城 1000 2003-12-16 2004-12-16 呆滞 12760001
5435 双龙 1300 2004-5-18 2004-11-18 呆滞 12710001
5436 七里 180000 2010-6-16 2012-6-15 正常 12510202
5437 柏垭 10000 2009-11-19 2010-11-18 正常 12460001
5438 飞凤 4000 2010-1-7 2011-1-6 正常 12450301
5439 天林 20700 2009-9-28 2010-9-27 正常 12460001

===========================
call 消耗大
换一下了

@echo off

setlocal enabledelayedexpansion

for /f "tokens=1,2" %%a in (b.txt) do (set b_%%a=%%b)

for /f "tokens=1,2" %%a in (c.txt) do (set c_%%a=%%b)



for /f "tokens=1-5" %%a in (a.txt) do (

   set tmpstr=%%e

   set tmpstr=!tmpstr:~0,3!

   for %%t in (!tmpstr!) do (echo %%a !b_%%a! %%b %%c %%d !c_%%t! %%e)

)

pause

exit

[ Last edited by 523066680 on 2010-8-20 at 16:04 ]

我以前用的也是这个批处理，但速度慢。所以要求用sed和gawk处理。用sed和gawk速度可能只是上面这个批处理的几分甚至几十分之一。

嗖噶。这样的话倒是命令比较方便了呢
其他脚本写起来也不是很简练
坐等

来段JS

var fso = new ActiveXObject("Scripting.filesystemobject");

var arr_b={};

var arr_c={};

var a = fso.OpenTextFile("a.txt", 1, false);

var b = fso.OpenTextFile("b.txt", 1, false);

var c = fso.OpenTextFile("c.txt", 1, false);

var d = fso.CreateTextFile("result.txt",true);

var re =new RegExp();re.compile(/ +/);

var re2=new RegExp();re2.compile(/^\s+$/);

while (!b.AtEndOfStream)

{

    line= b.ReadLine();

    if(re2.test(line))continue;

    ss=line.split(re);

    arr_b]=ss+' '+ss;

}



while (!c.AtEndOfStream)

{

    line= c.ReadLine();

    if(re2.test(line))continue;

    ss=line.split(re);

    arr_c]=ss;

}



while (!a.AtEndOfStream)

{

    line= a.ReadLine();

    if(re2.test(line))continue;

    ss=line.split(re);

    d.write(arr_b]+' '+ss+' '+ss+' '+ss+' '

            +arr_c.substr(0,3)]+' '+ss+'\r\n')

}

修改下提高处理速度

[ Last edited by freeants001 on 2010-8-20 at 16:17 ]

感谢freeants001，可惜我看不懂。还在想用sed或gawk。
我是不是有点顽固？呵呵

不会啊，标题就是“使用sed或gawk按列替换”
可惜我不会~ HAT版主快出手吧！

研究下AWK，由于类C特性和正则，所以学习曲比较，下面贴代码。

BEGIN {

	while((getline<"b.txt")>0){

		b=$0

	}

	

	while((getline<"c.txt")>0){

		c=$2

	}

}



{

	print b,$2,$3,$4,c,$5

}



END {

	

}

测试了下速度，当a.txt为9.05M时，JS用时14.500秒，AWK用时仅2.484秒，好快，看来我得认真研究一番了

freeants001兄能否把代码帖全？我对gawk使用只有一点点了解。
前面加上gawk，后面加上a.txt执行错误？

[ Last edited by hgx126 on 2010-8-22 at 18:51 ]

11楼代码已贴全，11楼代码保存为配置文件（awk.ini）,命令行下执行：
AWK　-f awk.ini 　a.txt

思路来源于freeants001：

@echo off

gawk "{ if ( ARGIND==1 ) { a = $2 } if ( ARGIND==2 ) { b = $0 } if ( ARGIND==3 ) { print b,$2,$3,$4,a,$5} }" c.txt b.txt a.txt

pause>nul