StringInString Problem

    Hallo,

    wie kann ich folgenden Wert herausfiltern?
    Der kpl. Link ist immer in der Zwischenablage

    Spoiler anzeigen


    $bak = ClipGet() ;eine Adresse http://www.autoit.de/index.php?form=ThreadAdd&boardID=2
    MsgBox(4096, "Adresse:", $bak)
    $result = StringInStr($bak, "www",1,1)
    $result2 = StringInStr($bak, ".",1,2)

    $domain=StringMid($bak,$result,$result2)

    MsgBox(4096, "Fertig:", $domain)

    Das Ergebnis sollte so aussehen:
    http://www.autoit.de

    also, alles was hinter .de oder .com erscheint sollte weg sein!

    Viele Grüße
    Ilse :(

    Einmal editiert, zuletzt von Ilse (27. September 2010 um 15:28)

    So bevor die regexp profis ankommen hier mal meine Lösung:

    [autoit]

    #include <Array.au3>
    $array = StringSplit("http://www.autoit.de/index.php?form=ThreadAdd&boardID=2","/",2)
    MsgBox(0,"","http://" & $array[2])

    [/autoit]

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.

    Oder so:

    [autoit]


    $bak='http://www.autoit.com/index.php?form=ThreadAdd&boardID=2'

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

    $result =StringRegExpReplace($bak,"(.de|.com)(.*)",'$1')
    MsgBox(4096, "Fertig:", $result)

    [/autoit]

    Hallp Chip,

    merci für die Hilfe!
    Aber wie kann ich die Adresse durch das Clipboard tauschen?

    Spoiler anzeigen


    #include <Array.au3>
    $bak = ClipGet()
    $array = StringSplit($bak,"/",2)
    MsgBox(0,"","http://" & $array[2])

    das geht irgendwie nicht... :(

    Zitat von Ilse

    Hallp Chip,

    merci für die Hilfe!
    Aber wie kann ich die Adresse durch das Clipboard tauschen?

    Spoiler anzeigen


    #include <Array.au3>
    $bak = ClipGet()
    $array = StringSplit($bak,"/",2)
    MsgBox(0,"","http://" & $array[2])

    das geht irgendwie nicht... :(

    Hier:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    While 1
    $bak = ClipGet()
    If StringInStr($bak,"http://") Then
    $array = StringSplit($bak,"/",2)
    MsgBox(0,"","http://" & $array[2])
    ExitLoop
    EndIf
    Wend

    [/autoit]

    Andy hat mir ein Schnitzel gebacken aber da war ein Raupi drauf und bevor Oscar das Bugfixen konnte kam Alina und gab mir ein AspirinJunkie.