Via Agent eine bestimmte Zahl ändern

Hallo,

ich habe eine Datenbank in welcher Verträge erfasst werden. Es gibt Feld, welches automatisch eine fortlaufende Nummer erhält.
Die Nummer hat folgendes Format: 200804/999.

Jetzt muss ich das Nummernformat umstellen. Anstatt des / soll nun eine 0 eingetragen werden.

Bei mittlerweile 1000 Dokumenten eine ganze Menge Arbeit.

Könnte mir freundlicherweise mit einem Agenten weiterhelfen, welcher automatisch die 4. Stelle von hinten mit einer 0 ersetzt?

Danke im voraus.

Ich habe aus einem Seminar mal einen Feldänderungsagenten bekommen, kann man den evtl umschreiben, wenn ja wie?

Hier das Script:
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim ns As New NotesSession
Dim dc As NotesDocumentCollection
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim nitem As NotesItem

Dim feldliste() As String
Dim feldname As Variant
Dim NeuerWert As String
Dim ct As Integer

Set db = ns.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
ct = 0

Forall item In doc.Items
Redim Preserve feldliste( ct )
feldliste( ct ) = item.name
ct = ct + 1
End Forall

feldname = ws.Prompt( 4 , "Feld wählen", "Bitte den Feldnamen wählen", "", feldliste )
If feldname = "" Then Goto P_Ende

NeuerWert =Inputbox( "Bitte den neuen Wert eingeben für Feld " & Cstr( feldname ) ,"Neuer Wert" )

While Not doc Is Nothing
Set nitem = doc.ReplaceItemValue( feldname, NeuerWert )
Call doc.Save( True, True, True )
Set doc = dc.GetNextDocument( doc )
Wend

P_Ende:
End Sub

Hy,

danke für deine schnelle Hilfe, nur so ganz funzt es bei mir nicht.

Ich habe also einen Agenten erstellt mit folgender Formel:

SELECT @All;
@ReplaceSubstring(Number;"/";"0")

Das Feld heißt Number.

Er arbeitet auch jedes Dok ab, jedoch ändert nichts. Woran könnte das liegen?

SPITZE! Es hat funktioniert. Vielen Dank!!! Gruss Dani