Hi, I am trying to make a program where you insert 50 or less characters into a textbox, and it comes out in a messagebox in pig latin. I have my code working for one word, can anybody help me to get it to work when i insert multiple words?
Here is my code so far

You need to split it into an array, and then access it with a For loop. The following will do:



Hope that helps.

I have that code, but I still do not get the wordlist(i) part.......im sort of lost on what to do with that code?

here is my code so far

I am still confused with the for next statement? Can somebody give me a little help please? It would be appriciated

your close...
When you use the "split" command it populates the string into the "Wordlist" array.

strInput = "Hello this is a test"
WordList = Split(strInput, " ") - seperates via spaces

What you have now:
Wordlist(0) = "Hello"
Wordlist(1) = "this"
Wordlist(2) = "is"
Wordlist(3) = "a"
Wordlist(4) = "test"

[code]

'Since we are seperating, we need something to put it back together with...
Dim strTotalOutput as string

'LBound is the lower array number of Wordlist
'UBound is the upper arra number of Wordlist
For i = LBound(WordList) To UBound(WordList)

'Move this down to here... and we are going through each word...
str1stChar = Wordlist(i).Substring(0, 1)

Select Case str1stChar.ToUpper
Case "A", "E", "I", "O", "U"
strOutput = (strInput & "WAY")
Case Else
strOutput = (Wordlist(i).Substring(1) & str1stChar & "AY")
End Select

'Now since we have seperated each word
'we have to put it back together... and put spaces back between...
strTotalOutput = strTotalOutput + strOutput +" "

'Loop through each word...
next i

MessageBox.Show(strTotalOutput, "Pig Latin")


Now, this is not the most efficient way of doing it, but that will come in time.
:-)




your close...
When you use the "split" command it populates the string into the "Wordlist" array.

strInput = "Hello this is a test"
WordList = Split(strInput, " ") - seperates via spaces

What you have now:
Wordlist(0) = "Hello"
Wordlist(1) = "this"
Wordlist(2) = "is"
Wordlist(3) = "a"
Wordlist(4) = "test"

Hey, thank you a lot for helping. That definately helped me with the For...Next statement, but my output is still coming out funny. When i put the input "ALL CAN" it comes out in the message box as ALL CANWAY ANCAY. Here is my code as of now
////EDIT//////
I figured out that my code works when all of the first letters of the words i input are consanents, but if the first letter is a vowel, it will not work for some reason


This post has been edited by cardswin12: 22 Feb, 2008 - 07:07 AM

For some reason, when a word starts with a vowel, the program messes up, but when a word starts with consanents it works.

OK, the above code should work.

However, I don't like all the strTotalOutput = strTotalOutput + strOutput + " ". It would be better to use Join(String()) which is the opposite of Split(String). Here is my modified code for the loop.

        For i = LBound(WordList) To UBound(WordList)
            str1stChar = WordList(i).Substring(0, 1)
            Select Case str1stChar.ToUpper
                Case "A", "E", "I", "O", "U"
                    WordList(i) = (WordList(i) & "WAY")  <-----------------------The fix
                Case Else
                    WordList(i) = (WordList(i).Substring(1) & str1stChar & "AY")
            End Select

            'Loop through each word...
        Next i

        'Now, since we have separated each word
        'we have to put it back together with spaces.
        strTotalOutput = String.Join(" ", WordList)

This post has been edited by Nayana: 26 Feb, 2008 - 12:34 AM

Moved to VB.Net

Wow, thats a lot of legacy libraries being used in VB.Net