Text in Richtext einfügen
Moderator: Moderatoren
-
- Cut&Paste-Entwickler
- Beiträge: 26
- Registriert: Do, 11. Okt 2007 9:12
- Wohnort: Berneck
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Text in Richtext einfügen
Hallo
... ich habe ein Richtextobjekt in einem Memofeld gespeichert,
nun möchte ich vorne oder hinten einen normalen Text einfügen,
wenn ich dies mache verliere ich die Formatierung!
Beispiel:
FUNCTION AddTxt2RTF( cFeld, cTxt, nPos)
LOCAL oRtf, lBack
DEFAULT nPos TO 0
oRtf := XbpRtf():new(,,,,,.F.)
oRtf:create()
oRtf:textRTF :=&cFeld
oRtf:text := IF(nPos==0, cTxt + oRtf:text, oRtf:text + cTxt )
lBack := SetField(cFeld, oRtf:textRTF )
oRtf:destroy()
RETURN lBack
hat jemand eine Idee?
Gruss Jürg
... ich habe ein Richtextobjekt in einem Memofeld gespeichert,
nun möchte ich vorne oder hinten einen normalen Text einfügen,
wenn ich dies mache verliere ich die Formatierung!
Beispiel:
FUNCTION AddTxt2RTF( cFeld, cTxt, nPos)
LOCAL oRtf, lBack
DEFAULT nPos TO 0
oRtf := XbpRtf():new(,,,,,.F.)
oRtf:create()
oRtf:textRTF :=&cFeld
oRtf:text := IF(nPos==0, cTxt + oRtf:text, oRtf:text + cTxt )
lBack := SetField(cFeld, oRtf:textRTF )
oRtf:destroy()
RETURN lBack
hat jemand eine Idee?
Gruss Jürg
- AUGE_OHR
- Marvin
- Beiträge: 12913
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: Text in Richtext einfügen
ein RTF Text verfügt über diverse Steuerzeichen.Jürg Litscher hat geschrieben:... ich habe ein Richtextobjekt in einem Memofeld gespeichert,
nun möchte ich vorne oder hinten einen normalen Text einfügen,
wenn ich dies mache verliere ich die Formatierung!
Code: Alles auswählen
oRtf:text
das was du sucht ist vermutlichDie Zeichenkette enthält bis auf Zeilenendemarkierungen und TAB-Zeichen keine Formatinformationen
Code: Alles auswählen
oRtf:textRTF
gruss by OHR
Jimmy
Jimmy
-
- Cut&Paste-Entwickler
- Beiträge: 26
- Registriert: Do, 11. Okt 2007 9:12
- Wohnort: Berneck
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Text in Richtext einfügen
... ja das ist so im oRTF:textRTF ist der formatierte text,
wenn ich aber hier einen normalen string vorne oder hinten einfüge,
dann zerreisst es mir die Formatierung, das heisst sie wird sichtbar.
Darum suche ich einen Weg den formatierten text in oRTF:textRTF und
meinen Eintrag im oRTF:text zusammenzuüfhren ohne dass ich
die Formatierung in oRTF:textRTF verliere,...
Gruss Jürg
wenn ich aber hier einen normalen string vorne oder hinten einfüge,
dann zerreisst es mir die Formatierung, das heisst sie wird sichtbar.
Darum suche ich einen Weg den formatierten text in oRTF:textRTF und
meinen Eintrag im oRTF:text zusammenzuüfhren ohne dass ich
die Formatierung in oRTF:textRTF verliere,...
Gruss Jürg
- urbi
- Rekursionen-Architekt
- Beiträge: 142
- Registriert: So, 26. Mär 2006 18:47
- Wohnort: 76185 Karlsruhe
- Kontaktdaten:
Re: Text in Richtext einfügen
ich würde hier Platzhalter in original RTF vorsehen
und mit STRTRAN den gewünchsten Tex einfügen
Gruß
Rainer
und mit STRTRAN den gewünchsten Tex einfügen
Gruß
Rainer
urbi
- Rolf Ramacher
- Der Entwickler von "Deep Thought"
- Beiträge: 1931
- Registriert: Do, 09. Nov 2006 10:33
- Wohnort: Bergheim
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
-
- Cut&Paste-Entwickler
- Beiträge: 26
- Registriert: Do, 11. Okt 2007 9:12
- Wohnort: Berneck
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Text in Richtext einfügen
... hm, wäre eine Idee, vielleicht gibt es einen Tag der standardmässig immer vorhanden ist, schau mer mal.
Gruss Jürg
Gruss Jürg
-
- Cut&Paste-Entwickler
- Beiträge: 26
- Registriert: Do, 11. Okt 2007 9:12
- Wohnort: Berneck
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Re: Text in Richtext einfügen
... folgende Zeilen funktioniern gar nicht schlecht
Bestend Dank.
Gruss Jürg
FUNCTION AddTxt2RTF( cFeld, cTxt, cRepl )
LOCAL lBack, cRTF,;
cTagEnde := "\par }"
cRTF := &cFeld
IF VALTYPE(cRepl) == "C"
cRTF := STRTRAN( cRTF, cRepl, cTxt )
ELSE
cRTF := STRTRAN( cRTF, cTagEnde, "\par "+cTxt+CRLF + cTagEnde )
ENDIF
// in Memo schreiben
lBack := SetField(cFeld, cRTF )
RETURN lBack
Bestend Dank.
Gruss Jürg
FUNCTION AddTxt2RTF( cFeld, cTxt, cRepl )
LOCAL lBack, cRTF,;
cTagEnde := "\par }"
cRTF := &cFeld
IF VALTYPE(cRepl) == "C"
cRTF := STRTRAN( cRTF, cRepl, cTxt )
ELSE
cRTF := STRTRAN( cRTF, cTagEnde, "\par "+cTxt+CRLF + cTagEnde )
ENDIF
// in Memo schreiben
lBack := SetField(cFeld, cRTF )
RETURN lBack
- brandelh
- Foren-Moderator
- Beiträge: 15710
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 73 Mal
- Danksagung erhalten: 38 Mal
- Kontaktdaten:
Re: Text in Richtext einfügen
Hi,
ich hatte mir testweise mit Word RTF Formulare entworfen um diese auszufüllen.
Ging gut, bis ich einzelne Feldnamen nächträglich geändert habe.
Danach wurde im RTF Quellcode der Feldname zerrissen und somit nicht mehr mit strtran() gefunden ...
Natürlich kann man das sicher mit einem ANSI Editor korrigieren, aber dazu habe ich keine Lust.
Ich nutze nun Word XML Formulare für den Zweck, das funktioniert sauber ohne Probleme (falls man Word ab 2003 hat ...)
ich hatte mir testweise mit Word RTF Formulare entworfen um diese auszufüllen.
Ging gut, bis ich einzelne Feldnamen nächträglich geändert habe.
Danach wurde im RTF Quellcode der Feldname zerrissen und somit nicht mehr mit strtran() gefunden ...
Natürlich kann man das sicher mit einem ANSI Editor korrigieren, aber dazu habe ich keine Lust.
Ich nutze nun Word XML Formulare für den Zweck, das funktioniert sauber ohne Probleme (falls man Word ab 2003 hat ...)
Gruß
Hubert
Hubert