VB テキストファイル操作編【サンプルリスト】 '************************************** ' テキストファイルを１行単位に読み込む '************************************** Private Sub Command1_Click() Dim fileNo As Integer Dim buf fileNo = FreeFile 'ファイル番号の取得 Open "TESTFILE.TXT" For Input As #fileNo 'ファイルを読込モードで開く Do Until EOF(fileNo) 'EOFになるまでループ Line Input #fileNo, buf 'ファイルから１行読み込む Debu
