中国DOS联盟

@echo off&setlocal enabledelayedexpansion

set /p n=<new.txt

(for /f "tokens=1,2 delims=, " %%a in (Employee.txt) do (

  if /i "%%b"=="NEW" (

    echo.%%a, %%b, !n!

    set /a n+=1

  ) else echo.%%a, %%b

))>NEW2.txt

start NEW2.txt

Originally posted by tireless at 2009-4-23 03:25 AM:
如果 NEW.txt 里面的数字后一位比前一位大1：

@echo off&setlocal enabledelayedexpansion

set /p n=<new.txt

(for /f "tokens=1,2 delims=, " %%a in (Employee.txt) ... 

@echo off&setlocal enabledelayedexpansion

set n=

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

  set /a n+=1

  set #!n!=%%a

)



set n=

(for /f "tokens=1,2 delims=, " %%a in (Employee.txt) do (

  if /i "%%b"=="new" (

    set /a n+=1

    for %%i in (#!n!) do echo.%%a, %%b, !%%i!

  ) else echo.%%a, %%b

))>NEW2.txt

fso=WScript.createobject("scripting.filesystemobject");

f1=fso.opentextfile("Employee.txt")

f2=fso.opentextfile("NEW.txt");

f3=fso.createtextfile("$_dest.txt",1)

re=/\bNEW*$/i;

while(!f1.AtEndOfStream){

    sss=f1.readline();

    if(re.test(sss))sss=sss.replace(re,"NEW,"+f2.readline());

    f3.writeline(sss);

}

on error resume next

set fso=createobject("scripting.filesystemobject")

set f1=fso.opentextfile("Employee.txt")

set f2=fso.opentextfile("NEW.txt")

set f3=fso.createtextfile("Employee_new.txt")

do while f1.atendofstream<>true

	n=f1.readline

	if f1.line mod 2=0 then

		sm=sm &n & "," & f2.readline & vbcrlf

		if err then err.caler

	else

		sm=sm & n & vbcrlf

	end if

loop

f3.write sm

f1.close

f2.close

f3.close

set fso=nothing