テキストファイルの最後の行を表すには？ (ID:105563)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 下に簡単なソースを書きます。 Private Sub Command1_Click() Dim intFileNo As Integer Dim intIndex As Integer Dim strArray() As String intFileNo = FreeFile 'ファイルを開く Open "C:\TEST.TXT" For Input As #intFileNo 'ファイルの終わりまでループ Do Until EOF(intFileNo) '配列を中身を保持したまま再定義する ReDim Preserve strArray(intIndex) '１行読む＆配列に格納 Line Input #intFileNo, strArray(intIndex) intIndex = intIndex + 1 Loop Close #intFileNo Randomize 'UBound(strArray) = 配列の最大値(ファイルの最終行) 'Int(配列の最大値 * Rnd) = 0 から 配列の最大値までの乱数を発生 'strArray(0 から 配列の最大値までの乱数を発生) = ランダムに１行を選択 MsgBox strArray(Int(UBound(strArray) * Rnd)) End Sub こんな感じで良いですか？