Suchen und Ersetzen per Script

Mykoleus · 2. Mai 2006

Mein Problem in Kürze:

Ich hab Text in einem Richtextitem den ich ersetzen will (Quasi: Bearbeiten-Ersetzen).

Hintergrund:

Ich habe eine Maske in der man Textbausteine hinterlegen und diese dann in ein Memo einfügen kann. Hierbei soll es möglich sein "Platzhalter" wie zum Beispiel #heute# in den Text zu schreiben und dieser wird dann beim Einfügen des Textbausteins "berechnet".

Im Beispiel oben sollte also

Heute ist der #heute#.

umgesetzt werden in:

Heute ist der 02.05.2006

Am besten wäre eine Scriptlösung, da einige der #Bausteine# per Script berechnet werden.

Hat einer einen Ansatz?

taurec · 2. Mai 2006

Hast du es mal über die Eigenschaft Values probiert ?

Ich bin mir nur nicht sicher ob da beim Ersetzen dann di Formatierungen erhalten bleiben.

Ab 6 könntest du das über die erweiterten RichText-Klassen machen.

Mykoleus · 2. Mai 2006

Ich will ja eigentlich nicht ins Backend...

Ein "Finden-Ersetzen" würde reichen, dann hab ich auch kein Problem mit Formaten.

So ala: Gehe zu dem Text #...# und ersetze ihn durch irgendwas anderes je nachdem was #...# ist.

dnotes · 2. Mai 2006

Diese Funktion sollte Dir dabei helfen:

Code

Function ReplaceSubString(vSrc As Variant, vFrm As Variant, vTo As Variant) As Variant


	Redim vSrcInt(0) As String
	Redim vRepl(0) As String
	Redim vFrmInt(0) As String
	Redim vToInt(0) As String
	Dim nPos As Integer
	Dim sTmp As String  
	Dim n As Integer
	Dim nSrc As Integer
	Dim nFrm As Integer

	' Check if the vSrc is a string or string list
	If Datatype(vSrc) = 8 Then
		vSrcInt(0) = vSrc
	Else
		Redim vSrcInt(Ubound(vSrc))		
		Redim vRepl(Ubound(vSrc))
		For n=0 To Ubound(vSrc)
			vSrcInt(n) = vSrc(n)
		Next
	End If

	' Check if the vFrm is a string or string list

	If Datatype(vFrm) = 8 Then
		' String first

		vFrmInt(0) = vFrm
		vToInt(0) = VTo
	Else
		Redim vFrmInt(Ubound(vFrm))
		Redim vToInt(Ubound(vFrm))
		For n=0 To Ubound(vFrm)
			vFrmInt(n) = vFrm(n)
			vToInt(n) = vTo(n)
		Next
	End If

	For nSrc = 0 To Ubound(vSrcInt)

		For nFrm = 0 To Ubound(vFrmInt)

			nPos = Instr(vSrcInt(nSrc), vFrmInt(nFrm))
			sTmp = vSrcInt(nSrc)
			vRepl(nSrc) = ""
			While nPos>0
				vRepl(nSrc) = vRepl(nSrc) + Left$(sTmp, nPos-1) + vToInt(nFrm)
				sTmp = Right$(sTmp, Len(sTmp) - nPos - Len(vFrmInt(nFrm)) +1 )
				nPos=Instr(sTmp, vFrmInt(nFrm))
			Wend
			vRepl(nSrc) = vRepl(nSrc) + sTmp
			vSrcInt(nSrc) = vRepl(nSrc)

		Next
	Next

	' Set result value; string or string list

	If Datatype(vSrc) = 8 Then
		ReplaceSubString=vRepl(0)
	Else
		ReplaceSubString=vRepl	
	End If

End Function

Alles anzeigen

Mykoleus · 2. Mai 2006

Danke!

Aber: wie wende ich die Funktion an? Der zu ersetzende Text befindet sich in einem Richtextfeld (Body einer Mail).

dnotes · 2. Mai 2006

Na ja, mit getformattedText bekommst Du den Text aus einem Richtext-Feld.
Und dann darfst Du mit den hoffentlich bekannten LS-funktionen die ## Stellen herausfummeln und sie an die Function uebergeben. Wird Dir bestimmt Spass machen

taurec · 2. Mai 2006

Wie wäre es dann mit FindString aus der NotesUIDocument Klasse.
Davor mit GotoField ins richtige Feld springen und dann hast du zumindest mal den Beginn des Textes.
Nun müsstest du deinen Text markieren (z.B. über SendKey) und per Cut Ausschneiden und per Inserttext deinen neuen Text einfügen

Mykoleus · 2. Mai 2006

Versuch ich morgen mal, ich geb dann Bescheid obs geklappt hat.

Nen anderer Ansatz:

Ich habe pro Textbaustein ein eigenes Feld und die verschiedenen berechneten Werte sind endlich (also so max 20 verschiedene #Felder#).

Man könnte also für jedes #Feld# den berechneten Wert in einem eigenen Feld "zwischenlagern" und mitübertragen und dann per "berechnetem Text" im Richtext selber diese Werte ins Dokument packen.

Dann bräuchte nur ne Funktion die mir in ein Richtextitem einen berechneten Text einfügt. (per Script, per Hand ist es nicht das Problem, aber per Script wäre es um Längen besser, da ich meine Nutzer, die diese Bausteine ja benutzen sollen nicht mit was "neuem" quälen will )

Weiss einer ob sowas geht und wie man den einfügen würde?

Mykoleus · 4. Mai 2006

Ich habs nun mit dem FindString gemacht. Wenn man den ganzen zu ersetzenden Text im FindString angibt markiert Notes ihn sogar, man muss also keine Sendkeys verwenden.
Aufpassen muss man aber in 2 Punkten:

1. Am Anfang der Ersetzungsroutine an den Anfang des Feldes springen, sonst kann es sein dass der Text nicht gefunden wird.
2. Wenn der Text nicht gefunden wird erscheint eine Fehlermeldung, die nicht so ohne Weiteres unterdrückt werden kann, ich habe daher zuvor mit fieldcontains geschaut ob überhaupt was zu ersetzen vorhanden ist.

Danke für die produktive Diskussion und eure Ideen.

Suchen und Ersetzen per Script

Teilen

Benutzer online in diesem Thema