Zwei mal Enter ersetzen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zwei mal Enter ersetzen

von Fantin » Sa, 09.04.2005 18:39

Oh, das ist ja nett! Vielen Dank!
Julius

von Stephan » Sa, 09.04.2005 17:07

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

von Fantin » Sa, 09.04.2005 16:31

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

von FranzX » Sa, 09.04.2005 13:12

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

Zwei mal Enter ersetzen

von Fantin » Sa, 09.04.2005 10:41

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

Nach oben