Function realisieren

[rainerohl]

Hallo User
ich habe ich folgene Sub geschrieben, die mir als Function dienen soll:

Sub Convert (St As String) as String
Dim i As Int
For i = 1 To St.Length
St = St.Replace("(","ä")
St = ST.Replace(")","Ä")
St = St.Replace("_","ü")
St = ST.Replace("+","Ü")
St = ST.Replace("/","ö")
St = ST.Replace("*","Ö")
St = ST.Replace("!","ß")
Next
End Sub

fogener Aufruf functioniert aber nicht. (Beisp müsste "Ötztürk" ergeben)

Dim Beisp as string
Beisp = Convert("*tzt_rk")

Was ist falsch???

mit freundlichen Grüßen Rainer

[klaus]

Folgender Code funktioniert:

<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">Convert (St </font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">As </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b">String</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">) </font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">As </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b"><font face="Courier New"><font size="2"><font color="#008b8b">String</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">  St = St.Replace(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"("</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">,</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"�"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">)</font></font>
<font size="2"><font face="Courier New">  St = St.Replace(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">")"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">,</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"�"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">) </font></font>
<font size="2"><font face="Courier New">  St = St.Replace(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"_"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">,</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"�"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">)</font></font>
<font size="2"><font face="Courier New">  St = St.Replace(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"+"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">,</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"�"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">) </font></font>
<font size="2"><font face="Courier New">  St = St.Replace(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"/"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">,</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"�"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">) </font></font>
<font size="2"><font face="Courier New">  St = St.Replace(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"*"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">,</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"�"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">) </font></font>
<font size="2"><font face="Courier New">  St = St.Replace(</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"!"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">,</font></font></font></font><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000"><font face="Courier New"><font size="2"><font color="#800000">"�"</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">) </font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">  Return</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> St</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

In Deinem Code befinden sich mehrere Probleme:
- For i=1 To St.Lenght müsste For i=0 To St.Lenght-1 sein denn Buchstaben Indize in Strings fangen mit 0 an. Diese Zeil ist aber gar nicht nötig.
- St.Replace("(","ä") ersätzt Alle vorkommende "(" durch "ä", man braucht nicht alle Buchstaben durchzulaufen. Deshalb ist die For - Next Schlaufe unnütz.
- Es fehlt die Rückgabe Funktion mit Return St.

Beste Grüsse.

[rainerohl]

Hallo Klaus,
manchmal habe ich ein Brett vor dem Kopf.
Das mit der unnützen For/next schleife hätte ich wissen müssen.
Die Rückgabe in der Sub mit Return habe ich nun auch begriffen.
vielen Dank
mfg Rainer