Split op og replace

Hvad med: Replace(Streng, find, udskiftmed)

nope.. virker ikke.. Der sker intet når jeg trykker på knappen..

Har fundet ud af det...

Private Sub Command1_Click()
Dim iBuffer As Integer
Dim Result As String

For iBuffer = 1 To Len(Text1.Text)
  Select Case Mid$(Text1.Text, iBuffer, 1)
    Case Is = "a"
        Result = Result & "4"
    Case Is = "b"
        Result = Result & "8"
    Case Is = "c"
        Result = Result & "("
    Case Is = "d"
        Result = Result & "("
    Case Is = "e"
        Result = Result & "3"
    Case Is = "f"
        Result = Result & "("
    Case Is = "g"
        Result = Result & "6"
    Case Is = "h"
        Result = Result & "|-|"
    Case Is = "i"
        Result = Result & "1"
    Case Is = "j"
        Result = Result & "9"
    Case Is = "k"
        Result = Result & "|<"
    Case Is = "l"
        Result = Result & "|_"
    Case Is = "m"
        Result = Result & "/\/\"
    Case Is = "n"
        Result = Result & "/\/"
    Case Is = "o"
        Result = Result & "0"
    Case Is = "p"
        Result = Result & "|o"
    Case Is = "q"
        Result = Result & "o|"
    Case Is = "r"
        Result = Result & "r"
    Case Is = "s"
        Result = Result & "Z"
    Case Is = "t"
        Result = Result & "7"
    Case Is = "u"
        Result = Result & "|_|"
    Case Is = "v"
        Result = Result & "\/"
    Case Is = "w"
        Result = Result & "\/\/"
    Case Is = "x"
        Result = Result & "><"
    Case Is = "y"
        Result = Result & "y"
    Case Is = "z"
        Result = Result & "%"
    Case Is = " "
        Result = Result & " "
    Case Is = "."
        Result = Result & "."
  End Select
Next iBuffer
Text2.Text = Result
End Sub

Måske en lidt umulig måde, men den virker

/Bio

<-*-*-*-*- SPØRGSMÅL LUKKET -*-*-*-*->

Replace virker fint såfremt du ikke bruger VB 4.0-, jeg vil klart anbefale dig at bruge ASCII værdier og et loop i stedet for din lange case statement. For at se ascii værdierne kan du gøre sådan her:

Smid en listbox på din form, og skriv det her i form load:

For I = 0 To 255
    List1.AddItem I & "    " & Chr(I)
Next