ai20110304

你的账号第一位都是以1开头吗

ai20110304

@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
复制代码