データに対するエラー表示


A  2006-02-15 23:43:23  No: 130247

コマンドボタンでファイルを参照してきてさらに
そのファイルを読み込んで検索をかけたいのですが、
「ファイルにこれ以上データがありません」というエラーが出てしまいます。
どうしたら回避できますか?
MSDNライブラリを読んだけれどよくわかりません。

Dim KEN As Integer
Dim ENG(100) As String
Dim JPN(100) As String

Private Sub cmd1_Click()
 CommonDialog1.ShowOpen
 file_url2.Text = CommonDialog1.FileName
 KEN = 0
 Open file_url2.Text For Input As #1
 Do Until EOF(1)
    KEN = KEN + 1
    Input #1, ENG(KEN), JPN(KEN)
 Loop
 Close #1
 
End Sub


あん  2006-02-16 00:37:22  No: 130248

データに改行だけの行かフォーマットに合ってないものがありませんか?
読み込むデータに問題があると思います。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加