搜索
查看: 26469|回复: 239

[web] 手机号归属地查询

    [复制链接]

6

主题

37

帖子

339

积分

二级会员

Rank: 3Rank: 3

积分
339
发表于 2013-2-23 22:31:32 | 显示全部楼层 |阅读模式
晚上没有事情学习下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();
复制代码
回复

使用道具 举报

48

主题

593

帖子

3336

积分

五级会员

Rank: 8Rank: 8

积分
3336
发表于 2013-2-23 23:55:32 | 显示全部楼层

支持分享,多谢

支持分享,多谢
回复

使用道具 举报

15

主题

132

帖子

937

积分

三级会员

Rank: 4

积分
937
发表于 2013-2-24 00:04:59 | 显示全部楼层

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

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

感谢分享!
看后,对”调用string.gmatch函数的时候,如果不显示地指定捕获,函数将捕获整个匹配模式。”有更好的理解,再次表示感谢。
回复

使用道具 举报

12

主题

176

帖子

1062

积分

四级会员

Rank: 6Rank: 6

积分
1062
QQ
发表于 2013-2-24 00:56:55 | 显示全部楼层

感谢分享,回复再看

感谢分享,回复再看
再烦也别忘微笑,再急也要注意语调!
即使是不成熟的尝试,也胜于胎死腹中的策略。
回复

使用道具 举报

8

主题

97

帖子

635

积分

三级会员

Rank: 4

积分
635
发表于 2013-2-24 10:33:33 | 显示全部楼层

多谢分享

多谢分享
回复

使用道具 举报

8

主题

125

帖子

844

积分

三级会员

Rank: 4

积分
844
发表于 2013-2-24 11:54:36 | 显示全部楼层

非常值得学习

非常值得学习
回复

使用道具 举报

0

主题

2

帖子

36

积分

新手入门

Rank: 1

积分
36
发表于 2013-2-24 15:38:41 | 显示全部楼层

谢谢分享 需要源码学习下

谢谢分享 需要源码学习下
回复

使用道具 举报

7

主题

68

帖子

469

积分

二级会员

Rank: 3Rank: 3

积分
469
发表于 2013-2-24 17:45:01 来自手机 | 显示全部楼层

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

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

感谢分享,后面一段还需要消化下
回复

使用道具 举报

6

主题

132

帖子

1108

积分

四级会员

Rank: 6Rank: 6

积分
1108
发表于 2013-2-24 18:44:11 | 显示全部楼层

支持分享,多谢


支持分享,多谢
静步
回复

使用道具 举报

2

主题

48

帖子

1192

积分

四级会员

Rank: 6Rank: 6

积分
1192
QQ
发表于 2013-2-24 19:21:46 | 显示全部楼层

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

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

使用道具 举报

13

主题

73

帖子

634

积分

培训班

积分
634
发表于 2013-2-24 21:09:12 | 显示全部楼层

学习一下。感谢分享~~

学习一下。感谢分享~~
回复

使用道具 举报

0

主题

3

帖子

40

积分

新手入门

Rank: 1

积分
40
发表于 2013-2-24 21:42:23 | 显示全部楼层

不错,支持分享。

不错,支持分享。
回复

使用道具 举报

0

主题

1

帖子

6

积分

新手入门

Rank: 1

积分
6
发表于 2013-2-24 21:56:59 | 显示全部楼层

好好的学习一下

好好的学习一下
回复

使用道具 举报

1

主题

4

帖子

57

积分

一级会员

Rank: 2

积分
57
发表于 2013-2-25 09:10:19 | 显示全部楼层

非常值得学习

非常值得学习
回复

使用道具 举报

2

主题

43

帖子

295

积分

培训班

积分
295
发表于 2013-2-25 09:35:32 | 显示全部楼层

感谢分享 {:hug:}

感谢分享
回复

使用道具 举报

12

主题

204

帖子

1246

积分

荣誉会员

Rank: 8Rank: 8

积分
1246
QQ
发表于 2013-2-25 09:51:11 | 显示全部楼层

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

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

使用道具 举报

3

主题

46

帖子

320

积分

二级会员

Rank: 3Rank: 3

积分
320
发表于 2013-2-25 09:59:34 | 显示全部楼层

想看看源码,学习一下。

想看看源码,学习一下。
人能走多远,这话不要问双脚而是要问志向;人能攀多高,这事不是要问双手而要问意志。
回复

使用道具 举报

0

主题

18

帖子

156

积分

一级会员

Rank: 2

积分
156
发表于 2013-2-25 10:05:24 | 显示全部楼层

谢谢了,学习一下

谢谢了,学习一下
回复

使用道具 举报

0

主题

31

帖子

423

积分

二级会员

Rank: 3Rank: 3

积分
423
发表于 2013-2-25 15:10:32 | 显示全部楼层

是取那个网站的数据?

是取那个网站的数据?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

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

GMT+8, 2018-8-14 21:12 , Processed in 0.078125 second(s), 26 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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