Memofeld mit führenden Leerzeilen

[Koverhage]

Stehe gerade auf dem Schlauch.
Wie kann ich führende Leerzeilen auf einen Memofeld entfernen (ohne jede Zeile einzeln zu bearbeiten)
wenn ich einen Replace mit LTRIM(memofeld) mache passiert nichts.

[Wolfgang Ciriack]

Ich vermute, du hast da Umbrüche chr(141)+chr(10) drin. Schau mal nach HardCR() oder MemoTran().

[brandelh]

Wie kann ich führende Leerzeilen auf einen Memofeld entfernen (ohne jede Zeile einzeln zu bearbeiten)

Meinst du jetzt ZEILE für ZEILE im Memotext ?

ltrim() entfernt ja nur am Anfang die Leerzeichen, diese aber zuverlässig, wenn nicht davor schon eine Zeilenschaltung steht,

[Koverhage]

Wolfgang,

memoTran hat den Nachteil, dass alle CR+LF ersetzt werden auch bei wirklichem Text.
Fange das zunächst bei Drucken ab. Vermutlich bleibt mir nichts anderes übrig dafür eine
Funktion zur Bereinigung zu schreiben.

[Koverhage]

Hubert,
der Text besteht z.B. aus
10 x CR+LF
und dann der Text

[Tom]

Code: Alles auswählen

#define CRLF Chr(13)+Chr(10)

REPLACE memo WITH RemoveLeadingCrlf(memo)

FUNCTION RemoveLeadingCrlf(cText)
DO WHILE Left(cText,2) == CRLF
  cText := SubStr(cText,3)
ENDDO
RETURN cText

[Koverhage]

Tom,
Danke. Werde es ausprobieren und dann übernehmen

[brandelh]

ich würde bei jedem Durchlauf noch ein Alltrim() einbauen, oft werden auch ein paar Blanks zwischen den CRLF stehen

Ich erweitere mal Toms Funktion ... ich hoffe ohne Tippfehler

Code: Alles auswählen

#define CRLF Chr(13)+Chr(10)

REPLACE memo WITH RemoveLeadingCrlf(memo)

FUNCTION RemoveLeadingCrlf(cText)
cText := alltrim(cText)
DO WHILE Left(cText,2) == CRLF
  cText := alltrim(SubStr(cText,3))
ENDDO
RETURN cText

[Wolfgang Ciriack]

Blöd nur, wenn der Anwender z.B. eine Leerzeile vorab haben möchte

[BJelinek]

Dann hilft alt+255 geschütztes Leerzeichen.

[brandelh]

Blöd nur, wenn der Anwender z.B. eine Leerzeile vorab haben möchte

man kann nicht alles haben

Aber Klaus wird wissen was die wollen

[Koverhage]

Ja und Bernd hat ja die Lösung schon geschrieben (kennt Bern etwa meine Software ?).
Grundsätzlich ist es bei mir so:
Wenn ein Anwender einen Text nicht haben möchte, kann er diesen mit einem "geschützten" Leerzeichen verhindern.
Analog zu Office gibt es sogar den Hotkey Shift_Strg_Space dafür