Domino 9 und frühere Versionen > ND8: Entwicklung

Feldwert ergänzen vor dem alten Feldwert

<< < (2/2)

ascabg:
Hier ein kleines Testscript, welches ein vorhandenes Dokument ermittelt, in diesem das RichText-Feld "Testfeld" einstellt und vor
dem bereits vorhandenen Text einen neuen Text einfuegt.

Mit dem Navigator kannst Du sogar relativ genau steuern, wo er den Text einfuegen soll. da Du mit diesem die Postion zum einfuegen
einstellen kannst.


--- Code: ---Option Public
Option Declare

Sub Initialize

Dim s As New NotesSession
Dim db As NotesDatabase
Dim vw As NotesView
Dim doc As NotesDocument
Dim rtTest As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator

Set db = s.Currentdatabase
If db Is Nothing Then Exit Sub
If db.Isopen Then
Set vw = db.GetView("Testview")
If vw Is Nothing Then Exit Sub
Call vw.Refresh()
vw.Autoupdate = False

Set doc = vw.Getdocumentbykey("frmTestInsert", True)
If doc Is Nothing Then Exit Sub

If Not doc.HasItem("Testfeld") Then Exit sub
Set rtTest = doc.Getfirstitem("Testfeld")
If rtTest Is Nothing Then Exit Sub

Set rtnav = rtTest.Createnavigator()
If rtnav Is Nothing Then Exit Sub

' set the insert pointer before the first text
Call rtnav.Findfirstelement(RTELEM_TYPE_TEXTPARAGRAPH)
Call rtTest.Begininsert(rtnav)
Call rtTest.Appendtext("Nun ist dies die erste Zeile")
Call rtTest.Addnewline(1)
Call rtTest.Endinsert()

Call doc.Save(True, False)
End If

End Sub

--- Ende Code ---

Andreas

BMT216A:
Hallo Andreas,

vielen Dank für deinen Hinweis.
Konnte mich leider nicht früher melden, da ich Urlaub hatte.
Soweit klappt es.
Nun bin ich bei meinem Vorhaben aber im uidoc und möchte das Feld auch zur laufzeit bearbeiten und aktualisieren.
Wie muss ich das machen - ich steh da grad auf dem Schlauch.

Vielen Dank für Eure Hilfe

Chris

koehlerbv:
Dann geht das doch ganz einfach mit InsertText (@Command oder NotesUIDocument class).

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete