下面是坛友oicu写的代码，2018年的时候我给过oicu私信过。当时他的代码我只能看懂50%，现在我能看懂95%。这花了不到三年的时间。后来我发现用perl完成上面的功能更方便，晚上闲暇的时间，在手机上测试，顺利通过。


@echo off
::Code by oicu#lsxk.org 2018-10-11, for cmd@Windows

type nul>c.txt
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "delims=" %%a in (b.txt) do (
    echo.%%a | findstr /i "Track[0-9]" >NUL && (
        set swap=%%a
        set swap=!swap:Track=!
        rem 因为截取方式不准确，还是使用替换，直到得到2位数字
        set swap=!swap:TITLE=!
        set swap=!swap:"=!
        set swap=!swap: =!
        rem 搜索时，在行首搜索数字并带点，比如 01.
        FOR /F "tokens=1,2* delims=." %%i in ('type a.txt^| findstr /i "^^!swap!\."') do (
            rem 根据实际情况调整缩进的空格
            echo.     TITLE "%%j">>c.txt
        )
    ) || (
        echo.%%a>>c.txt
    )
)
ENDLOCAL
goto :eof


【 在 javame 的大作中提到: 】
: $filename='flims.txt';
: open(FILE,$filename) or die;
: @names;
: ...................
--
FROM 124.78.12.*