
CODE: [Copy to clipboard]结果:Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile("D:\桌面\1.txt", 1)
inputstr = objText.ReadAll
objText.Close
outstr=replace(inputstr,"</a>",vbcrlf)
dim tep
tep=split(outstr,vbcrlf)
outstr=empty
dim i
for i=0 to ubound(tep)-2
outstr=outstr & right(tep(i),len(tep(i))-instrRev(tep(i),">")+3) & vbcrlf
next
outstr=replace(outstr,""">","--")
Set objText = objFSO.OpenTextFile("D:\桌面\2.txt", 2,True)
objText.Write outstr
objText.Close
| Quote: | |
|
CODE: [Copy to clipboard]@echo off
setlocal enabledelayedexpansion
cls
for /f "delims=" %%i in (1.txt) do (
set "str=%%i"
set "str=!str:"=!"
call :pickup "!str!"
)
pause
exit
:pickup
for /f "tokens=1* delims=<>" %%i in (%1) do (
echo %%i|findstr "^[1-2][0-9][0-9]\.">nul&&echo %%i
set "str=%%j"
if defined str call :pickup "!str!"
)
goto :eof
CODE: [Copy to clipboard]结果:@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in (test.txt) do (
set "str=%%i"
set "str=!str:"=!"
call :pickup "!str!"
)
pause>nul
:pickup
for /f "tokens=1* delims=<" %%i in (%1) do (
echo "%%i"|findstr "class">nul && (
for /f "tokens=1,2 delims=>" %%a in ("%%i") do (
set class=%%a
set class=!class:~-1!
set IP=%%b
echo !class!--!IP!
)
)
set "str=%%j"
if defined str call :pickup "!str!"
)
goto :eof
CODE: [Copy to clipboard]D--144.140.22.190:80
D--125.248.244.131:8080
D--202.53.13.10:8080
B--125.212.37.150:8080
B--220.181.31.44:3128
D--200-91-243-90-host.ifx.net.co:3128
D--216.133.248.229:80
D--216.133.248.228:80
D--216.133.248.226:80
D--neptun.ium.ne.jp:8094
D--195.175.37.71:8080
D--213.227.149.165:3128
D--216.133.248.227:80
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |