テキストファイルを配列化したい への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 にぃや♪  () 投稿日時 2008/11/25 21:27:09 
 Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal 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

いい感じになりました。
0
投稿者 にぃや♪  () 投稿日時 2008/11/25 21:13:42
超ウルトラ入門者質問をしてしまったようです。
普通にStringで宣言できるんですね。
ありがとうございました。
0
投稿者 あにす  (社会人) 投稿日時 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

こんな感じでしょうか？
0
投稿者 にぃや♪  () 投稿日時 2008/11/25 18:22:43
けっこう、質問が少ないですね。
上級者が多いのかな？
テキストファイルを配列化できますか？
kari(0)=g1.txt
kari(1)=g2.txt
みたいな。
0