tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル DO・・・LoopでCSVファイルを読み込む時にEOFを飛び越える?
投稿日: 2008/08/26(Tue) 18:14
投稿者JJ
はじめまして、最近VB.NETを勉強し始めまして、右も左もわからない状態で
このサイトにたどり着きました。
いろいろ調べたのですが、回避方法が見つからず困っております。
【以下状況です】
Do Until 〜〜
Loop
を使いCSVファイルを読み込もうとしています。
以下ソースです。

Dim csvname As String
Dim fileNo As Integer = FreeFile()
Dim n As Integer
csvname = "c:\test\test.csv"
FileOpen(fileNo, csvname, OpenMode.Input)

do until eof(fileNo)
〜読み込む内容
loop
--------------
(当HPの「CSVファイルを読み込み構造体の配列に保存する」を参考に作成しています)
テストデータは5レコードあるのですが
6レコード目までLoopしエラーとなります。
いろいろ調べたのですが、回避方法がいまいちわかりません。
どなたか回避方法をご教授願えませんでしょうか。
よろしくお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。