找回密码
 加入
搜索
查看: 2760|回复: 1

[AU3基础] 【已解决】求外网IP地理位置正则

[复制链接]
发表于 2012-11-17 09:28:00 | 显示全部楼层 |阅读模式
本帖最后由 elexy 于 2012-11-17 13:56 编辑
$text = 'var returnCitySN = {"cip": "119.127.237.217", "cid": "441900", "cname": "广东省东莞市"};’

;目的就是抓出来下面两个内容,效果如下

$ip = "119.127.237.217"
$add = "广东省东莞市"

;求这两个正则公式,谢谢各位正则高手了。
发表于 2012-11-17 10:07:49 | 显示全部楼层
(\d+\.[^"]+).+?([^"]+)"}
 楼主| 发表于 2012-11-17 13:32:14 | 显示全部楼层
本帖最后由 elexy 于 2012-11-17 13:37 编辑

回复 2# afan
先谢谢afan,可是抓不出来,不知道我哪里弄错了???
$text = 'var returnCitySN = {"cip": "119.127.237.217", "cid": "441900", "cname": "广东省东莞市"};'
$ipadd = StringRegExp($text,'(\d+\.[^"]+).+?([^"]+)"}',3) 
MsgBox(0,0,$ipadd)
发表于 2012-11-17 13:46:25 | 显示全部楼层
A版的正则没错,你的代码错了
### 友情提示:本脚本由 Au3.REGHelper 于 2012/11/17 13:44 自动生成,不保证其正确性,请自行测试 ###
#include <Array.au3>
Local $Str = 'var returnCitySN = {"cip": "119.127.237.217", "cid": "441900", "cname": "广东省东莞市"};' & @CRLF & @CRLF
MsgBox(0, '原字符串', $Str)
Local $Test = StringRegExp($str, '(\d+\.[^"]+).+?([^"]+)"}', 3, 1)
If Not @Error Then MsgBox(0, '匹配数量: ' & UBound($Test), '其中[0]元素为: ' & $Test[0])
_ArrayDisplay($Test, UBound($Test))
 楼主| 发表于 2012-11-17 13:55:33 | 显示全部楼层
回复 4# lpxx

谢谢谢谢,小弟对正则一窍不通,原来是用到数组,Afan在正则上的造诣令我辈望尘莫及,一句简短的公式取两个值。我一直坚信正则方面afan肯定没错,所以我在问 我哪里弄错了?呵呵!!!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-24 08:22 , Processed in 0.094339 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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