06.02.2023, 16:28
Hi,
nun ja, das liegt daran, dass die "kleinen" Zahlen halt bereits im ASCII-Code vorhanden waren...
Übrigens hier zwei kleine Funktionen, die alle Buchstaben (soweit in Unicode vorhanden) hoch bzw. tief stellen:
nun ja, das liegt daran, dass die "kleinen" Zahlen halt bereits im ASCII-Code vorhanden waren...
Übrigens hier zwei kleine Funktionen, die alle Buchstaben (soweit in Unicode vorhanden) hoch bzw. tief stellen:
Code:
Function Tief(Text As String) As String
'stellt einen Text tiefgestellt dar (über entsprechenden UniCode)
Dim Buchstabe As String
Dim i As Long
For i = 1 To Len(Text)
Buchstabe = Mid(Text, i, 1)
Select Case Buchstabe
Case 0 To 9: Tief = Tief & ChrW(&H2080 + Buchstabe)
Case "+": Tief = Tief & ChrW(&H208A)
Case "-": Tief = Tief & ChrW(&H208B)
Case "=": Tief = Tief & ChrW(&H208C)
Case "(": Tief = Tief & ChrW(&H208D)
Case ")": Tief = Tief & ChrW(&H208E)
Case "a": Tief = Tief & ChrW(&H2090)
Case "e": Tief = Tief & ChrW(&H2091)
Case "h": Tief = Tief & ChrW(&H2095)
Case "i": Tief = Tief & ChrW(&H1D62)
Case "j": Tief = Tief & ChrW(&H2C7C)
Case "k": Tief = Tief & ChrW(&H2096)
Case "l": Tief = Tief & ChrW(&H2097)
Case "m": Tief = Tief & ChrW(&H2098)
Case "n": Tief = Tief & ChrW(&H2099)
Case "o": Tief = Tief & ChrW(&H2092)
Case "p": Tief = Tief & ChrW(&H209A)
Case "r": Tief = Tief & ChrW(&H1D63)
Case "s": Tief = Tief & ChrW(&H209B)
Case "t": Tief = Tief & ChrW(&H209C)
Case "u": Tief = Tief & ChrW(&H1D64)
Case "v": Tief = Tief & ChrW(&H1D65)
Case "x": Tief = Tief & ChrW(&H2093)
Case Else: Tief = Tief & Buchstabe
End Select
Next i
End FunctionCode:
Function Hoch(Text As String) As String
'stellt einen Text hochgestellt dar (über entsprechenden UniCode)
Dim Buchstabe As String
Dim i As Long
For i = 1 To Len(Text)
Buchstabe = Mid(Text, i, 1)
Select Case Buchstabe
Case 1: Hoch = Hoch & ChrW(&HB9)
Case 2, 3: Hoch = Hoch & ChrW(&HB0 + CInt(Buchstabe))
Case 0, 4 To 9: Hoch = Hoch & ChrW(&H2070 + CInt(Buchstabe))
Case "A": Hoch = Hoch & ChrW(&H1D2C)
Case "B": Hoch = Hoch & ChrW(&H1D2E)
Case "D": Hoch = Hoch & ChrW(&H1D30)
Case "E": Hoch = Hoch & ChrW(&H1D31)
Case "G": Hoch = Hoch & ChrW(&H1D33)
Case "H": Hoch = Hoch & ChrW(&H1D34)
Case "I": Hoch = Hoch & ChrW(&H1D35)
Case "J": Hoch = Hoch & ChrW(&H1D36)
Case "K": Hoch = Hoch & ChrW(&H1D37)
Case "L": Hoch = Hoch & ChrW(&H1D38)
Case "M": Hoch = Hoch & ChrW(&H1D39)
Case "N": Hoch = Hoch & ChrW(&H1D3A)
Case "O": Hoch = Hoch & ChrW(&H1D3C)
Case "P": Hoch = Hoch & ChrW(&H1D3E)
Case "R": Hoch = Hoch & ChrW(&H1D3F)
Case "T": Hoch = Hoch & ChrW(&H1D40)
Case "U": Hoch = Hoch & ChrW(&H1D41)
Case "V": Hoch = Hoch & ChrW(&H2C7D)
Case "W": Hoch = Hoch & ChrW(&H1D42)
Case "a": Hoch = Hoch & ChrW(&H1D43)
Case "b": Hoch = Hoch & ChrW(&H1D47)
Case "c": Hoch = Hoch & ChrW(&H1D9C)
Case "d": Hoch = Hoch & ChrW(&H1D48)
Case "e": Hoch = Hoch & ChrW(&H1D49)
Case "f": Hoch = Hoch & ChrW(&H1DA0)
Case "g": Hoch = Hoch & ChrW(&H1D4D)
Case "h": Hoch = Hoch & ChrW(&H2B0)
Case "i": Hoch = Hoch & ChrW(&H2071)
Case "j": Hoch = Hoch & ChrW(&H2B2)
Case "k": Hoch = Hoch & ChrW(&H1D4F)
Case "l": Hoch = Hoch & ChrW(&H2E1)
Case "m": Hoch = Hoch & ChrW(&H1D50)
Case "n": Hoch = Hoch & ChrW(&H207F)
Case "o": Hoch = Hoch & ChrW(&H1D52)
Case "p": Hoch = Hoch & ChrW(&H1D56)
Case "r": Hoch = Hoch & ChrW(&H2B3)
Case "s": Hoch = Hoch & ChrW(&H2E2)
Case "t": Hoch = Hoch & ChrW(&H1D57)
Case "u": Hoch = Hoch & ChrW(&H1D58)
Case "v": Hoch = Hoch & ChrW(&H1D5B)
Case "w": Hoch = Hoch & ChrW(&H2B7)
Case "x": Hoch = Hoch & ChrW(&H2E3)
Case "y": Hoch = Hoch & ChrW(&H2B8)
Case "z": Hoch = Hoch & ChrW(&H1DBB)
Case "+": Hoch = Hoch & ChrW(&H207A)
Case "-": Hoch = Hoch & ChrW(&H207B)
Case "=": Hoch = Hoch & ChrW(&H207C)
Case "(": Hoch = Hoch & ChrW(&H207D)
Case ")": Hoch = Hoch & ChrW(&H207E)
Case Else: Hoch = Hoch & Buchstabe
End Select
Next i
End Function