vbにて読み込んだテキストファイルを配列に格納して変数にセットするには

Question

OS:Windows7Sp1
VisualStudio2017community
言語：VisualBasic.NET

test.txtファイルがあります。

-----test.txtファイルの中身---------
あいうえお
かきくけこ
さしすせそ

これを読み込ませて配列変数にセットして
変数名にセットする処理を考えています。

' StreamReader の新しいインスタンスを生成する
Dim cReader As New System.IO.StreamReader("c:\test.txt", System.Text.Encoding.Default)
' 読み込んだ結果をすべて格納するための変数を宣言する
   Dim stResult As String = String.Empty
       ' 読み込みできる文字がなくなるまで繰り返す
       While (cReader.Peek() >= 0)
         ' ファイルを 1 行ずつ読み込む
          Dim stBuffer As String = cReader.ReadLine()
             ' 読み込んだものを追加で格納する
              stResult &= stBuffer & System.Environment.NewLine
       End While
       ' cReader を閉じる (正しくは オブジェクトの破棄を保証する を参照)
         cReader.Close()
       ' 結果を表示する
    MessageBox.Show(stResult)

「stResult」に読み込んだ値をセットして表示させる事はできたのですが、
stResult[0]の値「あいうえお」を表示できるようにしたく思います。
最終的には
test1 As String = stResult[0]
とセットして「test1」の値に「あいうえお」とセットできるようにしたく思います。

どのようにしたら実現できるかご教示いただきたく宜しくお願いします。

Answer 1

Listを使うのはどうでしょう。

' StreamReader の新しいインスタンスを生成する
Dim cReader As New System.IO.StreamReader("c:\test.txt", System.Text.Encoding.Default)
' 読み込んだ結果をすべて格納するための変数を宣言する
Dim stResult As List(Of String) = New List(Of String)()
       ' 読み込みできる文字がなくなるまで繰り返す
While (cReader.Peek() >= 0)
     ' ファイルを 1 行ずつ読み込む
     stResult.Add(cReader.ReadLine())
End While
' cReader を閉じる (正しくは オブジェクトの破棄を保証する を参照)
cReader.Close()
' 結果を表示する
MessageBox.Show(stResult(0))

また、StreamReaderオブジェクトはUsing句で宣言するのが推奨されています。

Try ～ Finally と Using による確実な終了処理

Comments

[kumakumatan]

ありがとうございます。出来ました！

Dim cReader As New System.IO.StreamReader(strFileName, System.Text.Encoding.Default)

Try
' StreamReader の新しいインスタンスを生成する
'Dim cReader As New System.IO.StreamReader("c:\test.txt", System.Text.Encoding.Default)
' 読み込んだ結果をすべて格納するための変数を宣言する
Dim stResult As List(Of String) = New List(Of String)()
' 読み込みできる文字がなくなるまで繰り返す
While (cReader.Peek() >= 0)
' ファイルを 1 行ずつ読み込む
stResult.Add(cReader.ReadLine())
End While
' cReader を閉じる (正しくは オブジェクトの破棄を保証する を参照)
cReader.Close()
' 結果を表示する
MessageBox.Show(stResult(0))

Catch ex As Exception
' 何かエラー処理を行う
Finally
' 読み込みファイルを閉じる
If cReader IsNot Nothing Then
cReader.Close()
End If
End Try

Answer 2

File.ReadAllLines メソッド (String)を使われるのが良いかと思います。
エンコーディングを指定するのであれば、
File.ReadAllLines メソッド (String, Encoding)
こちらを使ってください。