Also ich hab eine Suchmaschine gemacht die, die ergebnisse in eine datei reinschreibt:
[section]
---------- C:\D2JSP\D2.TXT
» Need 1 Dest 1 Ter
O Fg
» My Last Unid Topic! O 19x Unid Cta Need 850fg Each 1 2 3 4
Buy 2 Or More - 830 Fg Each
» O Lo Rune Need Fg
O Lo Rune Need Fg
» Hi , I Need Keys
Yar
» Offer Annihilus 19/20/10 1 2 3
Need Forum Gold.
das sind die Ergebnisse vom suchdurchlauf aber da das ganz schön unübersichtlich ist möchte ich sachen die ich nicht brauch rauslöschen und nur die "richtigen" ergebnisse angezeigt bekommen also das muss übrig bleiben:
index.php?showtopic=19576353&f=170&st=20 und Need Forum Gold der link fürht dann auf ner seite zu nem thread wo jemand forum gold braucht
erster versuch :
[autoit]#include
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]#Region ### START Koda GUI section ### Form=
[/autoit][autoit][/autoit][autoit]$Form1 = GUICreate("Auslese", 757, 229, 194, 122)
[/autoit][autoit][/autoit][autoit]$read = GUICtrlCreateButton("Auslesen", 104, 8, 171, 25, 0)
[/autoit][autoit][/autoit][autoit]$List1 = GUICtrlCreateList("", 16, 40, 353, 175)
[/autoit][autoit][/autoit][autoit]$safe = GUICtrlCreateButton("In die Zwischenablage kopieren", 496, 8, 171, 25, 0)
[/autoit][autoit][/autoit][autoit]$List2 = GUICtrlCreateList("", 384, 40, 353, 175)
[/autoit][autoit][/autoit][autoit]GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]#EndRegion ### END Koda GUI section ###
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit]$nMsg = GUIGetMsg()
[/autoit][autoit][/autoit][autoit]Switch $nMsg
[/autoit][autoit][/autoit][autoit]Case $GUI_EVENT_CLOSE
[/autoit][autoit][/autoit][autoit]Exit
[/autoit][autoit][/autoit][autoit]Case $read
[/autoit][autoit][/autoit][autoit]$da = FileExists ( "found.ini" )
[/autoit][autoit][/autoit][autoit]if $da = 0 Then
[/autoit][autoit][/autoit][autoit]MsgBox ( 2000, "Error", "Keine found.ini vorhanden" )
[/autoit][autoit][/autoit][autoit]Else
[/autoit][autoit][/autoit][autoit]$aufi = FileOpen ( "found.ini", 2 )
[/autoit][autoit][/autoit][autoit]IniDelete ( $aufi, "<A href="\"
EndIf
EndSwitch
[/autoit][autoit][/autoit][autoit]WEnd
[/autoit][autoit][/autoit][autoit][/autoit]mein zweiter versuch :
[autoit]HotKeySet(\"{ESC}\", \"_exit\")
[/autoit][autoit][/autoit][autoit]#include
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]$Form1 = GUICreate(\"Ausleseprogramm\", 586, 380, 243, 195)
[/autoit][autoit][/autoit][autoit]$Button1 = GUICtrlCreateButton(\"Auslesen\", 18, 8, 235, 25, 0)
[/autoit][autoit][/autoit][autoit]$List1 = GUICtrlCreateList(\"\", 18, 40, 241, 305)
[/autoit][autoit][/autoit][autoit]$List2 = GUICtrlCreateList(\"\", 266, 40, 311, 305)
[/autoit][autoit][/autoit][autoit]GUICtrlSetOnEvent(-1, \"OKPressed\")
[/autoit][autoit][/autoit][autoit]$Button2 = GUICtrlCreateButton(\"In die Zwischenablage kopieren\", 270, 8, 305, 25, 0)
[/autoit][autoit][/autoit][autoit]$Button3 = GUICtrlCreateButton(\"Speichern\", 270, 350, 305, 25, 0)
[/autoit][autoit][/autoit][autoit]GUICtrlSetState(-1,$GUI_DISABLE)
[/autoit][autoit][/autoit][autoit]$Label1 = GUICtrlCreateLabel(\"Created by W1NDF0RC3 and Greek\", 15, 353, 206, 17)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]$var = IniReadSection(\"found.ini\", \"section\")
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit]$nMsg = GUIGetMsg()
[/autoit][autoit][/autoit][autoit]Switch $nMsg
[/autoit][autoit][/autoit][autoit]Case $GUI_EVENT_CLOSE
Exit
Case $Button1
For $i = 1 To $var[0][0]
;aufteilung
$split = StringSplit($var[$i][1], \";\")
Select
Case $split[0] = 2
$text1 = StringReplace($split[1], " "',="" "")=""
$text2 = StringReplace($text1, "&view=getnewpost title=Goto last unread>»", "")
; text2 -> url
$text3 = StringReplace($split[2], '"', "")
$text4 = StringReplace($text3, "<A $split2 = StringSplit($text5, "<", "")
; $split2[1] -> name
GUICtrlSetData ( $List1, $split2[1])
GUICtrlSetData ( $List2, "http://forums.d2jsp.org/"&$text2)
Case else
$text01 = StringReplace($split[1], '"', "")
$text02 = StringReplace($text01, "&view=getnewpost title=Goto last unread>»", "")
; text2 -> url
$text03 = StringReplace($split[2], '"', "")
$text04 = StringReplace($text03, " ", "")
$text05 = StringReplace($text04, ' 1 ', "")
$split2 = StringSplit($text05, "<", "")
; $split2[1] -> name
GUICtrlSetData ( $List1, $split2[1])
GUICtrlSetData ( $List2, "http://forums.d2jsp.org/"&$text02)
EndSelect
GUICtrlSetState($Button3,$GUI_ENABLE)
Next
Case $Button2
$link = GUICtrlRead($List2)
ClipPut ( "http://forums.d2jsp.org/"&$link )
Case $Button3
EndSwitch
WEnd
Func OKPressed()
[/autoit][autoit][/autoit][autoit]EndFunc
[/autoit][autoit][/autoit][autoit]Func _exit()
Exit
EndFunc
es geht aber noch nicht richtig bei 2ten tauchen immer fehler auf und das hat auch nen freund gemacht ich versteh das stringreplace noch nicht so darum wollte ichs mit anderen befehlen machen ...
EDIT!!!: Das do oben sind net die Suchdurchlaufe die Seite hat die automatisch optimal umgewandelt!!!
Wie hat die das gemacht?^^ normaler weise ist das ganz durcheinander
[Blockierte Grafik: http://img294.imageshack.us/img294/9046/d2jsptoolsjr3.jpg]