Texdatei umwandeln

    Wie wandel ich eine Text Datei in diesem Format:

    User: Heinz
    PWmd5: c02b7d24a066adb747fdeb12deb21bfa
    Letzter Login: 06.05.11


    User: Klaus
    PWmd5: c02b7d24a066adb747fdeb12deb21bfa
    Letzter Login: 06.05.11

    ....

    in

    Heinz:c02b7d24a066adb747fdeb12deb21bfa
    Klaus: c02b7d24a066adb747fdeb12deb21bfa

    um?

    So?

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>

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

    Global $sData, $aData, $hFile

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

    $sData = FileRead("Beispiel.txt")
    $aData = StringRegExp($sData, "(?<=User: ).*|(?<=PWmd5: ).*", 3)
    _ArrayDisplay($aData)

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

    $hFile = FileOpen("Result.txt", 1)
    For $i = 0 To UBound($aData) - 1
    If Mod($i, 2) = 0 Then
    FileWrite($hFile, $aData[$i] & ":")
    Else
    FileWrite($hFile, $aData[$i] & @CRLF)
    EndIf
    Next
    FileClose($hFile)

    [/autoit]