Zeilenumbrüche aus der Ablage entfernen

    Hallo Zusammen

    Ich muss eine menge Text aus einem pdf Dokument kopieren und in eine Datenbank speichern. Leider sind die Texte dort immer mit vielen Zeilenumbrüchen hinterlegt.. bis anhin habe ich den Text immer ins Word kopiert und dann "Suchen & Ersetzen" gemacht....

    Gäbe es eine Möglichkeit mit einer Schleife im Autoit Script, dass wenn ein Text in die Zwischenablage kopiert wird, automatisch die Zeilenumbrüche entfernt werden?

    Vielleicht hat jemand ein wenig Code für mich? Würde meine Arbeit auf jeden Fall sehr erleichernt...

    Besten Dank schon jetzt! :thumbup:

    Andreas

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

    While True
    Sleep(3000)
    $clip=ClipGet()
    $clip=StringSplit($clip,@CRLF)
    For $i=1 To $clip[0]
    $new&=$clip[$i]
    Next
    ClipPut($new)
    WEnd

    [/autoit]


    *Wald vor lauter Bäumen nicht seh*
    Michas Lösung ist besser...

    Twitter: @L3viathan2142
    Benutze AutoIt persönlich nicht mehr, da ich keinen Windows-Rechner mehr besitze.

    Einmal editiert, zuletzt von L3viathan2142 (8. Februar 2009 um 16:58)

    ggf. so....

    Spoiler anzeigen
    [autoit]

    While 1
    $text = ClipGet()
    If $text <> "" And $text <> $textalt Then
    $text = StringReplace($text,@CRLF,"")
    ClipPut($text)
    $textalt = $text
    $text = ""
    EndIf
    Sleep(100)
    Wend

    [/autoit]

    Nur ob das parktikabel ist, bleibt offen. Das Script ersetzt nun STÄNDIG als Zeilevorschübe in der Zwischenbalage. Egal woher !

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"

    Hallo Micha

    Auch dir herzlichen Dank! Dein Script ist perfekt...... läuft tadellos!
    Wenn ich an dem pdf arbeite schalte ich es ein und beende es nachher wieder.... für diese "spannende" Arbeit ist es genial!!
    Herzlichen Dank!!! Jetzt habe ich heute schneller Feierabend ;)

    Einen habe ich auch noch ... ;)

    Spoiler anzeigen
    [autoit]


    While 1
    Local $sClip = ClipGet ( )
    If (StringRegExp ($sClip, '(\r\n)', 0)) Then _
    ClipPut (StringReplace ($sClip, @crlf, ''))

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

    Sleep (100)
    WEnd

    [/autoit]


    Wenn nur Leerzeilen entfernt werden sollen, dann ...

    Spoiler anzeigen
    [autoit]


    While 1
    Local $sClip = ClipGet ( )
    If (StringRegExp ($sClip, '(\r\n\r\n)', 0)) Then _
    ClipPut (StringRegExpReplace ($sClip, '(\r\n\r\n)', @crlf))

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

    Sleep(100)
    WEnd

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


    LG
    Greenhorn


    Einmal editiert, zuletzt von Greenhorn (8. Februar 2009 um 19:12)