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

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

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

autoit怎样实现搜索网页关键字的操作
如在淘宝中收集一些产品的资料数据
http://detail.tmall.com/item.htm ... scm=1003.651.1125.0

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[0]))
$name=StringRegExp($a, '产品名称：(.*?)\</li>', 3)
MsgBox(0,"",Encode2Unicode($name[0]))
$name=StringRegExp($a, '材质:(.*?)\</li>', 3)
MsgBox(0,"",Encode2Unicode($name[0]))

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

非常感谢，正需要这个呢

		自动登录	找回密码
密码			加入

[IE类操作] 怎样实现搜索网页关键字的操作

相关帖子