QQ城市达人采集 规则 原创

xxcvb

今天求人求了一天,没人帮我下,论坛介绍的方法太复杂,我现在发布一超级简单的方法

http://city.qzone.qq.com/json.php?mod=sososearch&act=page&type=city&jsontype=str&callback=searchProCb&cd=330300&pg=1

直接用火车采集这个地址,330300是城市参数,具体你在http://city.qzone.qq.com/达人首页搜索的时候会看到,pg=1是页数,采集分页的时候直接pg=(*)表示
http://city.qzone.qq.com/json.php?mod=sososearch&act=page&type=city&jsontype=str&callback=searchProCb&cd=城市ID参数&pg=页码

原创,请加分,超简单采集QQ城市达人数据

xxcvb

转载请注明出处   

rq204

这个是很久前别人发过的了．．．

飛越無限

影视资源交流群 怎么跑出个火车头交流群了呢。

xxcvb

我看了那个帖子   他发的不是这样的地址   
我和他的不一样

xxcvb

这个网站用火车效率有点慢，我用迅雷批量下载
然后写正则用批处理提取成功

一会发正则上来

xxcvb

把数据保存本地为txt
然后用下面批处理搞定

1. @echo off & SETLOCAL EnableDelayedExpansion
   
2. 
   
3. set _TxtFile=getQQ.txt
   
4. set _OutFile=QQ.txt
   
5. set _GetLine=
   
6. set _GetChar=
   
7. 
   
8. :main
   
9.         if exist %_OutFile% copy %_OutFile% %_OutFile%.bak & del /q /f %_OutFile%
   
10.         fsutil file Createnew %_OutFile% 0
    
11.         for /f "Tokens=* " %%i in (%_TxtFile%) do (
    
12.                 set "_GetLine=%%i"
    
13.                 set "_OutLine="
    
14.                 set "_GetLine=!_GetLine:[url]http://city.qzone.qq.com/html/user/guest.htm#uin=[/url]☆!"
    
15.                 set "_GetLine=!_GetLine:TA=★!"
    
16.                 call :READINFILE
    
17.                 echo !_OutLine! >>%_OutFile%
    
18.                 )
    
19. goto :END
    
20. :READINFILE
    
21. set ReadFlag=false
    
22.         for /l %%i in (0,1,255) do (
    
23.                 set _GetChar=!_GetLine:~%%i,1!
    
24.                 if "!_GetChar!"=="" goto :EOF
    
25.                 if "!_GetChar!"=="★" set ReadFlag=false
    
26.                 if "!ReadFlag!"=="true" set _OutLine=!_OutLine!!_GetChar!
    
27.                 if "!_GetChar!"=="☆" set ReadFlag=true
    
28.                 )
    
29.         goto :EOF
    
30. :END

复制代码

xxcvb

火车老大  我的代码怎么自动插入了:[url=http://bbs.locoy.com/job.php?do=url&url=687474703a2f2f636974792e717a6f6e652e71712e636f6d2f68746d6c2f757365722f67756573742e68746d2375696e3d]这句代码

xxcvb

"QQ":"^[0-9]*$"  这个怎么匹配不出来

xxcvb

最后得到的QQ号码一般都是推广发群邮件用
所以我在给个批处理，自动生成邮件地址
由于VB C++等学的不精通  写不出来全自动工具

1. echo off
   
2. set n=0
   
3. setlocal enabledelayedexpansion
   
4. for /f "delims=" %%a in (1.txt) do set /a n+=1 & set c!n!=%%a
   
5. for /l %%a in (1 1 !n!) do (
   
6. if not %%a==1 (echo !c%%a!@QQ.com>>1.txt) else (echo !c%%a!@QQ.com>1.txt)
   
7. )
   
8. pause

复制代码