netbenton

1，只检查第一个等号是否是name="xxxxx"，作为要改的名字，
2，所有@和#对应的字符串都会匹配更改

@echo off
setlocal enabledelayedexpansion
set /p "strFile=请拖入处理文本:"
if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0


(
for /f "tokens=1* delims==" %%a in (!strFile!) do (
	set s1=%%a
	set s2=%%b
	if "!s1:~-5!" == " name" (

		for /f "tokens=1*" %%c in ("%%b") do (
			call	:getn !n! ss
			echo;!s1!="!ss!" %%d
			set $!n!=!ss!囧%%~c
			set /a n+=1
		)
	
	) else (
		echo;!s1!=%%b
	)

)
) >temp.txt

set/a n-=1

(
for /f "tokens=*" %%a in (temp.txt) do (
	set str=%%a
	for /l %%1 in (0,1,!n!) do (
		for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
			set str=!str:@%%c=@%%b!
			set str=!str:#%%c=#%%b!
		)
	)
	echo;!str!
)

) > 结果.txt

type 结果.txt

rem 查看有多少个更改
set $

pause

exit /b

:getn	计算临名字，可加上前缀
set L=%1
set l1=%1
set %2=
:loop
set /a M=L %% 26

set %2=!ASC:~%M%,1!!%2!

if !L1! neq !L! set /a L=L/26&goto :loop

goto :eof
复制代码

netbenton

回复 27# smss
你试过这个会出现乱码？
后面加的过滤，改好了！

@echo off
setlocal enabledelayedexpansion
set /p "strFile=请拖入处理文本:"
if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 例外情况定义
set exception=Extra

(
for /f "tokens=1* delims==" %%a in (!strFile!) do (
	set s1=%%a
	set s2=%%b

	if "!s1:%exception%=!!s1:~-5!" == "!s1! name" (

		for /f "tokens=1*" %%c in ("%%b") do (
			call	:getn !n! ss
			set sa=%%~c
			
			rem 保留"."后面的尾巴
			if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!

			echo;!s1!="!ss!" %%d
			set $!n!=!ss!囧%%~c
			set /a n+=1
		)
	
	) else (
		echo;!s1!=%%b
	)

)
) >temp.txt

set/a n-=1

(
for /f "tokens=*" %%a in (temp.txt) do (
	set str=%%a
	for /l %%1 in (0,1,!n!) do (
		for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
			set str=!str:@%%c=@%%b!
			set str=!str:#%%c=#%%b!
		)
	)
	echo;!str!
)

) > 结果.txt

type 结果.txt

rem 查看有多少个更改
set $

pause

exit /b

:getn	计算临名字，可加上前缀
set L=%1
set l1=%1
set %2=
:loop
set /a M=L %% 26

set %2=!ASC:~%M%,1!!%2!

if !L1! neq !L! set /a L=L/26&goto :loop

goto :eof
复制代码

netbenton

1，编码问题已经解决，批处理文本和要处理的文本必须是使用相同的编码
2，多出的“=“号问题已经解决
3，可指定例外固定的字符串列表

goto :ansi
rem UTF-8 编码支持
chcp 65001
cls

:ansi
@echo off


setlocal enabledelayedexpansion


set /p "strFile=请拖入处理文本:"
if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 例外情况定义
set exception=Extra Button

(
for /f "tokens=1* delims==" %%a in (!strFile!) do (
	set s1=%%a
	set s2=%%b
	set z=
	for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
	if "!z!!s1:~-5!" equ " name" (

		for /f "tokens=1*" %%c in ("%%b") do (
			if defined #%%~c (
				echo;!s1!="!#%%~c!" %%d
			) else (
				
				call	:getn !n! ss
				set sa=%%~c
			
				rem 保留"."后面的尾巴
				if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!

				echo;!s1!="!ss!" %%d
				set $!n!=!ss!囧%%~c
				set #%%~c=!ss!
				set /a n+=1
			)
		)
	
	) else (
		if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
	)

)
) >temp.txt

set/a n-=1

(
for /f "tokens=*" %%a in (temp.txt) do (
	set str=%%a
	for /l %%1 in (0,1,!n!) do (
		for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
			set str=!str:@%%c=@%%b!
			set str=!str:#%%c=#%%b!
		)
	)
	echo;!str!
)

) > 结果.txt

type 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀
:getn

(set L=%1
set M=%1
set %2=)

:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eof
复制代码

netbenton

<Text name="QA">
复制代码

找到出现替换错误的原因了，"QA"之后不是空格，而是其它字符的时，会出错，以下代码已经处理好

goto :ansi
rem UTF-8 编码支持
chcp 65001
cls

:ansi
@echo off


setlocal enabledelayedexpansion


set /p "strFile=请拖入处理文本:"
if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 例外情况定义
set exception=Extra Button

(
for /f "tokens=1* delims==" %%a in (!strFile!) do (
	set s1=%%a
	set s2=%%b
	set z=
	for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
	if "!z!!s1:~-5!" equ " name" (
		set s3=!s2:^"= !
		for /f "tokens=1* delims= " %%c in ("!s3!") do (
			if defined #%%~c (
				echo;!s1!="!#%%~c!" %%d
			) else (
				
				call	:getn !n! ss
				set sa=%%~c
			
				rem 保留"."后面的尾巴
				if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!

				echo;!s1!="!ss!" %%d
				set $!n!=!ss!囧%%~c
				set #%%~c=!ss!
				set /a n+=1
			)
		)
	
	) else (
		if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
	)

)
) >temp.txt

set/a n-=1

(
for /f "tokens=*" %%a in (temp.txt) do (
	set str=%%a
	for /l %%1 in (0,1,!n!) do (
		for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
			set str=!str:@%%c=@%%b!
			set str=!str:#%%c=#%%b!
		)
	)
	echo;!str!
)

) > 结果.txt

type 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀
:getn

(set L=%1
set M=%1
set %2=)

:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eof
复制代码

netbenton

回复 52# smss

这两个比较容易实现，BAT也可以做到，关于需要过滤固定数组的地方有没有举例的文本？

netbenton

除了数组，其它的做解决了~~~

goto :ansi
rem UTF-8 编码支持
chcp 65001
cls

:ansi
@echo off


setlocal enabledelayedexpansion


set /p "strFile=请拖入处理文本:"
if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 例外情况定义
set exception=Extra Button

(
for /f "tokens=1* delims==" %%a in (!strFile!) do (
	set s1=%%a
	set s2=%%b
	set z=
	for %%k in (%exception%) do (if "!s1:%%k=!" neq "!s1!" (set z=y))
	if "!z!!s1:~-5!" equ " name" (
		set s3=!s2:^"= !
		for /f "tokens=1 delims= " %%c in ("!s3!") do (
			if defined #%%~c (
				echo;%%a=%%b
			) else (
				
				call	:getn !n! ss
				set sa=%%~c
			
				rem 保留"."后面的尾巴
				if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!

				echo;!s1!="!ss!" %%d
				set $!n!=!ss!囧%%~c
				set #%%~c=!ss!
				set /a n+=1
			)
		)
	
	) else (
		if defined s2 (echo;!s1!=%%b) else (echo;!s1!)
	)

)
) >temp.txt

set/a n-=1

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

	set str=%%b
	if defined str (set str=%%a !str: =!) else set str=%%a

	for /l %%1 in (0,1,!n!) do (
		for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
			set str=!str:"%%c"="%%b"!
			set str=!str:@%%c=@%%b!
			set str=!str:#%%c=#%%b!
		)
	)
	echo;!str!
)

) > 结果.txt

start 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀，A-Z,AA-ZZ,AAA-ZZZ,AAAA-ZZZZ ……
:getn

(set L=%1
set M=%1
set %2=)

:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eof
复制代码

netbenton

数组也可以处理了。
终于全部搞好了，连特殊符号“！”号也处理好了！！！

goto :ansi
rem UTF-8 编码支持
chcp 65001
cls

:ansi
@echo off




set /p "strFile=请拖入处理文本:"

setlocal enabledelayedexpansion

if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)


endlocal

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 例外情况定义
set exception=Extra Button
set z=
set o=

setlocal enabledelayedexpansion

for /f "tokens=1* delims==" %%a in (!strFile!) do (


 	for /f "tokens=1,2 delims= " %%K in ("1 !z!") do (
endlocal
	set z=%%L
	set s1=%%a
	set s2=%%b
setlocal enabledelayedexpansion

 	)


	if defined z for %%k in (%exception%) do (
		if "#!s1:</%%k>=!" neq "#!s1!" (
			set z=!z:~1!
		)
	)

 	for %%k in (%exception%) do (
		if "!s1:<%%k=!" neq "!s1!" (
			if "#!s2:/>=!" equ "#!s2!" (
				set z=!z!y
			) else (
				set o=o
			)
		)
	)



	if "!o!!z!!s1:~-5!" equ " name" (
	
		set s3=!s2:^"= !
		
		for /f "tokens=1 delims= " %%c in ("!s3!") do (
		
			if not defined #%%~c (

				call	:getn !n! ss
				set sa=%%~c
			
				rem 保留"."后面的尾巴
				if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!


				for /f "tokens=1,2,3 delims= " %%x in ("!n! !ss! !z!") do (
					endlocal
					set $%%x=%%y囧%%~c
					set #%%~c=%%y
					set /a n+=1
					set z=%%z
					setlocal enabledelayedexpansion
			
				)
			)
		)
	
	)



)

set/a n-=1

(
for /f "tokens=1,*" %%a in (!strFile!) do (

endlocal
	set stra=%%a
	set str=%%b
setlocal enabledelayedexpansion

	if defined str (
		set "str=!stra! !str: =!"
		for /l %%1 in (0,1,%n%) do (
			for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
				set str=!str:"%%c"="%%b"!
				set str=!str:@%%c=@%%b!
				set str=!str:#%%c=#%%b!
			)
		)

	) else (

		set str=%%a

	)	

	echo;!str!

)

) > 结果.txt

start 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀，多个，A 到 ZZZZ 多个
:getn

(set L=%1
set M=%1
set %2=)

:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eof
复制代码

netbenton

回复 55# xczxczxcz


    我觉得批处理也可以做得到

netbenton

回复 59# smss
1，加入了区分大小写
2，加入了完整词检查
3，加入了多种位置变量的替换，自己可以根据情况添加

goto :ansi
rem UTF-8 编码支持
chcp 65001
cls

:ansi
@echo off
set /p "strFile=请拖入处理文本:"


setlocal enabledelayedexpansion

if not exist !strFile! (
	echo;"!strFile!" 文件不找不到！！
	exit /b
)


endlocal

rem 定义用于命名的字符表
set ASC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
set n=0

rem 定义可用于命名的字符表
set tab="." [ + - ^"

rem 例外情况定义
set exception=Extra Button
set z=
set o=

setlocal enabledelayedexpansion

for /f "tokens=1* delims==" %%a in (!strFile!) do (


 	for /f "tokens=1,2 delims= " %%K in ("1 !z!") do (
endlocal
	set z=%%L
	set s1=%%a
	set s2=%%b
setlocal enabledelayedexpansion

 	)


	if defined z for %%k in (%exception%) do (
		if "#!s1:</%%k>=!" neq "#!s1!" (
			set z=!z:~1!
		)
	)

 	for %%k in (%exception%) do (
		if "!s1:<%%k=!" neq "!s1!" (
			if "#!s2:/>=!" equ "#!s2!" (
				set z=!z!y
			) else (
				set o=o
			)
		)
	)



	if "!o!!z!!s1:~-5!" equ " name" (
	
		set s3=!s2:^"= !
		
		for /f "tokens=1 delims= " %%c in ("!s3!") do (
		
			if not defined #%%~c (

				call	:getn !n! ss
				set sa=%%~c
			
				rem 保留"."后面的尾巴
				if "!sa:.=!" neq "!sa!" set ss=!ss!.!sa:*.=!


				for /f "tokens=1,2,3 delims= " %%x in ("!n! !ss! !z!") do (
					endlocal
					set $%%x=%%y囧%%~c
					set #%%~c=%%y
					set /a n+=1
					set z=%%z
					setlocal enabledelayedexpansion
			
				)
			)
		)
	
	)



)

set/a n-=1

(
for /f "tokens=1,*" %%a in (!strFile!) do (

endlocal
	set stra=%%a
	set str=%%b
setlocal enabledelayedexpansion

	if defined str (
		set "str=!stra! !str: =!"
		for /l %%1 in (0,1,%n%) do (
			for /f "tokens=1,2 delims=囧" %%b in ("!$%%1!") do (
				if "!str:%%c=!" neq "!str!" (
				if "!str:%%c=%%c!" equ "!str!" (
					set str=!str:"%%c"="%%b"!
					set str=!str:"@%%c"="@%%b"!
					set str=!str:"#%%c"="#%%b"!
					if "!str:*%%c=!" neq "!str!" (
						call	:parti %%c %%b
					)
				))
			)
		)

	) else (

		set str=%%a

	)	

	echo;!str!

)

) >结果.txt

start 结果.txt

rem 查看有多少个更改

set $

pause

exit /b

rem 计算临名字，可加上前缀，多个，A 到 ZZZZ 多个
:getn

(set L=%1
set M=%1
set %2=)

:loop
set /a M=L %% 26
set %2=!%2!!ASC:~%M%,1!
if !M! neq !L! set /a L=L/26&goto :loop
goto :eof

rem 非双引号位置处理 如：#xxxx+  #xxxx[  ]  #xxxx.dir  
:parti
for %%a in (!tab!) do (
	if "!str:%1%%~a=!" neq "!str!" (
		if "!str:%1%%~a=%1%%~a!" equ "!str!" (
			set str=!str:@%1%%~a=@%2%%~a!
			set str=!str:#%1%%~a=#%2%%~a!
			if "!str:*%1=!" equ "!str!" (
				goto :partiE
			)
		)
	)
)
:partiE

goto :eof
复制代码