[文件操作] 批处理怎样匹配文件名 开头数字？

@echo off & setLocal enableDelayedExpansion

for %%i in ("D:\A" "D:\B") do (
    pushd %%i
    for /f "delims=" %%j in ('dir /b *.txt 2^>nul ^| findstr /b "[0-9]"') do if "%%~xj" == ".txt" call :number %%j
    popd
)

goto ending

:number
set name=%~n1
for /l %%j in (0,1,256) do (
    set sub_s=!name:~%%j,1!
    echo !sub_s!|findstr "[^0-9]" >nul && (
        set prefix=!name:~0,%%j!
        if defined _!prefix! (copy "%1" "D:\C\") else set "_!prefix!=1"
        goto :eof
    )
)
goto :eof

:ending
pause
复制代码

for /f "delims=" %%j in ('dir /b /a-d 2^>nul ^| findstr /b "[0-9]"') do call :number %%j
复制代码

for /f "delims=" %%j in ('dir /b /a-d 2^>nul ^| findstr /b "[0-9]"') do (
	if "%%~xj" == ".csv" (
		call :number %%j
	) else if "%%~xj" == ".txt" (
		call :number %%j
	)
)
复制代码

@echo off & setLocal enableDelayedExpansion

pushd "D:\dos\test\A"
for /f "delims=" %%i in ('dir /b /a-d "*.csv" 2^>nul ^| findstr /b "[0-9]"') do if "%%~xi" == ".csv" call :number "%%i" 1
popd

pushd "D:\dos\test\B"
for /f "delims=" %%i in ('dir /b /a-d "*.txt" 2^>nul ^| findstr /b "[0-9]"') do if "%%~xi" == ".txt" call :number "%%i" 0
popd

goto ending

:number
set name=%~n1
for /l %%j in (0,1,256) do (
    set sub_s=!name:~%%j,1!
    echo !sub_s!|findstr "[^0-9]" >nul && (
    	set prefix=!name:~0,%%j!
    	if %2 equ 1 (
    		set "_!prefix!=1"
	) else (
		if defined _!prefix! copy "%1" "D:\dos\test\C"
	)
        goto :eof
    )
)
goto :eof

:ending
pause
复制代码

@echo off
for %%a in (A\*.*) do if exist "B\%%~na.*" copy "B\%%~na.*" "C\"
pause
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /b /a-d A\*.csv^|findstr "^[0-9]"') do (
set "n=%%~ni"
set /a n=n
set #!n!=true
)
for /f "delims=" %%a in ('dir /b /a-d B\*.txt^|findstr "^[0-9]"') do (
set "m=%%~na"
set /a m=m
if defined #!m! copy "%%a" "C\"
)
pause
复制代码