Replace , for :

HCL Domino Domino Forum
1

hello,

I have the follow code:

Dim workspace As New NotesUIWorkspace

ServerName$= ""

DatabaseName$= "Fonotheek.nsf"

Set tcollection = workspace.PickListCollection( 3, False,ServerName$, DatabaseName$, "Nummers","Kies een Nummer" , "Kies nummer")

If tcollection.count=0 Then Exit Sub

Set tdoc = tcollection.GetFirstDocument

Set ndoc = workspace.currentdocument



Set artiest=tdoc.getfirstitem("Artiest")

If Not artiest Is Nothing Then

	artiest = artiest.Text

Else

	artiest=""

End If

Call ndoc.FieldSetText( "txtArtiest",artiest )



Set Nummer=tdoc.getfirstitem("Titel")

If Not Nummer Is Nothing Then

	Nummer=Nummer.Text

Else

	Nummer=""

End If	

Call ndoc.FieldSetText("txtNummer",Nummer)



Set code=tdoc.getfirstitem("Code")

If Not code Is Nothing Then	

	code=code.Text

Else

	code=""

End If	

Call ndoc.FieldSetText("txtCode",code)



Set kant=tdoc.getfirstitem("Kant")

If Not kant Is Nothing Then	

	kant=kant.Text

Else

	kant=""

End If	

Call ndoc.FieldSetText("txtKant",kant)



Set speeltijd=tdoc.getfirstitem("Tijd")

my problem is i want to search the variable “speeltijd” for “,” and replace it with “:” but i dont know how.

2

Subject: Designer Help

Not to be rude, but I suggest you read a (red)book about Lotusscript, or search the Designer Help before posting.There you will find the function Replace:

Replace(sourceArray, findArray, replacementArray [, start [, count [, compMethod]]])

And a short method for filling in your field could be something like this:

Call ndoc.FieldSetText( “txtArtiest”,Replace(Cstr(tdoc.getItemValue(“Tijd”)(0)),“,”,“:”))