String neu zusammensetzen

    Guten Morgen zusammen,

    Ich möchte ein String neu zusammensetzen.

    Die Werte kann ich mittlerweile auslesen.(Dank eurer Hilfe)
    Aber das zusammensetzen klappt leider nicht!

    Hier der Code mit Beispiel der Zwischenablage! (Versuche...)

    [autoit]


    #Include <String.au3>
    #Include <Array.au3>
    #cs Die Zwischenablage

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

    <option value="375">Dackel</option>
    <option value="800">Collie</option>
    <option value="900">Schäferhund</option>

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

    #ce

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

    $string = ClipGet()

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

    $search = _StringBetween($string,'">','</')
    _ArrayDisplay($search)
    $search2 = _StringBetween($string,'value="','">')
    _ArrayDisplay($search2)

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

    For $i = 0 to UBound ($search)-1
    Msgbox(0,"",$search[$i])
    next

    [/autoit]

    Das Ergebnis sollte so aussehen:

    $Dackel = 375
    $Collie = 800
    $Schäferhund = 900

    Das ganze muß dann noch in eine ini!
    Aber da bin ich noch etwas entfernt

    Grüße
    Ilse ;)

    3 Mal editiert, zuletzt von Ilse (26. April 2011 um 11:23)

    bitte schön:

    Spoiler anzeigen
    [autoit]

    #Include <String.au3>
    #Include <Array.au3>
    #cs Die Zwischenablage

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

    <option value="375">Dackel</option>
    <option value="800">Collie</option>
    <option value="900">Schäferhund</option>

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

    #ce

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

    Local $ini = '[Allgemein]' & @CRLF
    $string = ClipGet()

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

    $myString = _StringBetween($string, '="', '</')

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

    For $i = 0 To UBound($myString) -1
    $a2 = StringSplit($myString[$i],'">', 1)
    $ini &= $a2[1] & '=' & $a2[2] & @CRLF
    Next

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

    MsgBox(0, '', $ini)

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

    FileWrite(@DesktopDir & '\meini_ini.ini', $ini); ini Datei wird auf Desktop erstellt ;)

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

    MfG Schnuffel

    "Sarkasmus ist die niedrigste Form des Witzes, aber die höchste Form der Intelligenz."
    Val McDermid

    ein paar Infos ...

    Wer mehr als "nur" Hilfe benötigt, kann sich gern im Forum "Programmieranfragen" an uns wenden. Wir helfen in allen Fällen, die die Forenregeln zulassen.

    Für schnelle Hilfe benötigen wir ein ! lauffähiges ! Script, dass wir als Demonstration des Problems testen können. Wer von uns erwartet ein Teilscript erstmal lauffähig zu bekommen, der hat
    1. keine wirkliche Not
    2. keinen Respekt vor Menschen die ihm in ihrer Freizeit Ihre Hilfe anbieten
    3. oder ist einfach nur faul und meint wir coden das für ihn

    In solchen Fällen erlaube ich mir, die Anfrage einfach zu ignorieren. ;)

    Sowas?

    [autoit]

    #include <String.au3>
    #include <Array.au3>
    #cs Die Zwischenablage

    <option value="375">Dackel</option>
    <option value="800">Collie</option>
    <option value="900">Schäferhund</option>

    #ce

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

    $string = ClipGet()

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

    $search = _StringBetween($string, '">', '</')
    _ArrayDisplay($search)
    $search2 = _StringBetween($string, 'value="', '">')
    _ArrayDisplay($search2)

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

    For $i = 0 To UBound($search) - 1
    MsgBox(0, "", "Write Hunde.ini. Value: " & $search[$i] & "=" & $search2[$i])
    IniWrite(@DesktopDir & "\Hunde.ini", "Hunde", $search[$i], $search2[$i])
    Next

    [/autoit]