[文本处理] [已解决]切割关卡文本的批处理代码要怎样写？

pan528

我想将关卡集的文本按每个关卡切割，并提取作者姓名、关卡文件名称、关序、关卡名称对每次个关卡重命名。
我写的代码如下，但运行后发现，命名关卡名称不可靠，有部分不能提取，不知道问题出在哪里，请高手指点：

@echo off

COLOR 1F


set F1=%~nx1

set /p F1=请输入源目录：
set F2=Author

echo.


echo 1、按关卡切割文本（关卡较大则切割时间较长），请稍候 ...
echo.
if not exist %F2% md %F2%
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir/s /b /on %F1%\*.*')do (
	for /f "delims=" %%i in (%%a)do (
	set m=%%i
		if "!m:~0,5!" == "Level" set x=!m!& echo.>%F2%\%%~na_!x:~5!.txt
        		if not "!m:~0,5!" == "Level" echo %%i>>%F2%\%%~na_!x:~5!.txt
			)
		)

:: 将关卡序号改为四位数
setlocal enabledelayedexpansion
for /f "tokens=1-3 delims=_" %%i in ('dir /b /o:n %F2%\')do (
set m=00000%%~nj
ren "%F2%\%%i_%%j" "%%i_!m:~-5!.txt"
)

echo 2、加入关卡名称 ...
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /b /o %F2%\*.*')do (
	set n=%%a
	for /f "delims=" %%i in (%F2%\%%a)do (
		set m=%%i
		if "!m:~0,5!" == "Title" ren "%F2%\%%a" "!n:~0,-4!_!m:~7!.txt"
		)
	)

:: 剔除空格
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir/s /b /on %F2%\*.txt')do (
	set "var=%%~na"
	set var=!var:^ ^ =-!
	set var=!var:^ =-!
	set var=!var:--=-!
	ren "%%a" !var!.txt
	)

echo 3、加入作者名称 ...
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir/s /b /on %F2%\*.*')do (
	for /f "delims=" %%i in (%%a)do (
	set m=%%i
	if "!m:~0,6!" == "Author" set m=!m!&ren "%%a" "!m:~8!_%%~na.txt"
	)
)

:: 替换字符
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir/s /b /on %F2%\*.txt')do (
	set "var=%%~na"
	set var=!var:^ ^+^ =，!
	set var=!var:^ ^+=，!
	set var=!var:^+^ =，!
	set var=!var:^+=，!
	set var=!var:^ ^ =-!
	set var=!var:^ =-!
	set var=!var:--=-!
	ren "%%a" !var!.txt
	)


echo.
echo 操作完毕！请检查命名情况，并修正！
echo.
echo 按任意键打开 %F2% 目录！
pause>nul
start %F2%
goto:eof
复制代码

会出问题的关卡集：

pan528

回复 2# xxpinqz


谢谢回帖！

我用TextForever转换，或用记事本另存为ansi格式，还是不行。

我猜想：是否一个文本中就包括了两种格式，如果是，有什么工具可彻底转换呢？

还请高手伸出援手。

pan528

感谢各位高手相助 ！问题解决了。
特别是“狄钦dQ”耐心测试并详细讲解问题发生的原因；“WHY”优化并重编了代码；“codegay、Batcher”介绍了Notepad++使用方法……
再次谢谢！！！