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

    über mich...

    ich habe meine Erfahrungen hauptsächlich gesammelt in (grobe Übersicht):

    - RibbonBar Automation
    - MySQL Nutzung
    - GUIs in vielerlei Ausprägung
    - Nutzung von Powershell / Batch in AutoIt
    - Windows Automatisierung

    außerhalb von AutoIt:

    - Sprachen: PS, Batch, php, html(5), javascript, (perl eingeschränkt), vbs
    - Powershell (AD, WPF inkl. Multi-Threading, ...)
    - Deployment-Automatisierung ohne SCCM
    - Office-Nutzung mit COM-Object (AutoIt, PowerShell)
    - ActiveDirectory und alles was damit zusammenhängt
    - Hyper-V Clustering (Converged / Hyper Converged)
    - Serverhardware (Konfiguration, Aufbau, Architektur, Betrieb)

    Lieblingsthema:

    günstige Automatisierung von Vorgängen, für die andere Firmen viel Geld nehmen

    more to come ...

    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]