テキストファイルを配列化したい

タグの編集
投稿者 にぃや♪  () 投稿日時 2008/11/25 18:22:43
けっこう、質問が少ないですね。
上級者が多いのかな?
テキストファイルを配列化できますか?
kari(0)=g1.txt
kari(1)=g2.txt
みたいな。
投稿者 あにす  (社会人) 投稿日時 2008/11/25 20:55:51
ファイル名に連番を含めたファイルを配列に読み込むということでしょうか?
Imports System.IO

Module Module1

    Sub Main()
        Dim fileList(9) As String
        For Each file As String In Directory.GetFiles(".""*.txt", SearchOption.TopDirectoryOnly)
            Dim fileNumber As Integer
            Dim fileName As String = Path.GetFileNameWithoutExtension(file)
            If fileName.StartsWith("g"AndAlso Path.GetExtension(file) = ".txt" AndAlso Integer.TryParse(fileName.Substring(1), fileNumber) AndAlso 0 <= fileNumber AndAlso fileNumber <= 9 Then
                Using sr As New StreamReader(file)
                    fileList(fileNumber) = sr.ReadToEnd()
                    sr.Close()
                End Using
            End If
        Next
    End Sub

End Module

こんな感じでしょうか?
投稿者 にぃや♪  () 投稿日時 2008/11/25 21:13:42
超ウルトラ入門者質問をしてしまったようです。
普通にStringで宣言できるんですね。
ありがとうございました。
投稿者 にぃや♪  () 投稿日時 2008/11/25 21:27:09
 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        picture_clear()
        If ListBox1.SelectedIndex = 0 Then Return
        picture(ListBox1.SelectedIndex - 1).Visible = True
        Using reder As New StreamReader(txt(ListBox1.SelectedIndex - 1))
            TextBox1.Text = reder.ReadToEnd
        End Using
    End Sub

いい感じになりました。