Domino 9 und frühere Versionen > Entwicklung

@ReplaceSubstring in Script

(1/4) > >>

Don Pasquale:
Hallo Leute,

ich habe aus irgendeiner Quelle folgendes, was ziemlich genau das ist was ich benötige :

Function KillUmlaute ( s As String ) As String
 strformula = { @ReplaceSubString("} + s + {"; "ä":"ö":"ü":"ß":"Ä":"Ö":"Ü"; "ae":"oe":"ue":"ss":"Ae":"Oe":"Ue" ) }
 nStr = Evaluate( strformula )
 KillUmlaute = nstr(0)
End Function
 
Und zum Testen folgender Aufruf
 
Sub Click(Source As Button)
 Dim s As String
 s="ä ü ö ß Ä Ü Ö "
 Msgbox KillUmlaute(s)
End Sub


Nur leider funktioniert hier gar nichts.
Gibt es eine Chance dass hier zum Laufen zu bringen ?

Ciao

Don Pasquale

eknori:
nun, zum einen habe ich das mal geschrieben.

habe dein Posting 1:1 in eine neue Schaltfläche Kopiert und alles works as designed.

 ??? ??? ???

Till_21:
try this :

Function ReplaceSubstring(Byval txt As String, Byval from_str As String, Byval to_str As String) As String
   Dim pos As Integer
   Dim new_text As String
   Dim from_len As Integer
   
   from_len = Len(from_str)
   Do While Len(txt) > 0
      pos = Instr(txt, from_str)
      If pos = 0 Then
         new_text = new_text & txt
         txt = ""
      Else
         new_text = new_text & _
         Left$(txt, pos - 1) & to_str
         txt = Mid$(txt, pos + from_len)
      End If
   Loop
   ReplaceSubstring = new_text
End Function

gruss / till

Don Pasquale:
Hi eknori,

Von Dir ist das ? Hätte ich mir denken können.  ;D

Ich hatt die Funktion in eine Skriptbibliothek gepackt,
deswegen funktionierte das nicht.

Stimmt : Wenn alles in einem Button steckt, dann funktioniert
es.

Kannst Du mir erklären, warum ich bei
nStr = Evaluate( strformula )
immer ein "Operation failed" bekomme
wenn ich die Function in eine Bibliothek packe ?


Ciao

Don Pasquale

Till_21:

--- Zitat von: Don Pasquale am 15.01.03 - 14:25:46 ---
Kannst Du mir erklären, warum ich bei
nStr = Evaluate( strformula )
immer ein "Operation failed" bekomme
wenn ich die Function in eine Biblithek packe ?

--- Ende Zitat ---

Weil evaluate *** ist und deshalb nicht benutzt werden soll...

Gruss

Navigation

[0] Themen-Index

[#] Nächste Seite