帮忙来个正则吧。淘宝要得到这个商品的，价格，名字。销量
$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)
要得到这个商品的，价格，名字。销量 回复 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
Local $aPrice,$iPrice = ""
$aPrice = StringRegExp($source1,'"J_StrPrice"\s*>(\d+\.\d+).*元',3)
If Not @error Then $iPrice = $aPrice
Local $aSales,$iSales = ""
$aSales = StringRegExp($source1,'(?i)月\s销\s量：</SPAN><EM>(\d*)</EM>件',3)
If Not @error Then $iSales = $aSales
MsgBox(0,"","商品名称:" & $sTitle & @CRLF & "价格:" & $iPrice & @CRLF & "月销量:" & $iSales)
问了几个朋友，好像都弄不了。 回复 2# fpquenya
A版给了这个正则，说是要先替换掉 回车
StringRegExp($source1,'(?!)月 销 量：</SPAN><EM>(\d*)</EM>',3)
还是不会弄。。 弄个gui不显示， 创建对象，_IEDocReadHTML 读取网页试试 回复 5# afan
直接用 IE 浏览器的方式，就可以，但是速度太慢，
而且做这个程序，是为了代理别人的商品。要每天批量查询价格和销量的变动 帮你找到了!!
打开http://detail.tmall.com/item.htm?id=13620534478后,这个网页里面获取一个"initApi" : 这个字段后面的一个网址,这个网址打开后有个"sellCountDO":{"sellCount":200},这个样的字段,这个里面的200就是已经售出的数量了..具体的你自己写打码把
可以的话加个分把..{:face (303):} 回复 7# 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, '"initApi" :.*"(.*?)"', 3)
If Not IsArray($initapi) Then
Return -1
EndIf
;获取销量
$rContext = _WinHTTP_GetRespond(-1, $initapi, 4 + 2, 10000)
If @error Then
Return -1
EndIf
$count = StringRegExp(BinaryToString($rContext), '"sellCount":(\d*)', 3)
If IsArray($count) Then
Return $count
Else
Return -1
EndIf
EndFunc
有难度。。。磨不出来。。 本帖最后由 小影 于 2012-12-7 12:43 编辑
#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
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)
EndIf
EndIf
Local $Sreg = StringRegExp($strarray[$i], 'Price>(\d+\.\d+)</STRONG>.*什么是专柜价', 3) ;获取价格
If Not @error Then
GUICtrlSetData($gccal2, "价格：" & $Sreg & " 元")
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 & " 件")
ExitLoop
EndIf
;~ EndIf
Next
EndFunc ;==>test
Func wm_syscommand($hWnd, $sMsg, $sWParam, $slParam)
Switch $sWParam
Case 61536
Exit
EndSwitch
EndFunc ;==>wm_syscommand
上效果图一张 学习一下，，， 只想说句!!正则无敌啊~~~~!{:face (270):}学习了 只想说句!!正则无敌啊~~~~!{:face (270):}学习了
页:
[1]
2