Hallo,
ich habe ein Programm geschrieben, womit es möglich ist, einen bestimmten Stringbereich aus einem Quellcode einer Website auszulesen. Jedoch möchte ich noch eine Funktion einbauen, womit man, wenn es mehrere Übereinstimmungen zur nächsten springt. Ich denke, dass dies am besten mit einer Schleife funktioniert. Da ich keinen Befehl wie InetStringRead gefunden habe, hoffe ich, dass ihr mir weiterhelfen könnt.
Danke im vorraus.
Dann zeig mal was du bisher hast und sag was du noch wie erweitern möchtest.
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <String.au3>
#include <Array.au3>
#include <MsgBoxConstants.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Form1", 465, 238, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$URL = GUICtrlCreateLabel("URL", 8, 8, 37, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 8, 32, 449, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Search_1 = GUICtrlCreateLabel("Search_1", 8, 72, 73, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 8, 96, 449, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Search_2 = GUICtrlCreateLabel("Search_2", 8, 136, 73, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 8, 160, 449, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Ok = GUICtrlCreateButton("Ok", 384, 200, 75, 25)
GUICtrlSetOnEvent($Ok, "OkButton")
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Anzahl = GUICtrlCreateLabel("Anzahl", 8, 200, 53, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 64, 200, 25, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func Form1Close()
Exit
EndFunc
While 1
Sleep(100)
WEnd
Func OkButton()
Local $Link = GUICtrlRead($Input1)
Local $source = _INetGetSource($Link)
Local $S1 = GUICtrlRead($Input2)
Local $S2 = GUICtrlRead($Input3)
Local $S3 = GUICtrlRead($Input3)
$z = 0
While $z = $S3
Local $ary = _StringBetween($source, $S1, $S2)
If $z = $S3 Then
;Hier soll ein Befehl hin, welcher den ersten Treffer überspringt und den nächsten ausgibt
MsgBox(0, "Ary", $ary[0])
Else
$z = $z + 1
EndIf
WEnd
EndFuncDas habe ich bisher
_StringBetween() gibt ein Array zurück.
Also nicht einen einzelnen Wert sondern mehrere welche man jeweils durch den Index in den eckigen Klammern ansprechen kann.
Du lässt dir mit $ary[0] also das erste Element dieses Arrays ausgeben.
Das zweite Element würde man demzufolge an welchem Index finden?
Hier mal dein Beispiel so angepasst, dass dir vielleicht klarer wird was du eigentlich wie ermittelst:
#include <GUIConstantsEx.au3>
#include <String.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Form1", 465, 238, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, Form1Close)
GUICtrlCreateLabel("URL", 8, 8, 37, 24)
$Input1 = GUICtrlCreateInput("", 8, 32, 449, 28)
GUICtrlCreateLabel("Search_1", 8, 72, 73, 24)
$Input2 = GUICtrlCreateInput("", 8, 96, 449, 28)
GUICtrlCreateLabel("Search_2", 8, 136, 73, 24)
$Input3 = GUICtrlCreateInput("", 8, 160, 449, 28)
$Ok = GUICtrlCreateButton("Ok", 384, 200, 75, 25)
GUICtrlSetOnEvent($Ok, OkButton)
GUISetState(@SW_SHOW)
While 1
Sleep(10)
WEnd
Func Form1Close()
Exit
EndFunc ;==>Form1Close
While 1
Sleep(100)
WEnd
Func OkButton()
Local $Link = GUICtrlRead($Input1)
If StringLeft($Link, 4) <> "http" Then $Link = "http://" & $Link
Local $source = BinaryToString(InetRead($Link))
Local $S1 = GUICtrlRead($Input2)
Local $S2 = GUICtrlRead($Input3)
Local $a_Founds = _StringBetween($source, $S1, $S2)
_ArrayDisplay($a_Founds)
EndFunc ;==>OkButton