Eintrag im Feld ändern

[Ramires]

Hi@all
Ich habe wieder ein Problem....
Ich habe schon im Forum gesucht, habe aber nicht das passende gefunden.

Ich muss in einem textfeld einen Namen austauschen, in dem Textfeld kann ein Name stehen oder eine Liste von namen und einen von denen muss ich austauschen.
Das ganze soll von einer View aus gestartet werden.

Das ganze soll in LScript gelöst werden...

Wie gehe ich die sache am besten an?

[m3]

Aufgabe für den Azubi vom Lehrmeister?

Textfeld a) einfacher Text oder b) Mehrfachwerte erlaubt?

Dokument öffnen, Wert(e) auslesen, Text verändern, Dokument speichern, Dokument schließen.
Noch Fragen? 

[koehlerbv]

Genau dafür ist @ReplaceSubstring da. LS wäre da aufwandsmässig kontraproduktiv (es sei denn, man hat schon eine Function, die sowas erledigt, aber dann würde ja hier nicht gefragt).

Bernhard

[Axel]

Andere Alternative (Background):

• Markierte(s) Dokument(e) aus der Ansicht holen (UnprocessedDocuments) -> Rückgabe der markierten Dokumente in einer NotesDocumentCollection.
• Zugriff auf die Dokumente in der Collection in einer Schleife -> GetFirst-/GetNextDocument
• Auslesen des Feldinhaltes
• Den entsprechenden Wert ersetzen
• Zurückschreiben in das Feld
• Dokument speichern

Ich habe die mal die entsprechenden Script-Methoden dazugeschrieben. Mit den Angaben kannst du dich mal in der Designer-Hilfe umschauen. Dort gibt es genug Infos und gute Beispiele.


Axel

[koehlerbv]

• Auslesen des Feldinhaltes
• Den entsprechenden Wert ersetzen
• Zurückschreiben in das Feld

Und das ganze mit direktem Zugriff auf das Array, dass ein NotesItem ja darstellt. Dann ist es auch wurscht, ob da Mehrfachwerte drinstehen oder nicht .. wird ja per default behandelt wie ein Mehrfachwert.

Bernhard

[Ramires]

Danke für eure Hilfe....

Die Schleife für die doc gabe ich stehen.
Nur mit dem auslesen der Felwerte habe ich noch probleme
Wie bekomme ich den Array hin zum auslesen
Ich habe versicht mit contains festzustellen ob der Wert im Feld steht das funz aber nicht.
ich komme da nicht weiter.....

[koehlerbv]

Dim vGivenValues As variant

vGivenValues = NotesDocument.Feldname
For iLoop = 0 to Ubound (vGivenValues)
   If szSearchValue = vGivenValues (iLoop) Then
      vGivenValues (iLoop) = szReplaceValue
... und so weiter ...

Bernhard

[Ramires]

Super danke

euch für eure schnelle Hilfe