小程936

@echo off&title 文件处理【小程936 QQ1781047213】
echo 直接拖拽文件夹到本文件上方即可使用。
echo 20元求批处理ksc文件名 @sange1963
set ttt=%1
set tt=%2
if not DEFINED tt Setlocal enabledelayedexpansion
if not DEFINED ttt goto 7
(cd /d %1)||(echo cd-目录不存在&pause>nul&exit)
set /a ab=-2,ad=-1
:1
echo 处理中……
(for /f "delims=" %%i in ('dir /b /a-d /s *.ksc') do if not "%%i"=="" (set xn=%%~ni)&call :2 ) >nul 2>&1
echo 批量修改完成。&start "" %ttt%
pause>nul&exit
:2
for /f "delims=" %%z in (%xn%.ksc) do (set az=%%z)&call :小程936
(del %xn.ksc%)&ren %xn%.1 %xn%.ksc
goto :eof
:小程936
for /f "delims==" %%a in ("%az%") do (set aa=%%a)
for /f "tokens=3 delims=." %%a in ("%az%") do (set aaa=%%a)
>>%xn%.1 (if "%aa:~,2%" == "//" goto :eof
if "%aa%" == "karaoke.internalnumber :" (echo+karaoke.internalnumber :=%xn%;)&goto :eof
if "%aa%" == "karaoke.CommonVideo :" (echo+karaoke.CommonVideo :='%xn%.%aaa%)&goto :eof
(echo+%az%)&goto :eof)
goto :eof
:7
set /p ttt=
if not DEFINED ttt goto 7
call %0 %ttt% 1
exit
复制代码