中国DOS联盟

涳艛?忌:J垟麳]CF K-婣硵艛?忌:鉁s?殸⑽矎?
NF

 

515187266 9TD

  傢ろ
04
435853964 -TD


傘18娿
?
 5? ｏ欙L(   } ~搁搁块€8362-406
務蠚崄u39E拞r 515187266 >TD

 
ffffTA

 ?{-%/%//>PWf@=Ｏφ≌οη∠┫

435853964
515187266

Originally posted by yishanju at 2009-3-4 00:13:
还是先说明你这样做的目的吧
这样做究竟是为了什么
是为了把QQ号码提取出来，还是单纯就是要QQ号码之外的字符替换掉

@echo off&setlocal enabledelayedexpansion
copy info.db isee1.txt>nul 2>nul
fr -ric:"" -t:"Z" ISee1.txt
for /f "delims=" %%i in (ISee1.txt) do (
set han=%%i
>>ISee2.txt echo !han!
)
del ISee1.txt
fr -f:"ZZ" -t:"Z" ISee2.txt
find ISee2.txt "ZZ" && GOTO CC||fr -f:"Z" -t:" " ISee2.txt
for /f "tokens=1*" %%n in (ISee2.txt) do (
set xing=%%n
>>ISee1.txt echo !xing!
>>ISee1.txt echo !xing!
)
del ISee2.txt
for /f "delims=" %%k in (ISee1.txt) do (
set ye=%%k
set "ye=!ye: =!"
set "ye=!ye:012345789=!"
set "ye=!ye:0123456789=!"
>>ISee2.txt echo=!ye!
)
del ISee1.txt
setlocal disabledelayedexpansion
for /f "delims=" %%l in (ISee2.txt) do (
if not defined %%l set %%l=A & echo %%l>>ISee1.txt
)

del ISee2.txt

。。。。。。

Originally posted by yishanju at 2009-3-4 01:27:
。。。。
这难度上了不是一个等级，我不会了

@echo off

echo 处理中，请稍等几分钟...

sed "s//\n/g" Info.db>%temp%\a.txt

findstr ^*$ %temp%\a.txt>%temp%\b.txt

sort %temp%\b.txt>%temp%\c.txt

type nul>%temp%\d.txt

for /f "delims=" %%a in (%temp%\c.txt) do (

  findstr /x /c:"%%a" %temp%\d.txt>nul 2>nul||echo.%%a>>%temp%\d.txt

)

start %temp%\d.txt

//&@cls&cscript -nologo -e:javascript "%~f0">r.txt&start r.txt&exit/b

WScript.Echo( new ActiveXObject("Scripting.FileSystemObject").OpenTextFile("Info.db").ReadAll().match( /{6,10}/gim ).join("\n") );

Originally posted by HAT at 2009-3-4 05:37:

@echo off

echo 处理中，请稍等几分钟...

sed "s//\n/g" Info.db>%temp%\a.txt

findstr ^*$ %temp%\a.txt>%temp%\b.txt

sort %temp%\b ...