count the number of vowels in a string

[peskygal]

hello.. how am i to code a program tht will accept a line of string from a user and count the number of vowels in tht particular string? plz help

[Lithic]

Here is an example of what you could do, though I'm sure some of the professionals on this forum could do something more elegant:

Put a command button and a textbox on a form and place this code in the click event for the command button.

------------------------------------------------------------------------

Dim intCounter As Integer
Dim intVowels As Integer
Dim strLetter As String

' count vowels in a string

' search for a
For intCounter = 1 To Len(Text1.Text)
    strLetter = LCase(Mid(Text1.Text, intCounter, 1))
    Select Case strLetter
        Case Is = "a"
           intVowels = intVowels + 1
        Case Is = "e"
           intVowels = intVowels + 1
        Case Is = "i"
           intVowels = intVowels + 1
        Case Is = "o"
           intVowels = intVowels + 1
        Case Is = "u"
           intVowels = intVowels + 1
        Case Else:
            ' do nothing
    End Select
        
Next intCounter

MsgBox "Number of vowels: " & intVowels

[mstraf]

just a small change in Lithic code:

select case strLetter
case "a","b","c","d","e"
intvowels=intvowels+1
end select

Marco

[Lithic]

Thanks for that Marco, this site is great for learning and refining techniques.
Cheers,
Lithic.

[peskygal]

thank you so much guys for helping me out.. appreciate it =)

[Laurel]

ummmm.............marco! She wanted the number of VOWELS!
b,c,and d aren't vowels! :-Þ

select case strLetter
case "a","e","i","o","u"
intvowels=intvowels+1
end select

L

[mstraf]

ops... too much time using programming languages. I need a break, I am alraedy making too many spelling mistekes.
Thanks Laurel.
Well, you told me I WAS funny