Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: dasRalph am 30.06.03 - 07:02:43

Titel: Zeichen aus string
Beitrag von: dasRalph am 30.06.03 - 07:02:43

Hallo!!!

Ich suche eine Möglichkeit ein bestimmtes Zeichen aus einen String per Lotus Script zu entfernen/ersetzen. Hab aber nichts gefunden :(((

Hat jemand einen Tip???

Besten Dank!!!
Ralph

Titel: Re:Zeichen aus string
Beitrag von: ghost am 30.06.03 - 07:46:53

@ReplaceSubString als Funktion:
 
Function ReplaceSubString(SourceS As String, SearchS As String, ReplaceS As String) As String
   While Instr(SourceS, SearchS) > 0
      SourceS = Left$(SourceS, Instr(SourceS, SearchS) - 1) + ReplaceS + Right$(SourceS, Len(SourceS) - Instr(SourceS, SearchS) - Len(SearchS) + 1)
   Wend
   ReplaceSubstring = SourceS
End Function

Weiteres Beispiel als Funktion:

Function ReplaceSubstring(Byval s As String, target As String, replace As String) As String
Dim p As Integer
Dim length As Integer
Dim anchor As Integer

length = Len(target)
anchor = 1

Do
   p = Instr(anchor, s, target)

   If p = 0 Then
      ReplaceSubstring = s
      Exit Function
   End If

   s = Left$(s, p - 1) + replace + Mid$(s, p + length)
   anchor = p + 1
Loop
End Function

Noch ein Beispiel:
Ersetzt jedes definierte Zeichen in einem String durch ein anderes definiertes Zeichen

Function changeStringcode(tochange As String,Removevalue As String, newvalue As String) As String
   Dim leftpart As String
   Dim rightpart As String
   Dim PosOfChange As Integer
   
   PosOfChange = Instr(tochange, Removevalue)
   While PosOfChange > 0
      Leftpart = Left$(toChange,posofchange-1)
      rightpart = Right$(tochange,Len(tochange)-(Len(leftpart) +Len(removevalue)))
      tochange = Leftpart + newvalue + Rightpart
      
      PosOfChange = Instr(tochange, Removevalue)
   Wend
   changestringcode = tochange
End Function

Oder mit Evaluate:

eval = Evaluate(|@ReplaceSubstring(Name;"\'";"\'\'"|)