表示プログラムについて

テキストの中の”あいうえお”のような文章を表示させるプログラムを作りたいんですが
Private Sub Command1_Click()
Open "c:\mydata\test.txt" For Input As #1
End Sub

Private Sub Command2_Click()
Close #1
End Sub
では表示されませんでした。何がおかしいかとかどうすればいいか教えてください。お願いします。

No.1 ベストアンサー 回答者： TAGOSAKU7 回答日時： 2001/11/12 14:02

テキストを開いているのですが、値を取得しないで閉じてます。

取得するようにしましょう。

Private Sub Command1_Click()
　　Dim strWork　As String

　　'テキストを開く
　　Open "c:\mydata\test.txt" For Input As #1

　　　　'１行取得
　　　　Line Input #1, strWork
　　
　　'テキストを閉じる
　　Close #1
　　
　　MsgBox strWork
End Sub

この回答へのお礼

丁寧なそしてお早い回答ありがとうございました。値を取得しないで閉じていたんですね、ありがとうございます。

お礼日時：2001/11/13 01:39