Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: _Arne_ am 29.08.03 - 15:34:32
-
Huhu Ihr,
wie ihr wissen tut bin ich ja nen entwicklungs gimp :-)
Wie muss nen agent aussehen der aus einem TEXT feld alle Leerzeichen entfernt?
Z.b.: 270 292 22 soll dann 27029222 werden?
Jemand eine Idee?
-
die Funktion :
Function ReplaceSubstring(iSource As String, iSearch As String, iReplace As String) As String
'Function ersetzt in einem vorgegebenen String eine Zeichenfolge durch eine andere
'Eingabe-Parameter: Eingabe-String, zu ersetzender Zeichenfolge, Ersatz-Zeichenfolge
'Ausgabe-Parameter: Eingabestring mit ersetzten Zeichenfolgen
Dim xStartPos As Integer
Dim xEndPos As Integer
Dim xLeftPart As String
Dim xRightPart As String
xEndPos = 1
Do While Not Instr(xEndPos, iSource, iSearch) = 0
xStartPos = Instr(xEndPos, iSource, iSearch)
xEndPos = (xStartPos + Len(iSearch)) -1
xLeftPart = Left(iSource, xStartPos -1)
xRightPart = Right(iSource, Len(iSource) - xEndPos)
iSource = xLeftPart & iReplace & xRightPart
xEndPos = Len(xLeftPart & iReplace)
If xEndPos = 0 Then Goto ExitLoop
Loop
ExitLoop:
ReplaceSubstring = iSource
End Function
diese kannst Du in Deinen Agenten einbinden.
-
Danke ersma,
aber tuts da nicht auch irgendeine nette "FORMEL" ?
Mit script komm ich garnicht klar.. zmnd nicht mit LN Script *smile*
-
dann schau mal in die Hilfe !
@ReplaceSubstring !