怎样实现搜索网页关键字的操作-已解决问题区-AUTOIT CN

linjuming 发表于 2012-3-11 02:12:29

怎样实现搜索网页关键字的操作

本帖最后由 linjuming 于 2012-3-11 02:14 编辑

autoit怎样实现搜索网页关键字的操作
如在淘宝中收集一些产品的资料数据
http://detail.tmall.com/item.htm?id=12224681317&spm=1003.1.1000009.7&scm=1003.651.1125.0
http://img165.poco.cn/mypoco/myphoto/20120311/02/4609372920120311021007052.jpg

ybb03 发表于 2012-3-11 02:28:33

得用正则表达式啊

nmgwddj 发表于 2012-3-11 02:43:02

_IELinkClickByText
--------------------------------------------------------------------------------

模拟鼠标点击带有与所提供字符串相匹配的文本子串的链接.

不知道能不能实现你的要求。

linjuming 发表于 2012-3-11 09:59:12

谁能做一个啊，我完全新手，不会怎么做

linjuming 发表于 2012-3-12 10:56:56

求高手帮忙

my788522 发表于 2012-3-12 16:35:54

#include <Inet.au3>
$a=_INetGetSource("http://detail.tmall.com/item.htm?id=12224681317")

$name=StringRegExp($a, '颜色分类:(.*?)\</li>', 3)
MsgBox(0,"",Encode2Unicode($name))
$name=StringRegExp($a, '产品名称：(.*?)\</li>', 3)
MsgBox(0,"",Encode2Unicode($name))
$name=StringRegExp($a, '材质:(.*?)\</li>', 3)
MsgBox(0,"",Encode2Unicode($name))

Func Encode2Unicode($EncodedString, $qz = '&#', $hz = ';')
;将 Unicode UTF 编码还原为字符 By afan
Local $Unicode, $i, $S2H, $Us
$S2H = StringRegExp($EncodedString, $qz & '(\w{4,5})' & $hz, 3)
If @error Then Return $EncodedString
For $i = 0 To UBound($S2H) - 1
$Us = ChrW(($S2H[$i]))
$Unicode = StringReplace($EncodedString, $qz & $S2H[$i] & $hz, $Us, 1)
$EncodedString = $Unicode
Next
$Unicode=StringReplace($Unicode,' ', " ")
Return $Unicode
EndFunc ;==>Encode2Unicode

linjuming 发表于 2012-3-12 21:24:18

谢谢my788522大哥，功能很强大

lindafu 发表于 2012-3-12 22:16:51

强大的正则！看看了

alice148 发表于 2012-3-30 17:54:02

强大的正则！看看了

qq309266378 发表于 2013-1-6 06:18:46

学习了，多谢分享

ipmitool 发表于 2013-9-10 10:10:01

Hi不能用耶, 會出線錯誤在地line 5

ak47gglllk 发表于 2013-12-6 09:49:40

非常感谢，正需要这个呢

页: [1]

AUTOIT CN's Archiver

怎样实现搜索网页关键字的操作