批处理怎样替换文本指定内容？

786021512

在目录下我有有些文本如下
&ACCESS
;******BATHOME*******
BATHOME(NET589WP1234,666666,ACTION)
BATHOME(NET892WP1256,666666,ACTION)
BATMAN(NET789WP1235_P1,666666,ACTION)
BATHOME(NET523WP1255,666666,ACTION)
BATHOME(NET589WP1266,666666,ACTION)
BATHOME(NET789WP1235_P1,666666,ACTION)

想要变成
BATHOME(NET589WP1234,5891234,ACTION)
BATHOME(NET892WP1256,8921256,ACTION)
BATMAN(NET789WP1235_P1,666666,ACTION)
BATHOME(NET523WP1255,5231255,ACTION)
BATHOME(NET587WP1266,5871266,ACTION)
BATHOME(NET789WP1235_P1,7891235,ACTION)

也就是把第二节NET后面的3位数字+WP后面的四位数字替换，第三节666666内容
还有一点就是只能替换BATHOME行，不能对batman进行替换
个人苦思冥想实在想不出，只能变其中一行后面就歇菜了

yhcfsr

BAT

1. @set @n=0/*&echo off
   
2. dir /a-d/s/b *.txt|cscript -nologo -e:jscript "%~f0"
   
3. pause&exit /b */
   
4. 
   
5. var fso=new ActiveXObject('scripting.FileSystemObject');
   
6. 
   
7. while(!WSH.StdIn.AtEndOfStream)
   
8. {
   
9.         var result='';
   
10.         file=WSH.StdIn.ReadLine();//取得文件名
    
11.         fo=fso.OpenTextFile(file,1);//读取文件
    
12.         while(!fo.AtEndOfStream)
    
13.         {
    
14.                 //正则,替换文件内容
    
15.                 line=(fo.ReadLine()).replace(/(?=BATHOME)(.*NET(\d{3})WP(\d{4}).*,)\d+(,.*)/gi,'$1$2$3$4');
    
16.                 result+=line+'\r\n';//保存结果
    
17.         }
    
18.         fo.close();
    
19.         file+='.log';
    
20.         fo=fso.CreateTextFile(file,true,false);//创建文件
    
21.         fo.Write(result);//输出结果
    
22.         fo.close();
    
23. }

复制代码

Batcher

回复 1# 786021512


    把你写的只能变其中一行的代码发出来看看，我来帮忙修改。

786021512

回复 3# Batcher

1.     @echo off%
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. for /f "tokens=*" %%k in ('dir /b test.txt') do  (
   
5.          for /f %%l in ('type "%%k"') do set STR=%%l
   
6.          for /f "tokens=2 delims=," %%j in ('find "BATHOME" "%%k"') do  set old=%%j
   
7.          for /f "tokens=2 delims=(," %%i in ('find "BATHOME" "%%k"') do set new=%%i
   
8.          set newa=!new:~3,3!
   
9.                  set newc=!new:~8,4!
   
10.                  
    
11. )  
    
12.          echo !STR:%old%=%newa%%newc%!
    
13. 
    
14. 
    
15. )
    
16. 
    
17. PAUSE

复制代码

好人呀

Batcher

回复 4# 786021512


外层for循环的dir命令可以去掉，直接type文件名就行。
多次find会导致效率较低，delims设置多个列分隔符就行了。

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. for /f "tokens=1-4 delims=(," %%a in ('type "1.txt" ^| findstr "(NET"') do (
   
4.     set str=%%b
   
5.     if "%%a" equ "BATHOME" (
   
6.         echo %%a(%%b,!str:~3,3!!str:~8,3!,%%d
   
7.     ) else (
   
8.         echo %%a(%%b,%%c,%%d
   
9.     )
   
10. )
    
11. pause

复制代码

786021512

回复 5# Batcher
感谢！，但是我还想在请教一下，假设
BATHOME(NET589WP1234,666666,ACTION)
在ACTIO后面还有一节呢,这一节我是随机添加的
即
&ACCESS
;******BATHOME*******
BATHOME(NET589WP1234,666666,ACTION,GOOD)
BATHOME(NET892WP1256,666666,ACTION)
BATMAN(NET789WP1235_P1,666666,ACTION)
BATHOME(NET523WP1255,666666,ACTION，GOOD)
BATHOME(NET589WP1266,666666,ACTION)
BATHOME(NET789WP1235_P1,666666,ACTION)
怎样保留上面的信息并输出文本
当然还是要对666666这节进行更改
请谅解我啥都不懂
谢谢大神

Batcher

回复 6# 786021512


5楼代码
tokens=1-4
改成
tokens=1-3,*

786021512

回复 7# Batcher
Thankyou，在请教下，我还想把整个文本给输出，该怎样做呢？

Batcher

回复 8# 786021512

1. @echo off
   
2. type "1.txt"
   
3. pause

复制代码

786021512

回复 9# Batcher


    额，我想说的是怎样结合你的代码，输出来..

Batcher

回复 10# 786021512


type "1.txt"
把这行命令加到5楼代码里面，挑个你喜欢的位置，比如第2行下面或者第10行下面。

786021512

回复 11# Batcher [/b
我还是不太会，加了以后又是原样输出了，666666那一行有不变了
原谅我跟不上节奏

Batcher

回复 12# 786021512


    这个结果跟你8楼说的“还想把整个文本给输出”具体差异在哪里？

Batcher

回复 12# 786021512


如果你的意思是要把代码执行的结果输出到另外一个txt文件，可以试试这样：

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. (for /f "tokens=1-3,* delims=(," %%a in ('type "1.txt" ^| findstr "(NET"') do (
   
4.     set str=%%b
   
5.     if "%%a" equ "BATHOME" (
   
6.         echo %%a(%%b,!str:~3,3!!str:~8,3!,%%d
   
7.     ) else (
   
8.         echo %%a(%%b,%%c,%%d
   
9.     )
   
10. ))>"2.txt"

复制代码

786021512

回复 14# Batcher

我的意思把原来的文本内容进行替换并输出结果
原先内容中还含有标题
&ACCESS
等内容
现在只能输出更改的内容，原先的标题等会被去掉