help with vb 2008 express

[smra9]

Hi, i'm new on the forum and new in programing with visual basic...i have one problem and i'm sure that it will be piece of cake for you... I need to make a program which will for every word written in textbox search it's first letter and when i click on the button it will give me different message in the text. it would be the best that i can make that it gives one message for words thats starts from a to h, second message for letters from i to o, and so on..

[minitech]

So, split it by words first of all:

Dim words() As String = Me.TextBox1.Text.Split(New Char() {vbCr,vbLf,vbTab," "c}, StringSplitOptions.RemoveEmptyEntries)

Then, loop through each one and find its first letter:

For Each w As String In words
     Dim firstChar As Char = Char.ToLower(w.Chars(0)) 'Make sure it's lowercase

Finally, compare the character:

     Select Case firstChar
          Case "a"c To "h"c
               ' Message for a to h
          Case "i"c To "o"c
               ' Message for i to o
          'Etcetera.
Next

[smra9]

Thanks, I have tried this but whatever i wrote in the textbox it gives me the first message from select case (letter from a to h). Can you please check this out, because i can't figure out what's wrong.

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

        Dim words() As String = Me.TextBox1.Text.Split(New Char() {vbCr, vbLf, vbTab, " "c}, StringSplitOptions.RemoveEmptyEntries)

        For Each w As String In words
            Dim firstChar As Char = Char.ToLower(w.Chars(0))
        Next

        Select Case "firstChar"

            Case "a"c To "h"c
                MsgBox("letter from a to h")
            Case "i"c To "x"c
                MsgBox("letter from i to x")
            Case Else
                MsgBox("everything else..")
        End Select

[Knvn]

In your code 'firstChar' is local to the loop.

Try this:

For Each w As String In words
        Dim firstChar As Char = Char.ToLower(w.Chars(0))
       
        Select Case "firstChar"

            Case "a"c To "h"c
                MsgBox("letter from a to h")
            Case "i"c To "x"c
                MsgBox("letter from i to x")
            Case Else
                MsgBox("everything else..")
        End Select
 Next

[Edgemeal]

Thanks, I have tried this but whatever i wrote in the textbox it gives me the first message from select case (letter from a to h). Can you please check this out, because i can't figure out what's wrong.

Why did you put quotes around firstChar in the Select Case line, aren't you trying to find/compare words from the text box?

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

        ' test words
        TextBox1.Text = "Zoo apple Ipod"

        Dim words() As String = Me.TextBox1.Text.Split(New Char() {vbCr, vbLf, vbTab, " "c}, StringSplitOptions.RemoveEmptyEntries)
        For Each w As String In words
            Dim firstChar As Char = Char.ToLower(w.Chars(0))
            Select Case firstChar
                Case "a"c To "h"c
                    MsgBox("Starts with a to h: Word = " & w)
                Case "i"c To "x"c
                    MsgBox("Starts with i to x: Word = " & w)
                Case Else
                    MsgBox("other: Word = " & w)
            End Select
        Next

    End Sub

[Knvn]

Why did you put quotes around firstChar in the Select Case line, aren't you trying to find/compare words from the text box?

Good suggestion. Sorry, I didn't noticed that.

[smra9]

Thanks to everyone, especially to Edgemeal...i changed your code a little bit which is best for me and it finally works...so here is the code if someone else need it:

Dim words() As String = Me.TextBox1.Text.Split(New Char() {vbCr, vbLf, vbTab, " "c}, StringSplitOptions.RemoveEmptyEntries)
        For Each w As String In words
            Dim firstChar As Char = Char.ToLower(w.Chars(0))

            Select Case firstChar
                Case "a"c To "h"c
                    MsgBox("Starts with a to h")
                Case "i"c To "x"c
                    MsgBox("Starts with i to x")
                Case Else
                    MsgBox("other")
            End Select
        Next