DatenBank-Memo und einzeilig

Jakane · Beiträge: 257

Hallo liebe Delphi-Helfer

In meinem Programm lese ich eine DatenbankFelder aus und gebe sie über eine ListBox in eine .txt Datei.

Jetzt habe ich nur das Problem, dass eines dieser Felder ein MemoFeld ist, welches ich auch nicht ändern kann.
Dadurch rutscht aber auch in der .txt eine 2.Zeile mit rein und macht sowohl Filter als auch Sortierung kaputt

Da das Memo nur 80 Zeichen fassen kann und die Vorfelder "nur" auf knapp 150, kommt man nicht an die 255 Grenze der txt-Zeilen.

Wie bringe ich das DBMemo dazu statt
"Ich habe einen Fehler "
"gefunden."

das in mein .txt zu schreiben
"Ich habe einen Fehler gefunden."

Danke für Hilfen

Nersgatt · Verfasst: Mi 18.05.11 15:20

Ersetze in dem String das #13#10 durch nix (= '') bzw. durch einen Leerschritt.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

Jakane · Beiträge: 257

Nersgatt hat folgendes geschrieben :

Ersetze in dem String das #13#10 durch nix (= '') bzw. durch einen Leerschritt.

Problem... es gibt kein #13#10 in dem String soweit ich das sehe, wie löscht man was unsichtbares?

Nersgatt · Verfasst: Mi 18.05.11 15:55

Jakane hat folgendes geschrieben :

Nersgatt hat folgendes geschrieben :

Ersetze in dem String das #13#10 durch nix (= '') bzw. durch einen Leerschritt.

Problem... es gibt kein #13#10 in dem String soweit ich das sehe, wie löscht man was unsichtbares?

Dann siehst Du nur den Wald vor lauter Bäumen nicht. Das #13#10 (oder manchmal auch nur #13) ist der Zeilenumbruch. Diese Zeichen sagen dem Memo also "hey, hier an dieser Stelle fang mal ne neue Zeile an!". Und genau das musst Du rauslöschen.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

Jakane · Beiträge: 257

Ich verwende selbst #13 um ein Zeilenumbruch zu provozieren.

Aber was ich nicht sehe kann ich nicht löschen. und ein #13 sieht man nicht als #13 sondern als zeilenumbruch, wie löscht mal sowas?

zuma · Verfasst: Mi 18.05.11 16:23

Jakane hat folgendes geschrieben :

Aber was ich nicht sehe kann ich nicht löschen.

wenn du mit dem Auge guckst, siehst du nicht alles, schau lieber mit dem Verstand

markieren

Delphi-Quelltext

1:	lstr := StringReplace(DeinMemoText, '#13#10', '', [rfReplaceAll]);

sollte dir helfen

_________________
Ich habe nichts gegen Fremde. Aber diese Fremden sind nicht von hier! (Methusalix)
Warum sich Sorgen ums Leben machen? Keiner überlebts!

Jakane · Beiträge: 257

zuma hat folgendes geschrieben :

wenn du mit dem Auge guckst, siehst du nicht alles, schau lieber mit dem Verstand

markieren

Delphi-Quelltext

1:	lstr := StringReplace(Memo, '#13#10', '', [rfReplaceAll]);

sollte dir helfen

Leider nicht, das Memo wird nach wir vor 2-Zeilig gezeigt.

sowohl Memo als auch lstr

zuma · Verfasst: Mi 18.05.11 16:34

was ist memo für ein typ? TMemo oder String?

zeig mal die codestelle, wo du die ersetzung machst ...

_________________
Ich habe nichts gegen Fremde. Aber diese Fremden sind nicht von hier! (Methusalix)
Warum sich Sorgen ums Leben machen? Keiner überlebts!

Jakane · Beiträge: 257

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Var
  Sx : String
Begin
 .
 .
 .
Sx:= '|' + DBtxtNummer.Field.AsString + '|' + txtKundenNr.Text + '|' +
           DBtxtVersion.Field.AsString + '|' + DBtxtUsername.Field.AsString + '|' +
           DBtxtDatumZeit.Field.AsString + '|' + DBtxtPerMail.Field.AsString + '|' +
           DBtxtFehlertext.Field.AsString + '|' + DBtxtFormCaption.Field.AsString + '|' +
           DBtxtFormClassName.Field.AsString;

lbTransport.Items.Add(Sx);

DBtxtFehlertext.Field.AsString ist in der Datenbank als Memo/Blob markiert und das kann ich in der Datenbank auch nicht ändern

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Nersgatt · Verfasst: Do 19.05.11 09:29

Und wo ist da die Ersetzung?

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

Jakane · Beiträge: 257

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Var
  Sx, Memo : String;
Begin
 .
 .
 .
Memo := StringReplace(DBtxtFehlertext.Field.AsString, '#13#10', '', [rfReplaceAll]);
Sx:= '|' + DBtxtNummer.Field.AsString + '|' + txtKundenNr.Text + '|' +
           DBtxtVersion.Field.AsString + '|' + DBtxtUsername.Field.AsString + '|' +
           DBtxtDatumZeit.Field.AsString + '|' + DBtxtPerMail.Field.AsString + '|' +
           Memo + '|' + DBtxtFormCaption.Field.AsString + '|' +
           DBtxtFormClassName.Field.AsString;

lbTransport.Items.Add(Sx);

Was nicht funktioniert, lass ich üblicherweise nicht drin.
So hatte ich sie verwendet.

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Nersgatt · Verfasst: Do 19.05.11 09:43

Da stimmt ja die Abfolge nicht. Mach die Ersetzung auf Sx:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

Sx:= '|' + DBtxtNummer.Field.AsString + '|' + txtKundenNr.Text + '|' +
           DBtxtVersion.Field.AsString + '|' + DBtxtUsername.Field.AsString + '|' +
           DBtxtDatumZeit.Field.AsString + '|' + DBtxtPerMail.Field.AsString + '|' +
           Memo + '|' + DBtxtFormCaption.Field.AsString + '|' +
           DBtxtFormClassName.Field.AsString;

Sx := StringReplace(Sx, '#13#10', '', [rfReplaceAll]);

lbTransport.Items.Add(Sx);

Oder nur auf das eine Feld direkt beim Zusammensetzen des Strings.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

Jakane · Beiträge: 257

Funktioniert leider auch nicht

Selbst wenn ich nur '#' statt #13#10 mache, löscht er mir zwar alle # zeichen, aber der zeilenumbruch bleibt

Nersgatt · Verfasst: Do 19.05.11 10:17

Jetzt sehe ich es. ZUMA!!!! :twisted:

markieren

Delphi-Quelltext

1:	Sx := StringReplace(Sx, #13#10, '', [rfReplaceAll]);

So muss es sein (ohne die ' beim #13#10)

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

Jakane · Beiträge: 257

Moderiert von Narses: Komplett-Zitat des letzten Beitrags entfernt.

funktioniert!
und eine neue funktion gelernt die ich auch woanders benutzen kann (happy)

zuma · Verfasst: Do 19.05.11 10:58

ups

schnell vor Feierabend noch antworten, etwas c&p, kontroll-lesen gestrichen und schon schreibt man so'n sch...

_________________
Ich habe nichts gegen Fremde. Aber diese Fremden sind nicht von hier! (Methusalix)
Warum sich Sorgen ums Leben machen? Keiner überlebts!

Jakane · Beiträge: 257

zuma hat folgendes geschrieben :

ups

schnell vor Feierabend noch antworten, etwas c&p, kontroll-lesen gestrichen und schon schreibt man so'n sch...

Trotzdem Danke

DonManfred · Verfasst: Do 19.05.11 12:57

zuma hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:	lstr := StringReplace(DeinMemoText, '#13#10', '', [rfReplaceAll]);

sollte dir helfen

Das sucht aber den STRING '#13#10' und nicht nach CRLF...

markieren

Delphi-Quelltext

1:	lstr := StringReplace(DeinMemoText, #13#10, '', [rfReplaceAll]);

Dürfte besser sein.

_________________
Gruss Manfred

Jakane · Beiträge: 257

Nersgatt war 2,5h schneller

DonManfred · Verfasst: Do 19.05.11 15:28

Jakane hat folgendes geschrieben :

Nersgatt war 2,5h schneller

Yo, sollte lieber erst alles lesen bevor ich antworte

_________________
Gruss Manfred

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme