Dim strRich1 As String
Dim strRich2 As String = ""
Dim i As Integer
Dim htWerte As New Hashtable()
Dim Item As DictionaryEntry
 
strRich1 = RichTextBox1.Text
 
htWerte.Add("A", "H")
htWerte.Add("B", "N")
htWerte.Add("C", "U")
htWerte.Add("D", "A")
htWerte.Add("E", "G")
htWerte.Add("F", "M")
htWerte.Add("G", "K")
htWerte.Add("H", "D")
htWerte.Add("I", "Z")
htWerte.Add("J", "O")
htWerte.Add("K", "B")
htWerte.Add("L", "X")
htWerte.Add("M", "E")
htWerte.Add("N", "J")
htWerte.Add("O", "F")
htWerte.Add("P", "C")
htWerte.Add("Q", "S")
htWerte.Add("R", "T")
htWerte.Add("S", "P")
htWerte.Add("T", "V")
htWerte.Add("U", "Y")
htWerte.Add("V", "I")
htWerte.Add("W", "L")
htWerte.Add("X", "W")
htWerte.Add("Y", "Q")
htWerte.Add("Z", "R")
 
'
For i = 0 To strRich1.Length - 1  
    For Each Item In htWerte
        If Item.Key = strRich1(i) Then
             strRich2 = strRich2 + Item.Value
        End If
    Next
Next
 
RichTextBox2.Text = strRich2

Die Intelligenz verfolgt mich. Aber ich bin schneller!!

Beitrag wurde zuletzt am 28.09.10 um 17:08:43 editiert.