- @echo off
- cd /d %~dp0
- ::形成一个当前目录中文件列表,排除自身以外。
- dir /a-d /b *.bat | findstr /i /v %~n0 >>list.txt
-
- ::解决某些文件结尾没有换行情况
- for /f "delims=" %%i in (list.txt) do (
- echo.>>"%%i"
- )
- ::11位账号,以1开头
- (for /f "tokens=1* delims==" %%i in ('findstr /f:list.txt "\<[1-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]\>"') do (
- if not "%%j"=="" echo;%%j
-
- ))>>记录账号.txt
-
- del /f /q list.txt & pause & goto :eof
复制代码
|