Hat jemand erfahrung mit diesen beiden Klassen ??
Ich knobele gerade an folgenden Problem:
Ein RichtextItem enthält z.B. folgenden Text:
Sehr geehrter Herr <<RCPT>>,
Ihre Anfrage <<REQNUMBER>> wird von unserem Mitarbeiter <<SUPPORTER>> bearbeitet.
Ich möchte jetzt die <<>> Tags durch Werte aus dem Ticket ersetzen, wobei die Strings innerhalb der <<>> Feldnamen darstellen.
Mittels
If rtnav.FindFirstString("<<", _
RT_FIND_CASEINSENSITIVE) Then
Do
Call rtrange.SetBegin(rtnav)
'Messagebox rtrange.textParagraph,, "<<"
' und wie geht es dann hier weiter ??
Loop While rtnav.FindNextString("<<", _
RT_FIND_CASEINSENSITIVE)
Else
Messagebox "<<",, "String not found"
End If
komme ich auch immer an das nächste <<
Aber wie mache ich jetzt das Replace ?
If rtnav.FindFirstString("<<", _
RT_FIND_CASEINSENSITIVE) Then
Do
Call rtrange.SetBegin(rtnav)
'Messagebox rtrange.textParagraph,, "<<"
While rtrange.FindAndReplace _
("<<RCPT>>",_ ' find
CommonNameString (Trim(atWord(Cstr(m),"|",1))),_ ' replace
RT_FIND_CASEINSENSITIVE) > 0
Call rtItem.Update ' Must update before looping
Wend
Loop While rtnav.FindNextString("<<", _
RT_FIND_CASEINSENSITIVE)
Else
Messagebox "<<",, "String not found"
End If
Dieses Konstrukt funktioniert nicht ( ich weiß, daß hier einiges Hardcodiert ist, aber <<RCPT>> ist der erste Tag im Text.
Im Debugger meckert er immer die Zeile mit dem Wend an.
Jemand schon mal die Kombination der Klassen programmiert ( In der Notes Hilfe ist alles separat beschrieben, aber nicht in der Kombination ) Irgendwie scheinen sich die ursprünglich erzeugten Objecte rtNav und rtRange selber zu "zerstören"
