Zwei mal Enter ersetzen

[Fantin]

Hi!

Ich suche eine Möglichkeit mit der Suchen&Ersetzen-Funktion zwei mal Enter (also im Grunde zwei leere Zeilen eines Textdokuments) zu löschen.
Im dem Dokument, in dem ich das verwenden möchte tritt das über 100x auf, deswegen möchte ich es nicht von Hand machen.

Ich habe schon versucht zwei leere Zeilen zu markieren und zu in die Suchen&Ersetzen-Maske zu kopieren. Bei "Ersetzen durch" habe ich nichts eingetragen. Hatte leider keinen Erfolg.

Dann habe ich versucht, an Anfang und Ende der in die Maske kopierten zwei leeren Zeilen ein * zu stellen und habe reguläre Ausdrücke aktiviert.
Aus das half nichts!

Hat mir jemand einen Tipp?

Danke, Julius

[FranzX]

Hallo Fantin,

aktiviere über Extras| Autokorrektur/Autoformat, Registerkarte Option die Option: "Leere Absätze entfernen"

Anschließend rufst du den Befehl: Format| Autoformat| Anwenden auf um das Dokument mit den neu eingestellten Optionen zu formatieren.
Dabei werden alle Leerabsätze entfernt.

Gruß
FranzX

------------------------------------------------
StarOffice 7 kreativ,
http://213.222.12.204/Default.aspx?tabi ... uctID=3305

[Fantin]

Danke für den Tipp!

Leider wollte ich nur die doppelten leeren Absätze entfernen und nicht alle leeren.
Konkret, die Textdatei besteht aus 180 SMS in folgender Form:

Datum und Uhrzeit: 29.07.2004 11:48:01
Von: 017111223344


Text der SMS

Diese würde ich gerne in folgende Form umwandeln:

Datum und Uhrzeit: 29.07.2004 11:48:01
Von: 017111223344
Text der SMS

Ich entferne also die zwei aufeinanderfolgenden Absätze.

Werden jetzt alle leeren Absätze entfernt werde, so ergeben die 180 SMS einen ellenlangen Text. Dem Absatz zwischen den einzelnen SMS würde ich gerne behalten.

Gibt es keine Variable für Enter die man bei Suchen&Ersetzen eingeben könnte?
Oder hat mir jemand einen anderen Tipp?

Danke, Julius

[Stephan]

Gibt es keine Variable für Enter die man bei Suchen&Ersetzen eingeben könnte?

Was für eine Variable? Der reguläre Ausdruck für Leerabsatz ist: ^$
Das eignet sich nun aber nicht für 2 Leerabsätze, ich sehe so keinen Weg.

Oder hat mir jemand einen anderen Tipp?

Ich habe schnell ein Makro geschrieben, was das macht:

Code: Alles auswählen

Sub Main
Cursor = ThisComponent.Text.createTextCursor()
Cursor.gotoStart (false)
Do
Cursor.gotoEndOfParagraph (TRUE)
absatz = Cursor.String
absatz = Trim(absatz)
if LEN(absatz) = 0 Then
      if i=1 then
            Cursor.gotoPreviousParagraph (False)
            Cursor.gotoStartOfParagraph (False)
            Cursor.gotoendofparagraph (false)
            Cursor.gotonextparagraph (True)
            Cursor.gotoendofparagraph (TRUE)
            Cursor.GoRight(1,True)
            Cursor.String = ""
            i=0
         Else
            i=1
      End if
      
   Else
      i=0   
end if
ergebnis = Cursor.gotoNextParagraph(false)
loop while ergebnis
End Sub

Gruß
Stephan

[Fantin]

Oh, das ist ja nett! Vielen Dank!
Julius