StringRegExpReplace - Alles zwischen Leerzeichen und Zeilenumbruch

1. offizieller Beitrag

    Hallo Community!

    Ich möchte gerne folgenden Text (gekürzte Version) bearbeiten!
    Dabei sollen folgende (rot markierte) Stellen verschwinden:

    Zitat

    Abs ( expression ) Calculates the absolute value of a number.
    ACos ( expression ) Calculates the arcCosine of a number.
    AdlibRegister ( "function" [, time] ) Registers an Adlib function.
    _WordPropertyGet (ByRef $o_object, $s_property) Returns a select property of the Word Application. (Requires: #include <Word.au3> )
    _WordPropertySet (ByRef $o_object, $s_property, $v_newvalue) Set a select property of the Word Application. (Requires: #include <Word.au3> )

    Mein Ansatz war bisher so:

    [autoit]

    $Get = ClipGet()
    $Text = StringRegExpReplace($Get, '[\w]* (.*?)\r\n', '')
    ClipPut($Text)

    [/autoit]

    Aber als Ausgabe sieht es so aus:

    Code
    _WordPropertySet (ByRef $o_object, $s_property, $v_newvalue) Set a select property of the Word Application. (Requires: #include <Word.au3> )

    Die hälfte von dem was übrig bleiben sollte ist nun weg und ich habe keine Ahnung warum ^^
    >> Mein pattern sieht für mich logisch korrekt aus, aber da ist ja offentsichtlich was falsch.
    |> Hat da jemand eine Idee oder kann mir sagen wo mein Denkfehler liegt?

    Einmal editiert, zuletzt von Yjuq (29. Dezember 2012 um 19:05)

    Wie wär's, wenn du die Finger von RegEx lässt, und einfach die Datei wie folgt verarbeitest?

    [autoit]


    #include <Array.au3>

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

    $aLines = StringSplit(StringStripCR(FileRead("test.txt")), @LF)
    Local $aResult[$aLines[0]]
    For $i = 1 To $aLines[0]
    $aTemp = StringSplit($aLines[$i], " ") ;Oder "("
    If $aTemp[0] > 2 Then
    $aResult[$i - 1] = $aTemp[1]
    EndIf
    Next
    _ArrayDisplay($aResult)

    [/autoit]

    Ist zwar im Browser getippt, sollte aber klappen.

    lg chess

    edit: Kleinen Fehler korrigiert (Falscher Variablenname)

    • Offizieller Beitrag
    [autoit]

    $Text = StringRegExpReplace($Get, '\b (.+?)\r', '')

    [/autoit]