hey also erstmal vorweg die Seite enthält leicht anstößige inhalte
es geht um folgende Teilseite: http://www.skins.be/babes/
also ich hab ein kleine Funktion geschrieben die mir alle Namen von A-Z und die dazugehörigen Links in 2 Arrays schreibt ..
funktioniert auch alles ganz gut aber das ist echt extrem extrem langsam, weil ich den code erst in eine datei schreibe und dann immer zeile für zeile auslese um die bestimmten berreiche festzulegen damit nicht alle links und namen zurückgegeben werden...
hier die Funktion:
Spoiler anzeigen
;wichtig ist der HTML Code ab zeile 615
Func _Get()
Local $URL_Babes = 'http://www.skins.be/babes/'
Local $InetSource
FileDelete($Temp)
$InetSource = _INetGetSource($URL_Babes)
FileWrite($Temp, $InetSource)
#region AllBabes
For $ii = 65 To 90
TrayTip("", $ii, 1)
Local $Start, $End, $Source = '', $Source2 = '', $Array
For $i = 1 To _FileCountLines($Temp)
If FileReadLine($Temp, $i) = ' <a name="' & Chr($ii) & '"></a>' Then
$Start = $i ; der Startpunkt wird festgelegt
ExitLoop
EndIf
Next
For $i = 1 To _FileCountLines($Temp)
If $ii = 66 Then
$EndSource = ' <br class="clf"/>' ; nach B ist im HTML Code eine unregelmäßigkeit (Most popular on Skins.be )
Else
$EndSource = ' <div class="capital">' ;bei den anderen passt alles
EndIf
If FileReadLine($Temp, $i) = $EndSource Then
If $i > $Start Then
$End = $i ;Endpunkt wird festgelegt
ExitLoop
EndIf
EndIf
Next
For $i = $Start + 4 To $End ;jetzt wird aus startpunkt und endpunkt ein Teilstring herausgefiltert indem dann per stringbetween(siehe unten) die namen und links herausgefiltert werden
$Source2 &= FileReadLine($Temp, $i) & @CRLF
Next
$Array = _StringBetween($Source2, '">', '</a>');namen
For $i = 1 To UBound($Array) - 1
_ArrayAdd($aAll, $Array[$i])
Next
$Array = _StringBetween($Source2, '<a href="', '" title=');links
For $i = 1 To UBound($Array) - 1
_ArrayAdd($aAllU, $Array[$i])
Next
Next
#endregion AllBabes
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>_GetBabes
[/autoit]weiß jemand wie ich das schneller machen könnte?