[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

用以下代码可以抓取 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
尺有所短寸有所长,学好批处理没商量;
考虑问题复杂化,解决问题简洁化。

心在天山,身老沧州。

不会用啊,使用方法?

TOP

不会用

不会用啊,使用方法?

TOP

最近一次大量更新貌似是20100723
放了大量147号段

TOP

高手..刚开始学,看不懂,批处理也比较高深.

TOP

不是很明白啊!我不发垃圾消息的!

TOP

返回列表