Es geht einfach mit @ReplaceSubstring, dass mit Evaluate aufgerufen wird.

Andreas

Schau mal spassenshalber in eval nach  

Gib' auch der DesignerHelp eine Chance ...

Bernhard

Jo, das Problem liegt an Deinem Evaluate: Du übergibst ja hier an @ReplaceSubstring die Feldnamen tmpstring und searchstring, und die sucht es jetzt in deinem Dokument doc.
Du musst also den Inhalt der beiden Variablen übergeben. Gleiches gilt für myblank.

HTH,
Bernhard

So:
Dim teststring As String
Dim tmpstring As String
Dim eval As Variant

teststring = "Test/WORT"
tmpstring = teststring
searchstring = "/"  
myblank = ""

eval = Evaluate( |@replacesubstring("| + tmpstring + |"; "| + searchstring + |";"| + myblank + |")| )

msgbox eval(0)

Das doc brauchst Du in diesem Fall gar nicht.

Andreas

Gibt es Merkwürdigkeiten bei Evaluate, hilft es meist, wenn man sich den (ja immer kompliziert aufgebauten @function-)String in eine Variable schreibt und mit einer Massagebox anzeigen lässt und dann darüber nachdenkt, was damit die "normale" Formelsprache anfangen würde.
Mir geht es jedenfalls so  

Bernhard

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

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. ;-)

jawohl... wieder ein Quereinsteiger, der glaubt bei Notes ohne Formelsprache und mit ein bisschen Script- Programmierung über die Runden zu kommen...

-ohne weiteren Kommentar-

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

Bekomme Dabei diese Fehlermeldung sobald ein " im String ist.
Error 4044: Invalid formula (@ReplaceSubstring("ALBERT "STEFFENS""; "/" : "\\" : ":" : "*" : "?" : "|" : "<" : ">" : "\"" ; ""))

Kann wer helfen?

Habs jetzt mit der LS Function Replace gemacht. Funktioniert einwandfrei. Danke für eure Hilfe.