Programming Forums - change vowels to the letter x

Some things to look into:

1) For Each loops...
2) Char.IsDigit
3) Functions
4) Strings

Here is some code for you to analyze. Let me know if you have specific questions.
This probably isn't the best or easiest way to do this... but it works. I am going to leave the string reversal up to you, I suggest spending more time on this effort to better understand it.



Module Module1



    Sub Main()



        Dim myStr As String = "The answer is 42. Today is 6/17"



        Dim c As Char = ""

        Dim d As Char = ""



        Dim temp As String = ""



        For Each c In myStr

            d = ChangeIt(c)

            temp = String.Concat(temp, Convert.ToString(d))

        Next



        Console.WriteLine("Original: " + myStr)

        Console.WriteLine("Modified: " + temp)

        Console.WriteLine("done")

        myStr = Console.ReadLine()



    End Sub



    Public Function ChangeIt(ByVal c As Char) As Char



        Dim a As Char = ""

        Dim vowel As String = "aeiouy"



        If Char.IsDigit(c) Then

            Return "z"

        Else

            For Each a In vowel

                If Char.ToUpper(a) = Char.ToUpper(c) Then

                    Return "x"

                End If

            Next

        End If



        Return c



    End Function



End Module

:| I can't believe I just wrote code in VB... I feel sick. ;(