Domino 9 und frühere Versionen > ND6: Entwicklung

Funktion um String zu säubern??? :-)

<< < (3/5) > >>

Thomas Schulte:
Bitte Jungs schaut doch mal bei den String Funktionen in der Online Hilfe nach.  für den Replacesubstring gibt es da schon seit längerem eine eigene Funktion, die sich Replace nennt und ohne den ganzen Evaluate Schnickschnack auskommt.

Thomas ::)

gfunkus:
Also meinen function funktioniert soweit.
Aber wie kann ich " oder \ ersetzen?


Sub filteradr (filtername As String)
   Dim tmpstring2 As String
   Dim s As New NotesSession
   Dim eval As Variant
   tmpstring2 =filtername
   'Durchsuche String nach illegalen Zeichen ("/ \ : * ? " | < >"
   Dim searchstring As String
   
   
   myblank =""   
   For i = 0 To 7
      Select Case i
      Case 0 : searchstring = "/"
      Case 1 : searchstring = ":"
      Case 2 : searchstring = ":"
      Case 3 :  searchstring = "*"
      Case 4 : searchstring = "?"
      Case 5 : searchstring = "|"
      Case 6  :searchstring = "<"
      Case 7 :searchstring = ">"
      End Select
            eval = Evaluate( |@replacesubstring("| + tmpstring2 + |"; "| + searchstring + |";"| + myblank + |")| )
      tmpstring2=eval(0)
         Next i
   
   filtername = tmpstring2

Tode:
also ich weiss ja nicht... aber wenn Du ein wenig Ahnung von Formelsprache hättest, dann würdest Du Dich nicht so verkünsteln...

eine Formel, um alle von Dir gewünschten Zeichen zu ersetzen, wäre:

@ReplaceSubstring( tmpString ; "/" : "\\" : ":" : "*" : "?" : "|" : "<" : ">" : "\"" ; "")

und in Script dann:

fromString = {"/" : "\\" : ":" : "*" : "?" : "|" : "<" : ">" : "\""}
evalString = {@ReplaceSubstring("} & tmpString & {"; } & fromString & { ; "} & myblank & {")}
eval = Evaluate( evalString )
tmpString2 = eval( 0 )

Gruß
Tode

gfunkus:
und welche stelle zieht das " (Gänsefüsschen) raus?
Weil scheint so nicht zu funzen... ???
In der Formelsprache bin ich in der Tat nicht sehr geübt. ;-)

koehlerbv:
Das wird so notiert: "\"" (wie es Tode gemacht hat.
Oder @Char (34)

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete