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

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

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

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

Gruss

@Till21 : ***

Kannitverstan ?

Ciao
Don Pasquale

Hab den Code selber in einer LIB; und der Code funzt mit dieser Lib in ca 20 Datenbanken  

eknori

@eknori :

Also von vorne : Ich mach ja irgendwo was falsch:

Wenn ich folgendes in meine Bibliothek packe :

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


Bekomme ich bei ----> ein Illegal paranthesis reference
das kann ich beheben mit
Dim nstr as Variant

Aber das Operation failed bei
    nStr = Evaluate( strformula )

da weiss ich nichts
ciao
Don Pasquale

@Axel,

2 mal dieselbe Function in einer Bibliothek ?
Nein, zur Sicherheit habe ich aber eine 2 Function
mit kompett anderem Namen erstellt und dort habe ich das gleiche
Problem.

Ciao
Don Pasquale

@ata:


Ich habe es doch 2 Zeilen vorher als Variant deklariert.

Ciao

Don Pasquale

@Till_21

... ich verwende Evaluate in einigen Libs und hatte damit noch nie Probleme...

... meine Frage ein Posting zurück hat sich geklärt, ich werde deinen Code mal bei mir ausprobieren...

ata

@Don

... den folgenden Code habe ich gerade getestet, und der funktioniert ohne Tadel...


... bist du sicher, daß du wirklich nur einen String übergibst und nicht eventuell was leeres oder ein Array...

ata