splitのエラーについて

質問

先ほどはご回答頂きありがとうございました。
また新しい疑問が出てきたので質問させて頂きます。

引き続き、利用者が自分で単語を追加できる単語帳を作成しています。
自分で追加した新しい単語を、外部データに保存しようと、filesavedialogとfileopendialogを使ってデータのやりとりをさせようとしています。

新しく追加した単語（word(6)以降)だけを保存することはできましたが、読み込みが問題なんです。

保存したデータは各行「英語#日本語」の形で出力しており、配列も同じ形式です。
これを読み込んだとき、「英語#日本語」の形のものを配列に追加し、さらに英語と日本語をsplit("#")で分けてフォームに追加するということを行いたいのですが、いざ実行するとどうしてもエラーになってしまいます。

デバッグすると、【　】で囲んだ部分が黄色くなり、「IndexOutOfRangeExceptionはハンドルされませんでした」というエラーメッセージが出ます。

正直何が何やら分からず、検索してみても解決できませんでした。
どうかよろしくお願いします。

環境はWindowsXP、visual studio 2005を使用しています。

回答No.1

redfox63 · ベストアンサー

これは データを書き込む際の不備とデータを取り込む際の不備によるものです

書き込みを行っているsavedataメソッドの中で
styrData += word(a) & vbCrLf
といった具合に CRLFつきで登録しているのに
base.WriteLine( strData )
で書き込みをしているので 余分なCRLFがついてしまいます
ここを
base.Write( strData )
としてみましょう

読み込み時の不備は 読み込んだデータに #が含まれているのかをチェックしていない点です

　　Dim strSplit() As String = strLine.Split("#")
　　TextBox1.Text = strSplit(0)
　　TextBox2.Text = strSplit(1)
　　TextBox3.Text = a + 1 & "／" & current + 1
　　strLine = word(current)
の部分を
　　if strLine.IndexOf( "#" ) >= 0 then
　　　　Dim strSplit() As String = strLine.Split("#")
　　　　TextBox1.Text = strSplit(0)
　　　　TextBox2.Text = strSplit(1)
　　　　TextBox3.Text = a + 1 & "／" & current + 1
　　　　strLine = word(current)
　　end if
といった具合にして見ましょう

回答No.3

redfox63

if strLine.IndexOf( "#" ) >= 0 then
　　　　current += 1
　　　　Dim strSplit() As String = strLine.Split("#")
　　　　' 不要 TextBox1.Text = strSplit(0)
　　　　' 不要 TextBox2.Text = strSplit(1)
　　　　TextBox3.Text = a + 1 & "／" & current + 1
　　　　' この処理は不要
　　　　' strLine = word(current)
　　　　' 読み込んだデータを配列に登録
　　　　word(current) = strLine
　　end if
といった具合でしょう …

回答No.2

redfox63

一部訂正
読み込み部分は

　　if strLine.IndexOf( "#" ) >= 0 then
　　　　current += 1
　　　　Dim strSplit() As String = strLine.Split("#")
　　　　TextBox1.Text = strSplit(0)
　　　　TextBox2.Text = strSplit(1)
　　　　TextBox3.Text = a + 1 & "／" & current + 1
　　　　' この処理は不要
　　　　' strLine = word(current)
　　end if
でした …

補足

ありがとうございます。

やってみたのですが、読み込んだ後に１つ前の単語に移ろうとするとエラーになってしまいます。