[Resolvido] converter uma string para fonética

[xanburzum 169]

A função para converter uma string - por exemplo, pega uma senha - e converte para fonética.suporta apenas caracteres maiúsculos e minúsculos AZ e números

 

Function PhoPass(strIn)
		Dim sLetterCount, i, sLetter
		sLetterCount = Len(strIn)
		ReDim sTemp(sLetterCount)
		For i = 1 To sLetterCount
			sLetter = Mid(strIn,i,1)
			Select Case sLetter
				Case "a"
					sTemp(i) =  "alpha"
				Case "A"
					sTemp(i) =  "ALPHA"
				Case "b"
					sTemp(i) =  "bravo"
				Case "B"
					sTemp(i) =  "BRAVO"
				Case "c"
					sTemp(i) =  "charlie"
				Case "C"
					sTemp(i) =  "CHARLIE"
				Case "d"
					sTemp(i) =  "delta"
				Case "D"
					sTemp(i) =  "DELTA"
				Case "e"
					sTemp(i) =  "echo"
				Case "E"
					sTemp(i) =  "ECHO"
				Case "f"
					sTemp(i) =  "foxtrot"
				Case "F"
					sTemp(i) =  "FOXTROT"
				Case "g"
					sTemp(i) =  "golf"
				Case "G"
					sTemp(i) =  "GOLF"
				Case "h"
					sTemp(i) =  "hotel"
				Case "H"
					sTemp(i) =  "HOTEL"
				Case "i"
					sTemp(i) =  "india"
				Case "I"
					sTemp(i) =  "INDIA"
				Case "j"
					sTemp(i) =  "Juliet"
				Case "J"
					sTemp(i) =  "JULIET"
				Case "k"
					sTemp(i) =  "kilo"
				Case "K"
					sTemp(i) =  "KILO"
				Case "l"
					sTemp(i) =  "lima"
				Case "L"
					sTemp(i) =  "LIMA"
				Case "m"
					sTemp(i) =  "mike"
				Case "M"
					sTemp(i) =  "MIKE"
				Case "n"
					sTemp(i) =  "november"
				Case "N"
					sTemp(i) =  "NOVEMBER"
				Case "o"
					sTemp(i) =  "oscar"
				Case"O"
					sTemp(i) =  "OSCAR"
				Case "p"
					sTemp(i) =  "papa"
				Case "P"
					sTemp(i) =  "PAPA"
				Case "q"
					sTemp(i) =  "quebec"
				Case "Q"
					sTemp(i) =  "QUEBEC"
				Case "r"
					sTemp(i) =  "romeo"
				Case "R"
					sTemp(i) =  "ROMEO"
				Case "s"
					sTemp(i) =  "sierra"
				Case "S"
					sTemp(i) =  "SIERRA"
				Case "t"
					sTemp(i) =  "tango"
				Case "T"
					sTemp(i) =  "TANGO"
				Case "u"
					sTemp(i) =  "uniform"
				Case "U"
					sTemp(i) =  "UNIFORM"
				Case "v"
					sTemp(i) =  "victor"
				Case "V"
					sTemp(i) =  "VICTOR"
				Case "w"
					sTemp(i) =  "whiskey"
				Case "W"
					sTemp(i) =  "WHISKEY"
				Case "x"
					sTemp(i) =  "x-ray"
				Case "X"
					sTemp(i) =  "X-RAY"
				Case "y"
					sTemp(i) =  "yankee"
				Case "Y"
					sTemp(i) =  "YANKEE"
				Case "z"
					sTemp(i) =  "xulu"
				Case "Z"
					sTemp(i) =  "XULU"
				Case "0"
					sTemp(i) =  "ZERO"
				Case "1"
					sTemp(i) =  "ONE"
				Case "2"
					sTemp(i) =  "TWO"
				Case "3"
					sTemp(i) =  "THREE"
				Case "4"
					sTemp(i) =  "FOUR"
				Case "5"
					sTemp(i) =  "FIVE"
				Case "6"
					sTemp(i) =  "SIX"
				Case "7"
					sTemp(i) =  "SEVEN"
				Case "8"
					sTemp(i) =  "EIGHT"
				Case "9"	
					sTemp(i) =  "NINE"
			End Select
		Next
		For i = 1 To sLetterCount
			If Not i = sLetterCount Then
				PhoPass = PhoPass & sTemp(i) & " - "
			Else
				PhoPass = PhoPass & sTemp(i)
			End If
		Next
	End Function