返回列表 发帖

[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

我也想了解,请大家都说说












2017最火正规网赚项目
第五代QQ机器人QQ群机器人论坛QQ机器人智能客服机器人QQ淘客机器人QQ群互联机器人..联系QQ800829129 演示3群:28352615

TOP

回复 4# dingwanz

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

TOP

_IEBodyReadText
返回文档中 <body> 标记中的文本.


#include <IE.au3>
_IEBodyReadText ( ByRef $o_object )


参数
$o_object 一个 InternetExplorer.Application 对象变量, 窗口或者框架(Frame)对象

TOP

返回列表