Hallo zusammen,
ich habe ein kleines Problem mit meinem Script.
Es gibt ebay shops die mehr als eine Versandart anbieten.
Z.b. Sparversand, Einschreiben und DHL Paket
Im HTML Code stehen alle unter
class="sh-TblCnt"><div><div>Sparversand (Deutsche Post Bücher-/Warensendung)</div>
der Inhalt der Klammern ändert sich und Sparversand und Standardversand.
$standard = _StringBetween($source, 'class="sh-TblCnt"><div><div>',"</div>")
$source hat der wert von _inetgetsource
Mein script funktioniert, wenn Sparversand vorhanden und Standardversand DHL weil es mir ja nur um DHL geht. (Variante1)
Wenn aber ein Shop kommt der nur Sparversand hat bricht das script ab.
Setze ich ein Case wo Standard = versender5 (versender5 = sparversand) ist die variante1 hinfällig.
Kann mir einer sagen was ich falsch mache?
Danke und Gruß
Norman
Func _versandchecken($excel_fenster, $ie_fenster)
_IELinkClickByText($inet,"Alle Details zum Versandanzeigen")
Sleep(1200)
WinSetState($ie_fenster,"",@SW_MINIMIZE)
For $s = 0 to 3
Select
#cs
Case $standard[$s] = $versender[0]
MsgBox(0,"",$standard[$s])
_IEQuit($inet)
Case Not $standard[$s] = $versender[0]
WinSetState($excel_fenster,"", @SW_MAXIMIZE)
Sleep(1000)
$excel.Cells($i, 10).Font.ColorIndex = 3
Sleep(500)
_IEQuit($inet)
#ce
Case $versandtext[0] = " - Paketversand"
WinSetState($excel_fenster,"", @SW_MAXIMIZE)
Sleep(500)
$excel.Cells($i, 10).Interior.ColorIndex = 16
_IEQuit($inet)
;-----------------------------------------------------------------
;DHL Versand
Case $standard[$s] = $versender[0]
WinSetState($excel_fenster,"", @SW_MAXIMIZE)
Sleep(1000)
$excel.Cells($i, 10).font.ColorIndex = 45
Sleep(500)
Case Not $standard[$s] = $versender[0]
WinSetState($excel_fenster,"", @SW_MAXIMIZE)
Sleep(1000)
$excel.Cells($i, 10).Font.ColorIndex = 3
Sleep(500)
_IEQuit($inet)
;--> DHL Versand
;-----------------------------
; DPD Versand
Case $versender[1] = $standard[$s]
WinSetState($excel_fenster,"", @SW_MAXIMIZE)
Sleep(1000)
$excel.Cells($i, 10).Font.ColorIndex = 3
Sleep(500)
Case Not $standard[$s] = $versender[0]
WinSetState($excel_fenster,"", @SW_MAXIMIZE)
Sleep(1000)
$excel.Cells($i, 10).Font.ColorIndex = 3
Sleep(500)
_IEQuit($inet)
;--> DPD Versand
;-----------------------------
;Hermes Versand
Case $versender[2] = $standard[$s]
WinSetState($excel_fenster,"", @SW_MAXIMIZE)
Sleep(1000)
$excel.Cells($i, 10).Font.ColorIndex = 5
Sleep(500)
Case Not $standard[$s] = $versender[2]
WinSetState($excel_fenster,"", @SW_MAXIMIZE)
Sleep(1000)
$excel.Cells($i, 10).Font.ColorIndex = 3
Sleep(500)
_IEQuit($inet)
;--> Hermes Versand
;-----------------------------
;Deutsche Post Brief
Case $versender[3] = $standard[$s]
WinSetState($excel_fenster,"", @SW_MAXIMIZE)
Sleep(1000)
$excel.Cells($i, 10).Font.ColorIndex = 3
Sleep(500)
EndSelect
Next
_IEQuit($inet)
EndFunc
