AutoiT - Sortieren

    Hey,

    Ich bräuchte ein Script der für mich etwas ordnet:
    <START> VNUM=1 EFFECT=1 MOVEMENT=11 TYPE=0 MPCOST=0 RANGE=1 CASTTIME=2 COOLDOWN=15 <END>

    Dies sollte dann am Ende so aussehen:

    <START>

    VNUM=1

    EFFECT=1

    MOVEMENT=11

    TYPE=0

    MPCOST=0

    RANGE=1

    CASTTIME=2

    COOLDOWN=15

    <END>

    PS: Es sind mehrere Zeilen von dem ganz oben & alle sollen genau so geordnet werden wie beim zweiten.

    Grüße, Eregos

    Sieht für mich nicht ganz Regelkonform aus, aber ich will ja mal nicht so sein.
    Das hier ist ja nicht der "Hauptteil" eines Programms, von daher kann man kein ordentliches Urteil fällen...

    Spoiler anzeigen
    [autoit]

    Global $sText = '<START> VNUM=1 EFFECT=1 MOVEMENT=11 TYPE=0 MPCOST=0 RANGE=1 CASTTIME=2 COOLDOWN=15 <END>'

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

    ConsoleWrite(_a($sText))

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

    Func _a($s)
    Local $a = StringSplit($sText, ' ', 2), $b
    For $i = 0 To UBound($a) - 1 Step 1
    $b &= $a[$i] & @CRLF & @CRLF
    Next
    Return $b
    EndFunc

    [/autoit]


    lg
    M

    [autoit]

    Func alcohol($String) ; the solution
    $aLines = StringSplit($String, @crlf, 3) ; nach Zeilen spalten
    For $i = 0 To UBound($aLines)-1
    $aLines[$i] = StringReplace($aLines[$i], " ", @crlf & @crlf)
    Next
    Return $aLines
    EndFunc

    [/autoit]

    Wenn schon "alcohol", dann richtig :P

    [autoit]


    Func alcohol($bottle) ; the solution
    $aGlass = StringSplit($bottle, @crlf, 3) ; in Gläser schütten
    For $i = 0 To UBound($aGlass)-1
    $aGlass[$i] = StringReplace($aGlass[$i], " ", @crlf & @crlf) ; Das Glas richtig voll machen
    Next
    Return $aGlass ; getting drunk
    EndFunc

    [/autoit]