Question on String

[QuestionPlease]

I need help, I've got this porgram to count vowels in a string but how can I get it to count constants too?

Module Module1

    Sub Main()
        Dim vowel As String
        Dim count As Integer
        Dim str As String
        Dim index As Integer
        Dim cons As String
        vowel = "aeiou"
        Console.WriteLine("Enter a String")
        str = Console.ReadLine()
        For index = 1 To Len(str)
            If InStr(vowel, Mid(str, index, 1)) Then
                count = count + 1
            End If
        Next

        Console.WriteLine("There are " & count)
    End Sub

End Module

[.paul.]

try this:

Dim s As String = "a short sentence"
Dim vowels As String = "aeiou"
MsgBox(s.Count(Function(c) vowels.Contains(Char.ToLower(c)))) 'vowels
MsgBox(s.Count(Function(c) Asc(Char.ToLower(c)) >= 97 AndAlso Asc(Char.ToLower(c)) <= 122 AndAlso Not vowels.Contains(Char.ToLower(c)))) 'consonants

[Shaggy Hiker]

Y not Y? That letter is such an odd duck.

By the way, all of that code is VB6, not .NET. Is the question really about .NET?

[.paul.]

Y not Y?

where does the Y come into it?

[proneal]

MattP also had a neat way of getting both vowels and cons..

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
 
        Dim testString As String = "Rather than writing out each of the consonants I made a method to check for the vowels and replace them with an empty string"
        Dim vowels = ExtractVowels(testString, True)
        Dim cons = ExtractConsontant(testString, True)
 
        Console.WriteLine("Counted " & vowels.Length & " vowels. They are " & vowels.Trim.Replace(" ", String.Empty)) ' vowels list
 
        Console.WriteLine("Counted " & cons.Length & " Cons. They are " & cons.Trim.Replace(" ", String.Empty)) ' cons list
       
    End Sub
    Private Shared Function ExtractVowels(inputString As String, includeY As Boolean) As String
        Dim pattern As String = If(includeY, "[^aeiouyAEIOUY$]", "[^aeiouAEIOU$]")
        Return String.Join(Nothing, System.Text.RegularExpressions.Regex.Split(inputString, pattern))
    End Function
    Private Shared Function ExtractConsontant(inputString As String, includeY As Boolean) As String
        Dim pattern As String = If(includeY, "[aeiouyAEIOUY]", "[aeiouAEIOU]")
        Return System.Text.RegularExpressions.Regex.Replace(inputString, pattern, String.Empty).Replace(" ", String.Empty)
    End Function

from here

[Shaggy Hiker]

Y is often, though not always, considered a vowel.

[.paul.]

Y is often, though not always, considered a vowel.

well that's something i've never encountered before... must be foreign, cos it's not english

There are only five letters used to write vowels in English. They stand for about 20 vowel sounds in most English accents,[1] so these letters are a source of ambiguity in pronunciation for learners.

These letters are vowels:
A, E, I, O, U

The rest of the letters of the alphabet are consonants:
B, C, D, F, G, H, J, K, L, M, N, P, Q, R, S, T, V, W, X, Y, and Z

Y and W can be considered as (approximants).

edit: the best i can agree on is that Y + W are Semivowels

[proneal]

Sybil would argue she has 2 vowels in her name.
I would say that she just needs to change her name to Alice, then She gains an 'ace' by picking up an extra vowel then she can see Y she is full of BS.

[Shaggy Hiker]

I'm not surprised that a Brit would complain about American english, there is plenty to complain about. However, the true nature of Y is a bit baffling. Sometimes it is a vowel, sometimes it isn't. I guess everybody gets to choose, but I would say that it is more a vowel than not.

EDIT: After a quick search on Google: Y is a vowel by any definition. So Y not include it?

[proneal]

I was edumacated with Y as a vowel, sometimes..
Let's just call it a bi-curious Y.
I wonder of G is sometimes a vowel?
Nevermind...

[Shaggy Hiker]

Yeah, let's not go there. I ended up doing more research into vowels than was worth it for this. I would say that Y should be included.