Domino 9 und frühere Versionen > ND9: Entwicklung

RichText zu PlainText

<< < (2/2)

jBubbleBoy:
Welche NotesClient Version habt ihr im Einsatz?
Auch ein @Abstract entfernt bei mir nicht alle Zeilenumbrüche, meine Testergebnisse beziehen sich auf das erste QuerySave.

Flachmann:

--- Zitat von: jBubbleBoy am 09.11.16 - 17:22:02 ---Auch ein @Abstract entfernt bei mir nicht alle Zeilenumbrüche, meine Testergebnisse beziehen sich auf das erste QuerySave.
--- Ende Zitat ---
Ich glaube das bezieht sich auf die Hilfe. Dort heißt es:
Note  This function removes all carriage returns and linefeeds, regardless of which keywords are selected.

Aber bloß weil es dort steht heißt natürlich nicht, dass das auch so ist.  :-X

Gutierrez:
Probier mal:

--- Code: ---Sub Postopen(Source As Notesuidocument)

Dim rt As NotesRichTextItem

If Source.Isnewdoc Then
Set rt = Source.Document.CreateRichTextItem("Body")
End If

End Sub

--- Ende Code ---

--- Code: ---Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim rt As NotesRichTextItem

Call Source.Refresh(True)
Set rt = Source.Document.GetFirstItem("Body")

End Sub

--- Ende Code ---

In der Maske gibt es natürlich ein RTFeld "Body" ;)

Beste Grüße

Alexander 28:
Hi Gutierrez. Das sieht vielversprechend aus. Werde das mal am WE testen und ein Feedback geben.

@Flachmann  + @jBubbleBoy
Notes 9.0.1
@Abstract killt bei mir alle Zeilenumbrüche!!!

thkn777:
Unter der Voraussetzung, daß beide Felder bearbeitbar sind - wie wäre es mit:


--- Code: ---Sub Querysave(Source As Notesuidocument, Continue As Variant)
Call Source.GotoField("frtf")
Call Source.SelectAll()
Call Source.Copy()

Call Source.GotoField("ftxt")
Call Source.SelectAll()
Call Source.Paste()
End Sub
--- Ende Code ---

Dabei ist frtf das RTF-Feld und ftxt das Textfeld. Unter 8.5.3 geht das bei mir  ;D

Gruss,
Th.

Navigation

[0] Themen-Index

[*] Vorherige Sete