返回列表 发帖

[AU3基础] 如何把网页的文本提取出来(问题解决感谢)

本帖最后由 dingwanz 于 2017-10-11 17:44 编辑

例如打开http://2017.ip138.com/ic.asp
想把这里边“您的IP是:[134.197.15.105] 来自:河南省XX市 联通“--这些提取出来保存到一个TXT文档里边,谢谢谢谢

看这个贴http://www.autoitx.com/viewthrea ... &from=favorites自己太菜 不会修改 特来请教

如果你能获取到这些网页源码  就用正则提取就好了、。

TOP

本帖最后由 heroxianf 于 2017-10-11 13:26 编辑

假设你知道怎么获取源码就可以这样简单提取。


  1. Local $Date = "<html>" & _

  2. '<head>' & _

  3. '<meta http-equiv="content-type" content="text/html; charset=gb2312">' & _

  4. '<title> 您的IP地址 </title>' & _

  5. '</head>' & _

  6. '<body style="margin:0px"><center>您的IP是:[202.211.156.167] 来自:XXX 电信</center></body></html>'

  7.  

  8. Local $Date_Out = StringRegExp($Date, '<center>(.*?)</center>', 3)

  9. MsgBox(0, "", $Date_Out[0])

复制代码 高亮切换

TOP

#include <Inet.au3>
#include<IE.au3>
#AutoIt3Wrapper_UseX64=n
Dim $url_get_info = "http://2017.ip138.com/ic.asp "

$Date = BinaryToString(InetRead($url_get_info,1))

Local $Date_Out = StringRegExp($Date, '<center>(.*?)</center>', 3)
MsgBox(0, "", $Date_Out[0])

谢谢heroxianf 成功了

TOP

回复 4# dingwanz

請看板規  解決了請修改標題

TOP

返回列表