freddie_26

i'm getting an error message index outside the bound of the array what does that mean

i'm not quite sure what you mean when you say that i have not given it a subsript. can you just indicat that in the code that i have posted. thanks for the trouble

its a two dimensional array. the words have been placed in a text file in that format (yes, oui,at). what i want o do is type the a sentence which contains the english word a display the translation in another language in this case french. dim rm(30,3) as string Dim English, French, As String Dim i, where As Integer Dim Fword(), Eword(), As String Dim found As Boolean English = TxtEnglish.Text Fword = English.Split(" "c) For i = 0 To 30 Do While ((Not found) And (where < rm.Length)) found = (Eword(i)) = rm(where, 0) where = where + 1 Loop where = where - 1 Fword(i) = rm(where, 1) Next TxtFrench.Text = Join(Fword," ")

here's is what i want to do i have a data in a text file in a array, i want to read the out the english words compared with the french and display the french in a text box words are arrange like this in the text file yes,oui, the,le the found = line is where the error seem to be occuring Dim English, French, As String Dim i, where As Integer Dim Fword(), Eword(), As String Dim found As Boolean English = TxtEnglish.Text Fword = English.Split(" "c) For i = 0 To 30 Do While ((Not found) And (where < rm.Length)) found = (Eword(i)) = rm(where, 0) where = where + 1 Loop where = where - 1 Fword(i) = rm(where, 1) Next TxtFrench.Text = Join(Fword, " ") thanks guys

forgot to say that the array is two dimensional dim rm ( 30,3) as string

i'm trying to add words to a text file that i have already created which is in the form of a array. Is this the correct way to do this. the text file is like this rat, mice, that do, any, the it seem that i'm able to add but when i go back to my program to see the words itcrashes with an error message saying "index was outside the bound of the array" thanks Dim flower As String Dim tree() As String Dim m As Integer Dim sw As IO.StreamWriter = IO.File.AppendText("words.txt" ) rm(m, 0) = InputBox("Please enter English Word" ) rm(m, 1) = InputBox("Please enter French Word" ) rm(m, 2) = InputBox("Please enter German Word" ) flower = Join(tree, "," ) sw.WriteLine(flower) sw.Close()