Hallo

Versuche es mal über eine einizige Tabelle zu lösen. Dafür mußt du, für jedes Zeichen den Einsprung berechnen und dann die 5 passenden Sätze auslesen.


Hier mal ein kurzes schnelles Beispiel, was noch verbessert werden kann.
Die Data zeilen stimmen nicht.


Code:
Dim B1 As Byte , I As Byte
Dim X As Byte
Dim Ausgabe As Byte
Dim Zeichen As Byte
Dim Temp As Byte
Dim Temp_high As Byte


Zeichen = "7"

Temp = Asc(zeichen)                                         'Asc Code Des Zeichen Holen
Temp = Temp - 48                                            'Offset abziehen, da "0" den ASC Code 48 hat
Temp = Temp * 5                                             'Einsprung berechnen da immer 5 bytes pro Zeichen benötigt werden

Temp_high = Temp + 4
For X = Temp To Temp_high                                   'Ende festlegen
Ausgabe = Lookup(x , Dta2)                                  'Code holen
Print Ausgabe
Next
End                                                         'end program

Dta2:
Data 23 , 66 , 127 , 64 , 0                                  'Zeichencode für 0   Einsprung mit 0
Data 12 , 97 , 81 , 73 , 70                                  'Zeichencode für 1   Einsprung mit 5
Data 28 , 66 , 127 , 64 , 0                                  'Zeichencode für 2   Einsprung mit 10
Data 3 , 97 , 81 , 73 , 70                                  'Zeichencode für 3   Einsprung mit 15
Data 78 , 66 , 127 , 64 , 0                                  'Zeichencode für 4   Einsprung mit 20
Data 11 , 97 , 81 , 73 , 70                                  'Zeichencode für 5   Einsprung mit 25
Data 94 , 66 , 127 , 64 , 0                                  'Zeichencode für 6   Einsprung mit 30
Data 51 , 97 , 81 , 73 , 70                                  'Zeichencode für 7   Einsprung mit 35
Data 27 , 66 , 127 , 64 , 0                                  'Zeichencode für 8   Einsprung mit 40
Data 44 , 97 , 81 , 73 , 70                                  'Zeichencode für 9   Einsprung mit 45

MFG
Dieter