Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: seerow am 18.05.05 - 17:21:51

Titel: keywords in rti finden und durch Text ersetzen
Beitrag von: seerow am 18.05.05 - 17:21:51

Hallo Notes Gemeinde,

ich habe ein kleines Problem mit einen Text parser. Ziel ist es für x Angestellte einen eigenen
Mail-message-text zu hinterlegen der mit verschiedenen Keywords versehen werden kann.

Dieser Text, sammt keywords, wird dann über einen Agenten (Lotus Script) aufgenommen wobei die keywords
durch entsprechende Variablen Inhalte ersetzt werden.

Beispiel: User1 möchte den Text wie folgt haben (die keywords sind durch <> gekennzeichnet):

Name: <name>
Nachname: <nachname>
User ID: <user>

......und User2 möchte den Text in einer anderen Reihenfolge haben:

User ID: <user>
Nachname: <nachname>
Name: <name>

Ich weiß das es in R6 ein triviales Problem ist. Aber leider finde ich keine Mittel unter R5.

Titel: Re: keywords in rti finden und durch Text ersetzen
Beitrag von: Small am 18.05.05 - 17:34:49

hiho,

also ich hab da auch keine einfache Lösung gefunden. Wenn es eine gibt, würde ich die sehr gerne wissen.

Wir nutzen sowas in der Art:

Code

bodytext$ = 	Left$( bodytext$ ,Instr(bodytext$,"<")-1) & var$ & Mid$ ( bodytext$ , Instr( Instr(bodytext$,"<")+1,bodytext$,">")+1)

bodytext$: die Zeile Code, die zu ersetzen ist
var$: der "neue" Inhalt

Gruß Rene

Titel: Re: keywords in rti finden und durch Text ersetzen
Beitrag von: seerow am 19.05.05 - 15:16:46

Hi Small,

danke für deine Antwort. Aber nach langen suchen und testen bin ich zur folgenden Lösung gekommen.

sSource: Text der zu durchsuchen ist.
sFrom: nach was zu suchen ist.
sTo: in was du es ändern willst


^{Function ReplaceSubstring(sSource As String, sFrom As String, Byval sTo As String) As String
   
   Dim sResult As String
   Dim i As Integer, iLenFrom As Integer, iLenRslt As Integer
   i=0
   iLenFrom=Len(sFrom)
   sResult=sSource
   
   Do While(i < Len(sResult))
      i=i+1
      If Mid$(sResult, i, iLenFrom ) = sFrom Then
         iLenRslt=Len(sResult)
         sResult=Left$(sResult, (i-1)) + sTo + Right$(sResult, iLenRslt - ( (i-1) + ( iLenFrom ) ) )
      End If
   Loop
   
   ReplaceSubstring=sResult
End Function}


Funktiniert echt Sahne und ist wirklich ein vergleichbarer Ersatz zu der R6 Methode "FindandReplace".  ;D