VB.NET ファイルを読込んで配列に入れたい

Question

何行あるか分からないファイルを一行ずつ読込んで
配列に入れたいと思っています。
一行入れたら、変数ksに１を足していますが、
入れ終わった後に「インデックスが配列の境界外です。」と
エラーになり、処理を終わらせる事で出来ないので
教えて頂きたいと思います。
宜しくお願い致します。

Imports System.Text
Imports System.IO
Imports System.Diagnostics

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ks As Integer
Dim gyo(50) As String
ks = 0
        ' StreamReader の新しいインスタンスを生成する
        Dim hReader As New System.IO.StreamReader("C:\text\text1.txt", System.Text.Encoding.GetEncoding("shift-jis"))

        ' 読み込んだ結果をすべて格納するための変数を宣言する
        Dim stResult As String = String.Empty

        ' 読み込みできる文字がなくなるまで繰り返す
        While (hReader.Peek() >= 0)

            ' ファイルを 1 行ずつ読み込む
            Dim stBuffer As String = hReader.ReadLine()
            gyo(ks) = stBuffer
            ks = ks + 1

        End While
    End Sub
End Class

Answer 1

Dim gyo(50) As Stringとしてるから５０行以上を読み込んでエラーになってるんじゃないでしょうか。

なぜ配列に格納しようとしているのか分かりませんが、一時的なものならループ内で処理を済ませるようにすれば不要だと思いますけど。

Comments

[sin777]

返事が遅くなり申し訳ありません。
saziさんのおっしゃる通り５０行以上を読み込んでエラーになっていました。
５０行以上は無いと思い込んでいた為でした。
有難う御座いました。

Answer 2

System.IO.File.ReadAllLinesメソッドを利用されるのがよいかと思います。

Comments

[sin777]

回答有難う御座います。
System.IO.File.ReadAllLinesメソッドを調べてみます。

Answer 3

ファイルを全部配列に入れるというのではなく、
一定のサイズ文読み込んでその分処理、そしてファイルが尽きるまでそれを繰り返す、と言う方法はとれないでしょうか

Comments

[sin777]

回答有難う御座います。
もう少し詳しく調べてみます