Visual Basic

Dim input As String = "4247288"

Dim characterLookup As Dictionary(Of Char, Char()) = New Dictionary(Of Char, Char())

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.FillCharacterLookup()
End Sub

Private Sub FillCharacterLookup()
    characterLookup.Add("2"c, New Char() {"A"c, "B"c, "C"c})
    characterLookup.Add("3"c, New Char() {"D"c, "E"c, "F"c})
    characterLookup.Add("4"c, New Char() {"G"c, "H"c, "I"c})
    characterLookup.Add("5"c, New Char() {"J"c, "K"c, "L"c})
    characterLookup.Add("6"c, New Char() {"M"c, "N"c, "O"c})
    characterLookup.Add("7"c, New Char() {"P"c, "Q"c, "R"c, "S"c})
    characterLookup.Add("8"c, New Char() {"T"c, "U"c, "V"c})
    characterLookup.Add("9"c, New Char() {"W"c, "X"c, "Y"c, "Z"c})
End Sub

Private Sub OutputResult()
    Dim outArray(7) As Char
    For index As Integer = 0 To input.Length - 1
        outArray(index) = characterLookup(input(index))(0)
    Next
    Me.txtResult.Text = Convert.ToString(outArray)
End Sub

Private Sub btnGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerate.Click
    Me.OutputResult()
End Sub

rbjanaki wrote:

thank very much, but I have to display 2187 combinations in a list box after user enter the phone number in textbox

Henry Minute wrote:

I will have to think about it

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Luc Pattyn wrote:

Yeah, I don't know where to get a haircut on a Sunday evening either.

Henry Minute wrote:

I have a choice from 2,187 possibilities

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Luc Pattyn wrote:

Too bad, as I know how hard it is for you to make even simple decisions...

Henry Minute wrote:

I forgot to 5 your previous post.

Luc Pattyn

Have a look at my entry for the lean-and-mean competition; please provide comments, feedback, discussion, and don’t forget to vote for it! Thank you.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


    Dim str1, str2 As String
    str1 = "softdev_sup"
    str2 = "Softdev_    sup"
    MessageBox.Show(String.Compare(str1, str2, False))
    MessageBox.Show(String.Compare(RemoveSpace(str1), RemoveSpace(str2), True))

End Sub

Public Function RemoveSpace(ByVal strText As String) As String
    Return System.Text.RegularExpressions.Regex.Replace(strText, " ", _
    String.Empty, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
End Function