帮忙来个正则吧。淘宝要得到这个商品的，价格，名字。销量

9922250

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.open("GET", "http://detail.tmall.com/item.htm?id=13620534478", False)
$oHTTP.send()
$source1 = $oHTTP.responsetext
MsgBox(0,0,$source1)


要得到这个商品的，价格，名字。销量

fpquenya

回复 1# 9922250

月销量和月成交记录,通过查看网页源码显示总是0,不知如何提取,其它可以.

$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.open("GET", "http://detail.tmall.com/item.htm?id=13620534478", False)
$oHTTP.send()
$source1 = $oHTTP.responsetext

Local $aTitle,$sTitle = ""
$aTitle = StringRegExp($source1,'name="title"\s*value="(.*?)"',3)
If Not @error Then $sTitle = $aTitle[0]

Local $aPrice,$iPrice = ""
$aPrice = StringRegExp($source1,'"J_StrPrice"\s*>(\d+\.\d+).*元',3)
If Not @error Then $iPrice = $aPrice[0]

Local $aSales,$iSales = ""
$aSales = StringRegExp($source1,'(?i)月\s销\s量：</SPAN><EM>(\d*)</EM>件',3)
If Not @error Then $iSales = $aSales[0]

MsgBox(0,"","商品名称:" & $sTitle & @CRLF & "价格:" & $iPrice & @CRLF & "月销量:" & $iSales)

9922250

问了几个朋友，好像都弄不了。

9922250

回复 2# fpquenya


    A版给了这个正则，说是要先替换掉 回车

StringRegExp($source1,'(?!)月 销 量：</SPAN><EM>(\d*)</EM>',3)


还是不会弄。。

afan

弄个gui不显示， 创建对象，_IEDocReadHTML 读取网页试试

9922250

回复 5# afan


    直接用 IE 浏览器的方式，就可以，但是速度太慢，

而且做这个程序，是为了代理别人的商品。要每天批量查询价格和销量的变动

suiyefeng

帮你找到了!!
打开http://detail.tmall.com/item.htm?id=13620534478后,这个网页里面获取一个"initApi" : 这个字段后面的一个网址,这个网址打开后有个"sellCountDO":{"sellCount":200},这个样的字段,这个里面的200就是已经售出的数量了..具体的你自己写打码把

可以的话加个分把..

9922250

回复 7# suiyefeng


    有难度。。。磨不出来。。

suiyefeng

回复 8# 9922250


    源码给你把...

  
#include <WinHttp_GetRespond.au3>

$url = "http://detail.tmall.com/item.htm?id=13620534478&static=false&hasbucket=1"
$list = SellCount($url)

MsgBox(64,"月销量",$list)

Func SellCount($url)

        $rContext = _WinHTTP_GetRespond(-1, $url, 4 + 2, 10000)
        If @error Then
                Return -1
        EndIf
        ;获取含有销量的网址
        $initapi = StringRegExp($rContext[0], '"initApi" :.*"(.*?)"', 3)
        If Not IsArray($initapi) Then
                Return -1
        EndIf
        ;获取销量
        $rContext = _WinHTTP_GetRespond(-1, $initapi[0], 4 + 2, 10000)
        If @error Then
                Return -1
        EndIf

        $count = StringRegExp(BinaryToString($rContext[0]), '"sellCount":(\d*)', 3)
        If IsArray($count) Then
                Return $count[0]
        Else
                Return -1
        EndIf
        
EndFunc

kuku645

有难度。。。磨不出来。。

小影

#include <IE.au3>
#include<guiconstantsex.au3>
#include<file.au3>
#include<windowsconstants.au3>
GUICreate("IE", 500, 480)
Global $gccal = GUICtrlCreateInput("", 10, 340, 440, 30)
Global $gccal2 = GUICtrlCreateInput("", 10, 380, 440, 30)
Global $gccal3 = GUICtrlCreateInput("", 10, 420, 440, 30)
_IEErrorHandlerRegister()
$oie = _IECreateEmbedded()
Local $obj = GUICtrlCreateObj($oie, 10, 10, 490, 290)
GUISetState()
GUIRegisterMsg($WM_SYSCOMMAND, "wm_syscommand")
Global $url = "http://detail.tmall.com/item.htm?id=13620534478"
test($url)
While 1
        Local $msg = GUIGetMsg()
        Select
                Case $msg = -3
                        Exit
        EndSelect
        Sleep(1000)
WEnd

Func test($url)
        Local $html = _IENavigate($oie, $url)
        _IEAction($oie, "refresh")
        _IELoadWait($oie)
        Local $html3 = _IEBodyReadHTML($oie)
        $hw = FileOpen(@DesktopDir & "\1.txt", 10)
        FileWrite($hw, "")
        FileWriteLine(@DesktopDir & "\1.txt", $html3)
        Local $strarray
        _FileReadToArray(@DesktopDir & "\1.txt", $strarray)
        
        FileClose($hw)
        FileDelete(@DesktopDir & "\1.txt")
        GUICtrlSetData($gccal, "")
        For $i = 238 To $strarray[0]
                Local $strmid = StringRegExp($strarray[$i], "举报此商品", 3)
                If Not @error Then; 名称
                        Local $Strname = StringRegExp($strarray[$i - 1], 'target=_blank>([^\/]+?)</A>', 3) ;获取名称
                        If Not @error Then
                                GUICtrlSetData($gccal, "商品名称：" & $Strname[0])
                        EndIf
                EndIf
                Local $Sreg = StringRegExp($strarray[$i], 'Price>(\d+\.\d+)</STRONG>.*什么是专柜价', 3) ;获取价格
                If Not @error Then
                        GUICtrlSetData($gccal2, "价格：" & $Sreg[0] & " 元")
                EndIf
;~                 Local $strmid3=StringRegExp($strarray[$i],"预计三日达",3) ;此字符为网站内容唯一的，可利用
;~                 If Not @error Then ;月销量
                Local $Srtmo = StringRegExp($strarray[$i], '.*月销量.+Num>(\d+)</EM>', 3) ;获取销量
                If Not @error Then
                        GUICtrlSetData($gccal3, "月销量：" & $Srtmo[0] & " 件")
                        ExitLoop
                EndIf
;~                 EndIf
        Next

EndFunc   ;==>test

Func wm_syscommand($hWnd, $sMsg, $sWParam, $slParam)
        Switch $sWParam
                Case 61536
                        Exit
        EndSwitch
EndFunc   ;==>wm_syscommand

小影

上效果图一张

weeks1

学习一下，，，

小凯

只想说句!!正则无敌啊~~~~!学习了

小凯

只想说句!!正则无敌啊~~~~!学习了