中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 手机号码归属地查询批处理单机版
作者:
标题: 手机号码归属地查询批处理单机版 上一主题 | 下一主题
namejm
荣誉版主

batch fan


积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
『楼 主』:  手机号码归属地查询批处理单机版

  昨天在群里谈到做手机信息查询的事情,vkill立马就发了个curl+sed网络版的批处理出来([原创] 手机号码归属地专业查询.bat),赞叹一下他的效率。

  要做信息查询类的批处理,是需要数据库支持的。经常的状况就是:批处理好做,数据库难寻。网上搜索未加密的手机数据库更是难上加难。

  不过,功夫不负有心人,经过长达一个多星期的艰苦搜寻,在年前的时候,我终于在网上找到了一个文本格式的、未加密的数据库。

  整理后的数据库(请点击这里下载)相关信息如下:

  Quote:
; 手机信息数据库原始信息头部如下:
; -- phpMyAdmin SQL Dump
; -- version 2.8.1
; -- http://www.phpmyadmin.net
; 张贴日期为 2006-7-18,具体地址已经无从考证

; 电话区号信息来自网络,由本人整理之后添加到原有的手机信息数据库中
; 数据覆盖130-139、159号段
; 数据格式为:序号 手机号码 电话区号 省/直辖市 市 品牌
; 共计11万条数据,其中有效数据98107条,无效数据11893条

  昨天才开始着手整理这个数据库,并做了一个简单的单机版手机信息查询器出来,没什么技术含量,博大家一笑罢了:
@echo off
title 手机号码归属地查询
mode con lines=10 cols=31

:Main
cls
echo.&echo.
echo        请输入手机号码:
echo.
set input=
set /p input=         
if not defined input exit     
if "%input:~10%"=="" goto Main
if not "%input:~11%"=="" goto Main
echo %input%|findstr "^1[3,5][0-9]*$">nul||goto Main
cls
echo.
set ID=%input:~0,7%
for /f "tokens=2,4,6,8,10 delims='" %%i in ('findstr /r "%ID%" 手机信息数据库.txt') do (
    echo ━━━━━━━━━━━━━━━
    echo   来自: %%k %%l
    echo.
    echo   品牌:%%m
    echo.
    echo   电话区号:%%j
    echo ━━━━━━━━━━━━━━━
)
pause>nul
goto Main
  

[ Last edited by namejm on 2007-6-6 at 01:05 PM ]



尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
2007-6-6 13:04
查看资料  发短消息 网志   编辑帖子  回复  引用回复
ieutk
初级用户




积分 107
发帖 48
注册 2006-11-30
状态 离线
『第 2 楼』:  

嗯,这个还看的点懂,vkill做的我看不懂!还待提高啊!



她希望我把粪土变黄金,我希望她视黄金如粪土!
2007-6-6 13:07
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 3 楼』:  

恩,数据库真的很难找~作成本地查询的也有许多好处的,呵呵~方便点,就是没有办法更新哦

2007-6-6 19:59
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
wert123
中级用户





积分 301
发帖 135
注册 2007-5-15
状态 离线
『第 4 楼』:  

好东西啊,以前也看到个查身份证的
真是精华中的经典啊,斑竹辛苦了啊
就是不知道,更新的数据库到哪里下载啊

2007-6-6 22:31
查看资料  发短消息 网志   编辑帖子  回复  引用回复
qq43142691
中级用户





积分 327
发帖 152
注册 2007-5-4
状态 离线
『第 5 楼』:  

好东西...收藏了.............谢谢分享

2007-6-7 05:16
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 6 楼』:  

数据无法下载...

2007-6-7 17:44
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
namejm
荣誉版主

batch fan


积分 5226
发帖 1737
注册 2006-3-10
来自 成都
状态 离线
『第 7 楼』:  

  当时发附件的时候,我测试过,可以下载,但是现在也没法下载了,可能是下载站的问题。有空再联系一下站长。



尺有所短,寸有所长,学好CMD没商量。
考虑问题复杂化,解决问题简洁化。
2007-6-7 21:05
查看资料  发短消息 网志   编辑帖子  回复  引用回复
matlan
初级用户




积分 87
发帖 63
注册 2008-8-23
状态 离线
『第 8 楼』:  

数据不好下载 我根据plp626写了个自动到网是下载的
就是速度慢了点 望改正
@echo off||author:plp626&<%~s0  more +9>%tmp%\gtxt.vbs
md 手机号数据库 2>nul & set n=0
title 手机号数据下载
color 3e
for /l %%i in (1300000,1,1399999) do (cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "http://www.poptool.net/enet/mobile.asp?key=%%i"|findstr  "号码"|more +6 >>手机号数据.db )
for /l %%i in (1530000,1,1539999) do (cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "http://www.poptool.net/enet/mobile.asp?key=%%i"|findstr  "号码"|more +6 >>手机号数据.db )
for /l %%i in (1590000,1,1599999) do (cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "http://www.poptool.net/enet/mobile.asp?key=%%i"|findstr  "号码"|more +6 >>手机号数据.db )
echo 下载完毕!
pause
Set oDOM = WScript.GetObject(WScript.Arguments(0))
do until oDOM.readyState = "complete"
WScript.sleep 100
loop
WScript.echo oDOM.documentElement.outerText

2008-12-7 20:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
matlan
初级用户




积分 87
发帖 63
注册 2008-8-23
状态 离线
『第 9 楼』:  

[code][/code]

   此帖被 -2 点积分    点击查看详情   
评分人:【 HAT 分数: -2  时间:2008-12-10 17:58


2008-12-10 14:53
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: