搜索
aardio官方社区 门户 查看主题

手机号归属地查询

发布者: weell | 发布时间: 2013-2-23 22:31| 查看数: 19893| 评论数: 241|帖子模式

晚上没有事情学习下aardio,原理简单,GET访问网站然后匹配文本。不多说上图和源码。
1.jpg
  1. import win.ui;
  2. /*DSG{{*/
  3. var winform = ..win.form( min=false;bottom=291;max=false;text="手机号归属地查询";right=197;parent=...)
  4. winform.add(
  5. static4={ bottom=212;text="城市区号:";left=17;top=192;z=6;transparent=1;right=188;cls="static" };
  6. static6={ bottom=277;text="卡 类 型:";left=17;top=257;z=8;transparent=1;right=188;cls="static" };
  7. static3={ bottom=180;text="归属城市:";left=17;top=160;z=5;transparent=1;right=188;cls="static" };
  8. edit={ bottom=38;right=171;left=17;multiline=1;top=13;z=1;edge=1;cls="edit" };
  9. button={ bottom=80;text="查询";left=16;top=51;z=2;right=94;cls="button" };
  10. static={ bottom=115;text="所查号码:";left=17;top=95;z=3;transparent=1;right=188;cls="static" };
  11. static5={ bottom=244;text="城市邮编:";left=17;top=224;z=7;transparent=1;right=188;cls="static" };
  12. static2={ bottom=148;text="归属省份:";left=17;top=128;z=4;transparent=1;right=188;cls="static" }
  13. )
  14. /*}}*/
  15. winform.button.oncommand = function(id,event){
  16.         phone = winform.edit.text
  17.         if( #phone!=11){
  18.                 winform.msgbox("号码必须是11位")
  19.                 return ;
  20.         }
  21.         aa,bb,cc,dd,ee,ff,gg = get_phone( phone )
  22.         winform.static.text = "所查号码:"+ aa
  23.         winform.static2.text = "归属省份:"+ bb
  24.         winform.static3.text = "归属城市:"+ cc
  25.         winform.static4.text = "城市区号:"+ dd
  26.         winform.static5.text = "城市邮编:"+ ee
  27.         winform.static6.text = "卡 类 型:"+ ff + gg
  28. }
  29. get_phone = function( phone ){
  30.         import inet.whttp
  31.         http = inet.whttp(  );
  32.         str= http.get( "http://api.showji.com/Locating/www.showji.com.aspx?m="+ phone +"&output=json&callback=querycallback");
  33.         str = string.fromto(str)
  34.         var regexExpression =  "\a+\p+(\d+)\p+\a+\p+\a+\p+\a+\p+(:+)\p+\a+\p+(:+)\p+\a+\p+(\d+)\p+\a+\p+(\d+)\p+\a+\p+(:+)\p+\a+\p+(\a+)" ;
  35.         f = string.gmatch( str, regexExpression )
  36.         return f();
  37. }
  38. winform.show()
  39. win.loopMessage();
复制代码

最新评论

jyb21 发表于 2013-2-23 23:55:32

支持分享,多谢

支持分享,多谢
笑问天 发表于 2013-2-24 00:04:59

[i=s] 本帖最后由 笑问天 于 2013-2-24 00:24 编辑 [/i] 感谢分享! 看后,对”调用string.gmatch函数的时候,如果不显

本帖最后由 笑问天 于 2013-2-24 00:24 编辑

感谢分享!
看后,对”调用string.gmatch函数的时候,如果不显示地指定捕获,函数将捕获整个匹配模式。”有更好的理解,再次表示感谢。
wynn_li 发表于 2013-2-24 00:56:55

感谢分享,回复再看

感谢分享,回复再看
万事发↑新一天 发表于 2013-2-24 10:33:33

多谢分享

多谢分享
renmin 发表于 2013-2-24 11:54:36

非常值得学习

非常值得学习
wowo 发表于 2013-2-24 15:38:41

谢谢分享 需要源码学习下

谢谢分享 需要源码学习下
sheik101 发表于 2013-2-24 17:45:01

[i=s] 本帖最后由 sheik101 于 2013-2-24 17:51 编辑 [/i] 感谢分享,后面一段还需要消化下

本帖最后由 sheik101 于 2013-2-24 17:51 编辑

感谢分享,后面一段还需要消化下
小X 发表于 2013-2-24 18:44:11

支持分享,多谢


支持分享,多谢
CP3 发表于 2013-2-24 19:21:46

感谢分享,学习一下正则提取信息

感谢分享,学习一下正则提取信息
leisurely 发表于 2013-2-24 21:09:12

学习一下。感谢分享~~

学习一下。感谢分享~~
taste 发表于 2013-2-24 21:42:23

不错,支持分享。

不错,支持分享。
复古 发表于 2013-2-24 21:56:59

好好的学习一下

好好的学习一下
蜗牛快跑 发表于 2013-2-25 09:10:19

非常值得学习

非常值得学习
ProPHP 发表于 2013-2-25 09:35:32

感谢分享 {:hug:}

感谢分享
cjc0045 发表于 2013-2-25 09:51:11

哈哈 太感谢楼主了 正要这方面的参考资料呢。

哈哈 太感谢楼主了 正要这方面的参考资料呢。
yihefans 发表于 2013-2-25 09:59:34

想看看源码,学习一下。

想看看源码,学习一下。
plumeeq 发表于 2013-2-25 10:05:24

谢谢了,学习一下

谢谢了,学习一下
mamer 发表于 2013-2-25 15:10:32

是取那个网站的数据?

是取那个网站的数据?

手机版|未经许可严禁引用或转载本站文章|站长邮箱|aardio.com|aardio官方社区 ( 皖ICP备09012014号 )

GMT+8, 2017-11-23 20:47 , Processed in 0.093750 second(s), 21 queries , WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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