Originally Posted by NedFrankly

How about this (if your strings are relatively short):

To get a count of each vowel without 'walking the string':

Help with Code Tags

(Toggle Plain Text)

' strMyText is the string returned from the console
 
dim strMyTextCaps = strMyText.toUpper()  'We don't care about case
dim intTextLen = strMyText.length ' So we don't reevaluate every time
 
dim intCountA = intTextLen - (strMyTextCaps.Replace("A","").length)
dim intCountE = intTextLen - (strMyTextCaps.Replace("E","").length)
' etc...

' strMyText is the string returned from the console dim strMyTextCaps = strMyText.toUpper() 'We don't care about case dim intTextLen = strMyText.length ' So we don't reevaluate every time dim intCountA = intTextLen - (strMyTextCaps.Replace("A","").length) dim intCountE = intTextLen - (strMyTextCaps.Replace("E","").length) ' etc...

It should be fairly obvious, but what we're doing is getting the length of the original string, and then replacing each vowel with an empty string. We subtract the new length from the original length and know the number of characters replaced. This is the vowel count for that vowel.

Haven't benchmarked for performance (nor have I run this - I believe the syntax is correct). A single line for each vowel is easier to read than a bunch of loops. Performance should not be a problem anyway, if the text is provided via the console.

Happy Coding!

Ned

Originally Posted by NedFrankly

We don't care about the number of "",s we care about the difference between the old length (with the vowels intact) and the new length (with one of the vowels converted to ""). Example:

Text = "I am here"
Length of original Text = 9
Text after Replace("a","") = "I m here"
Length of new Text = 8
Difference = 1, therefore Count of A's in the text = 1.

We can ignore leading and trailing blanks because we are not counting any characters - we're replacing all occurances of one character with a no-space and getting the difference in lengths.