String ab bestimmter Stelle auslesen

PokerFace

Hallo
ich suche mit meinem Programm Links aus einem Source Code von der Google-Bildersuche.
Beispiel:
http://www.autoit.de/view-source:%5…p.jpg%5B/url%5D http://www.filipinofilipino.com/wp-content/uploads/2009/10/meet-me-halfway-bep.jpg</a>

Ich möchte jetzt den String so "schneiden", dass dieser ab dem 2 Http anfängt.
Also aus dem:
http://www.autoit.de/view-source:%5…p.jpg%5B/url%5D http://www.filipinofilipino.com/wp-content/uploads/2009/10/meet-me-halfway-bep.jpg</a>
Wird:
http://www.autoit.de/view-source:%5…p.jpg%5B/url%5D

Gibt es dafür eine Funktion oder ähnliches?
Ich steh gerade ein bisschen auf dem Schlauch!

**Schnitzel**

öhm so?

[autoit]

#Include <String.au3>
$string = "http://t1.gstatic.com/images?q=tbn:JLfF4zEkpN91rM:http://www.filipinofilipino.com/wp-content/upl…halfway-bep.jpg"
$between = _Stringbetween($string, "", "")
if isarray($between) then
msgbox(0,"",$between[0])
endif

[/autoit]

SEuBo

fast richtig. nur dass StringBetween nen Array zurückgibt.

**Schnitzel**

Zitat von SEuBo

fast richtig. nur dass StringBetween nen Array zurückgibt.

oh ja klar. in der eile wiedermal...

und garkeine regex lösung SEuBo?^^

PokerFace

Oh den Trick mit [url] kannte ich noch gar nicht !
Werde ich morgen sofort testen!
Vielen Dank.

m-obi

Ach komm du kennst doch die String UDF???

**BugFix**

Warum willst du dir die Links aus der Source rausfummeln? Kannst doch direkt die Links aus der Seite auslesen z.B. mit _IELinkGetCollection().

PokerFace

Zitat von m-obi

Ach komm du kennst doch die String UDF???

Ich kann damit arbeiten, jedoch kannte die den Trick nicht

BugFix :
Ich versuche das ohne einen Explorer zu machen! Damit das Programm Systemunabhängig ist.
Also es gibt auch Menschen, die haben den IExplorer nicht mehr.
Ich lade mir den SourceCode und fummel die Links raus

Edit:
Die Variante funktioniert leider nicht

Ich hab keine Ahnung warum!

Hier mein Skript:

[autoit]

Case $Suchen
$i = "1"
$Titel = GUICtrlRead($Name)
$Titel = StringReplace ($Titel, " ", "+")
$Link = "http://images.google.de/images?um=1&hl=de&tbs=isch%3A1&sa=1&q="&$Titel&"+Cover&btnG=Suche&aq=f&oq=&start=0"
$Quelltext = _INetGetSource ($Link)
$CoverLink = _StringBetween ($Quelltext, "src=", ".jpg")
$CoverLink2 = _StringBetween ($CoverLink[$i], "", "")
If IsArray($CoverLink2) then _ArrayDisplay ($CoverLink2)
MsgBox (0, "", "Kein array")
Exit
;~ InetGet ($CoverLink[$i]&".jpg", @TempDir&"Cover-"&$Titel&".jpg")
;~ $i = $i+1
;~ $Pic1 = GUICtrlCreatePic(@TempDir&"Cover-"&$Titel&".jpg", 120, 272, 292, 244, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

[/autoit]

SEuBo

Spoiler anzeigen

[autoit]

#include <Array.au3>
$Titel = "Katze"
$Link = "http://images.google.de/images?um=1&hl=de&tbs=isch%3A1&sa=1&q="&StringReplace($Titel," ","+")&"+Cover&btnG=Suche&aq=f&oq=&start=0"
$sSource = __InetGetSource($Link)
$aPic = StringRegExp($sSource,"(?>href=/imgres\?imgurl=)(.+?)(?>&imgrefurl=)",3)
_ArrayDisplay($aPic)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func __InetGetSource($s_URL)
Local $sString = InetRead($s_URL,1)
Local $nError = @error, $nExtended = @extended
Return SetError($nError, $nExtended, BinaryToString($sString))
EndFunc ;==>__InetGetSource

[/autoit]

m-obi

Also wenn ich im Notepad den Quelltext nach url und /url durchsuche, finde ich die nicht. (url und /url mit eckigen Klammern)