@ReplaceSubstring in Script

[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.  

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]

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

[eknori]

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

eknori

[Don Pasquale]

@Till21 : ***

Kannitverstan ?

Ciao
Don Pasquale

[Axel]

@Till_21

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

So einfach kannst du dir das nicht machen. Ich habe einige Evaluate-Anweisungen in Bibliotheken und die laufen alle.

@Don Pasquale

schau auch mal hier nach

http://www.free.dominoserver.de/computer/noteslibrary.nsf/1af7bead26d85723c1256ca800382b3a/4b72e8439c418c6080256c9300736699?OpenDocument


Axel

[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]

Hi,

ich hab den Code mal in eine Bibliothek gepackt und funktioniert einwandfrei.

Hast du evt. irgendwo noch eine andere Funktion oder Routine die so heißt ?


Axel

[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]

... hast du dir nStr mal im Debugger angeschaut? Es sieht danach aus, daß es kein Array ist...

ata

[Don Pasquale]

@ata:


Ich habe es doch 2 Zeilen vorher als Variant deklariert.

Ciao

Don Pasquale

[ata]

... was ist in der Variablen "s" tatsächlich drin, ist der String sauber...

ata

[ata]

@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

[Till_21]

sorry zusammen, ich war ein wenig voreilig...
habe nur den betreff gelesen und ein replacesubstring-ersatz in script gepostet...

das mit den umlauten habe ich nicht gelesen, und meine gepostete function x-mal zu verschachteln, ist sicherlich
auch nicht das performanteste...

gruss / till

[ata]

@Don

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

Code

Function KillUmlaute ( s As String ) As String 
   Dim strFormula As String
   Dim nStr As Variant
   
   strformula = { @ReplaceSubString("} + s + {"; "ä":"ö":"ü":"ß":"Ä":"Ö":"Ü"; "ae":"oe":"ue":"ss":"Ae":"Oe":"Ue" ) } 
   nStr = Evaluate( strformula ) 
   KillUmlaute = nstr(0) 
End Function 

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

ata