有幸得到了手机归属地数据库，有15万3千多条记录，包含最新的151、155、157号码段的归属地数据，2008年9月11日整理完成，于是将它转换成文本文档，用批处理来查询。
附件中总共又三个文件，主文件代码如下
文件table.bat代码如下（最好不要更改文件名）：
最后是txt格式的数据库，在附件里面。
http://upload.cn-dos.net/img/1168.rar
另，Access数据库
http://upload.cn-dos.net/img/1169.rar
[ Last edited by singlion on 2008-12-6 at 22:07 ]
附件中总共又三个文件，主文件代码如下
@echo off
title 手机归属地查询 Write by 李国灿 singlion@126.com
color 79
setlocal enabledelayedexpansion
echo ╭──────────╮
echo ╭──────┤ 手机归属地查询 ├────────╮
echo │ ╰──────────╯ │
echo │ 本程序所带数据库为2008年9月11日整理完成， │
echo │包含151、155和157号码段。 │
echo │ │
echo │使用方法： │
echo │ 输入手机号码（至少输入前七位），按回车键即可。 │
echo │ │
echo │注意事项： │
echo │ │
echo │ 1.请勿修改本程序，任何微小的修改都可能导致 │
echo │本程序无法正常运行。 │
echo │ │
echo │ 2.所有数据都存放在文件“List.txt”中，请勿删 │
echo │ 除，也不要把它改名，否则将无法使用本程序。 │
echo │ │
echo │ 3.若以后不小心修改了本程序而导致无法正常使 │
echo │ 用，你可以自行打开文件“List.txt”用肉眼搜索^^_^^ │
echo │ │
echo ╰──────────────────────────╯
echo. & echo 请按任意键继续... & pause>nul
:lookup
cls
echo. & echo. & echo. & echo. & echo. & echo. & echo. & echo. & echo.
set /p mystr= ：
if not defined mystr goto :lookup
set count=0
:intercept
set /a count+=1
for /f %%i in ("%count%") do if not "!mystr:~%%i,1!"=="" goto intercept
if %count% lss 7 (
echo 无效手机号（最少需要手机号的前7位）。
echo 请按任意键继续...
pause >nul
goto :lookup
)
if %count% GEQ 37 (
echo 无效手机号（不能长于11位）。
echo 请按任意键继续...
pause>nul
goto :lookup
)
cls & echo 正在查询，请稍候...
for /f "tokens=3,4 delims=:." %%i in ("%time%") do (
set /a sb=%%i
set /a msb=%%j
)
set where=
set card=
set number=%mystr:~0,7%
for /f "eol=; tokens=2,3,4 delims=," %%i in (list.txt) do (
if %%i==%number% (
set where=%%j
set card=%%k
goto :result
)
)
for /f "tokens=3,4 delims=:." %%i in ("%time%") do (
set /a se=%%i
set /a mse=%%j
)
if "%mse%" lss "%msb%" (
set /a mse=%mse%+100
set /a se=%se%-1
)
if "%se%" lss "%sb%" (
set /a se=%se%+60
)
set /a s=%se%-%sb%
set /a ms=%mse%-%msb%
cls & echo. & echo 耗时%s%.%ms%秒。没有找到结果。请按任意键继续...
pause>nul
goto :ss
:result
cls
call table.bat %mystr% %where% %card%
echo.
for /f "tokens=3,4 delims=:." %%i in ("%time%") do (
set /a se=%%i
set /a mse=%%j
)
if "%mse%" lss "%msb%" (
set /a mse=%mse%+100
set /a se=%se%-1
)
if "%se%" lss "%sb%" (
set /a se=%se%+60
)
set /a s=%se%-%sb%
set /a ms=%mse%-%msb%
echo 查询耗时%s%.%ms%秒。请按任意键继续...
pause>nul
:ss
cls
echo ╭────────╮
echo ╭────┤ 是否继续查询？ ├─────╮
echo │ ╰────────╯ │
echo │ 输入数字并按回车键： │
echo │ │
echo │ 1.继续查询； │
echo │ │
echo │ 2.退出程序。 │
echo │ │
echo ╰───────────────────╯
set /p select=
if "%select%"=="1" goto :lookup
goto :eof
pause文件table.bat代码如下（最好不要更改文件名）：
@echo off
if {%1}=={} goto :eof
setlocal enabledelayedexpansion
set blank=
set m=%1
set n=%2
set o=%3
set c=0
:intercept
set /a c+=1
for /f %%i in ("%c%") do if not "!m:~%%i,1!"=="" goto intercept
set d=0
:intercep
set /a d+=1
for /f %%j in ("%d%") do if not "!n:~%%j,1!"=="" goto intercep
set e=0
:interce
set /a e+=1
for /f %%k in ("%e%") do if not "!o:~%%k,1!"=="" goto interce
set /a c=38-%c%
for /l %%x in (1,1,%c%) do set m=!m!%blank%
set /a d=26-%d%*2
for /l %%y in (1,1,%d%) do set n=!n!%blank%
set /a e=26-%e%*2
for /l %%y in (1,1,%e%) do set o=!o!%blank%
echo ╭────╮
echo ╭──────┤查询结果├───────╮
echo │ ╰────╯ │
echo │%m%│
echo ├─────┬─────────────┤
echo │ 归属地 │%n%│
echo ├─────┼─────────────┤
echo │ 卡类型 │%o%│
echo ╰─────┴─────────────╯最后是txt格式的数据库，在附件里面。
http://upload.cn-dos.net/img/1168.rar
另，Access数据库
http://upload.cn-dos.net/img/1169.rar
[ Last edited by singlion on 2008-12-6 at 22:07 ]
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| HAT | +2 | 2008-12-07 18:01 |
