找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 24309|回复: 6

[其他] 批处理建立手机号归属地资料库[20100416]

[复制链接]
发表于 2010-4-16 00:42:47 | 显示全部楼层 |阅读模式
用以下代码可以抓取 http://www.iluohe.com/ 上的手机号码数据,分省市按号段顺序加以保存。至于数据的用途,请各位自行发挥。现在上代码:

  1. @echo off
  2. setlocal enabledelayedexpansion

  3. set TT=手机号码整理器1.0
  4. set www=http://www.iluohe.com

  5. md tmp 2>nul
  6. md 整理结果 2>nul
  7. pushd tmp 2>nul||exit

  8. curl -O %www%/all.shtml
  9. htox32c /ip /O0 /u1+4 all.shtml

  10. :: 以下代码中,findstr "^abc$" test.txt 要写成 findstr "^^abc^$" test.txt 才起作用,原因不明
  11. for /f "tokens=1-3 delims=<> " %%i in ('findstr /ic:"<city/" all.txt') do (
  12.     if not "%%i"=="*" (
  13.         set province=%%i
  14.     ) else (
  15.         title %TT%-正在处理 !province!-%%j
  16.         md "!province!\%%j" 2>nul
  17.         curl --create-dirs -o !province!\%%j\%%j.html %www%/%%k/
  18.         md ..\整理结果\!province!\%%j 2>nul
  19.         htox32c /ip /O0 !province!\%%j\%%j.html>nul
  20.         (for /f "tokens=1,2" %%i in ('findstr /i "^^1[3,5,8][0-9] 1[3,5,8][0-9][0-9][0-9][0-9][0-9]^$" !province!\%%j\%%j.txt') do (
  21.             if "%%i"=="*" (
  22.                 echo %%j
  23.             ) else echo.&echo %%i&echo.
  24.         ))>..\整理结果\!province!\%%j\!province!_%%j.txt
  25.     )
  26. )

  27. title %TT%-处理完毕
  28. cls
  29. echo.&echo.&echo      处理完毕
  30. popd
  31. pause
复制代码
  需要用到两个第三方命令行程序:curl.exe和HtoX32c.exe,请在论坛里自行搜索。

  若不会使用,请直接下载附件中的数据(网站上的数据截止日期为20100126)。
http://pan.baidu.com/share/link?shareid=4196984944&uk=1124163200
发表于 2010-4-16 08:13:05 | 显示全部楼层
不是很明白啊!我不发垃圾消息的!
发表于 2010-4-16 17:14:37 | 显示全部楼层
高手..刚开始学,看不懂,批处理也比较高深.
发表于 2010-8-18 22:18:47 | 显示全部楼层
最近一次大量更新貌似是20100723
放了大量147号段
发表于 2010-8-27 15:47:52 | 显示全部楼层

不会用

不会用啊,使用方法?
发表于 2011-4-24 13:56:13 | 显示全部楼层
不会用啊,使用方法?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 01:26 , Processed in 0.018899 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表