Версия AutoIt: 3.
Смысл такой, программа вытаскивает ISBN номмера из аукционав из Ebay исползуя список Item номмеров (номера аукционав) к примеру сдесь http://www.ebay.de/itm/170865924878 ISBN-10:3540850163 ISBN-13:9783540850168
Вот скрипт этой программы
Примечания:
К сожалению программа работает не совсем правильно.
Она считывает ISBN номера, с ауктионав в которых их совсем нет наприме как сдесь http://www.ebay.de/itm/370625478791
Откуда она эти номера считывает, я не знаю и получается, что в результате большое колличество совершенно "левых номмеров".
Так же программа иногда не считывает ISBN номера, там где они есть
Посмотрите пожалуйсто скрипт, возможно вы найдёте причину или сможите модернизировать где то его.
Пс
Сам скрипт писал не я.
Я искал подходящий раздел для этой темы и пришёл всё таки сюда.
Важное примечание
Да и ещё есть такая любопытная деталь.
В то время когда программа работает (переберает номера). Я лазию по аукционам, но через Firefox. Сама програма идёт через IE.
Возможно ли что программа из за етого каким то оброзом считывает именно там где я лазию. Потому что вроде номера потом в списке, который сделала програма иногда совпадают с ISBN намерами тех аукционав на которыe я заходил сам. (Или может это всё же совпадение)
Смысл такой, программа вытаскивает ISBN номмера из аукционав из Ebay исползуя список Item номмеров (номера аукционав) к примеру сдесь http://www.ebay.de/itm/170865924878 ISBN-10:3540850163 ISBN-13:9783540850168
Вот скрипт этой программы
Код:
#include <array.au3>
$Fname="Item.txt"
$Fname2="ISBN.txt"
$Fname3="ISBN.ini"
$i=1
Dim $items[$i+1][2]
$Items[0][1]=2
FileOpen($Fname, 0)
$timer=TimerInit()
While FileReadLine($Fname, $i)
redim $items[$i+1][2]
$Items[$i][0]=FileReadLine($Fname, $i)
$i+=1
toolTip("???????? = " & $i & " ?????? ??????? = " & round((Timerdiff($timer)/1000), 0) & " ???", 0,0)
WEnd
FileClose($Fname)
$maxItems=UBound($Items)
$maxItems2=2
$Items[0][0]=UBound($Items)-1
$oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
$k=0
$i=0
$timer=TimerInit()
Dim $aLinks[1]
For $i=1 to UBound($Items)-1
$WinUrl ='http://cgi.ebay.de/ws/eBayISAPI.dll?ViewItem&item=' & $Items[$i][0] & '&ssPageName=STRK:MEWNX:IT'
toolTip("???????? = " & $i & " ?????? ??????? = " & round((Timerdiff($timer)/1000), 0) & " ???", 0,0)
$oHTTP.Open('GET', $WinUrl & $i, False)
$oHTTP.Send('')
$oHTTP.WaitForResponse
$sHTML = $oHTTP.ResponseText
$aLinksRaw = StringRegExp($sHTML,'(?si)ISBN.+?headers=.+?">([\d]+?)</td>', 3)
For $j=1 to uBound($aLinksRaw)
ReDim $Items[$maxItems][$MaxItems2+1]
$Items[$i][$j]=$aLinksRaw[$j-1]
If $j=$MaxItems2 Then
$MaxItems2+=1
$Items[0][1]=$MaxItems2
EndIf
Next
Next
;~ _ArrayDisplay($Items)
FileOpen($Fname2, 2)
For $i=1 to UBound($Items)-1
toolTip("?????? ? txt = " & $i & " ?????? ??????? = " & round((Timerdiff($timer)/1000), 0) & " ???", 0,0)
FileWriteLine($Fname2, "Item " & $Items[$i][0] & " ISBN " & $Items[$i][1])
For $j=2 to $items[0][1]-1
If $Items[$i][$j]="" then exitloop
FileWriteLine($Fname2, @TAB&@TAB&" ISBN " & $Items[$i][$j])
Next
Next
FileClose($Fname2)
; Ini
For $i=1 to UBound($Items)-1
toolTip("?????? ? ini = " & $i & " ?????? ??????? = " & round((Timerdiff($timer)/1000), 0) & " ???", 0,0)
IniWrite(@ScriptDir & "\" & $Fname3, "", "$Item" & $i, $Items[$i][0])
For $j=1 to $items[0][1]-1
If $Items[$i][$j]="" then exitloop
IniWrite(@ScriptDir & "\" & $Fname3, "", "$IBSN" & $i & "-" & $J, $Items[$i][$j])
Next
next
IniWrite(@ScriptDir & "\" & $Fname3, "", "$Item" & $i+1, "exit")Примечания:
К сожалению программа работает не совсем правильно.
Она считывает ISBN номера, с ауктионав в которых их совсем нет наприме как сдесь http://www.ebay.de/itm/370625478791
Откуда она эти номера считывает, я не знаю и получается, что в результате большое колличество совершенно "левых номмеров".
Так же программа иногда не считывает ISBN номера, там где они есть
Посмотрите пожалуйсто скрипт, возможно вы найдёте причину или сможите модернизировать где то его.
Пс
Сам скрипт писал не я.
Я искал подходящий раздел для этой темы и пришёл всё таки сюда.
Важное примечание
Да и ещё есть такая любопытная деталь.
В то время когда программа работает (переберает номера). Я лазию по аукционам, но через Firefox. Сама програма идёт через IE.
Возможно ли что программа из за етого каким то оброзом считывает именно там где я лазию. Потому что вроде номера потом в списке, который сделала програма иногда совпадают с ISBN намерами тех аукционав на которыe я заходил сам. (Или может это всё же совпадение)
\s[\d-]+', 3) сдесь надо его вставить как я понимаю.