China DOS Union

涳艛?忌: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:
Still, first explain the purpose of what you're doing
What exactly is the purpose of doing this
Is it to extract QQ numbers, or is it simply to replace characters other than QQ numbers

@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:
。。。。
This is not just a level up in difficulty, I don't know how to do it anymore

@echo off

echo Processing, please wait a few minutes...

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 ...