Gruppe
UDF
Problem
Der Abdruck von Buchstaben auf der Tastatur der Telefonapparate eröffnet die Möglichkeit, Telefonnummern zu beantragen, deren alphanumerische Umsetzung einen bestimmten Namen ergibt. Wie kann ich aus einer Zeichenfolge die Vanity-Nummer ermitteln?
StandardModule: basMain
Function Ph700(sTxt As String) As String
Dim iCounter As Integer, iChr As Integer
Dim sTmp As String
sTxt = UCase(sTxt)
For iCounter = 1 To 8
iChr = Asc(Mid(sTxt, iCounter, 1)) - 64
Select Case iChr
Case Is < 19
sTmp = sTmp & Fix((iChr - 1) / 3) + 2
Case Is < 26
sTmp = sTmp & Fix((iChr - 2) / 3) + 2
Case Else
sTmp = sTmp & Fix((iChr - 3) / 3) + 2
End Select
Next iCounter
Ph700 = "0700-" & sTmp
End Function