Dim chars() As Char = { "a,i,j,q,y"c, "b,k,r"c, "c,g,l,s"c, "d,m,t"c, "e,h,n"c, _
  "u,v,w,x"c, "o,z"c, "f,p"c}
Dim werte() As Short = {1,2,3,4,5,6,7,8}
Dim data As String = "adöß"
 
        For Each c As Char In data
            Dim wert As Integer = werte(Array.IndexOf(chars, Char.ToLower(c)))
            Debug.WriteLine(wert.ToString())
        Next

---------------------------------------
Ich darf das fragen, ich lerne noch ;)
---------------------------------------

Beitrag wurde zuletzt am 31.10.11 um 13:15:08 editiert.