VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/12/12(Thu) 09:04
投稿者： 明
Ｅメール：
ＵＲＬ：
タイトル： ありがとうございます!!

> >     Do Until EOF(1)
> >     ReDim Preserve sGakuseiNo(0 To index)
> >     ReDim Preserve sShimei(0 To index)
> >     ReDim Preserve iTen1(0 To index)
> >     ReDim Preserve iTen2(0 To index)
>
> ここの間に処理が入っているだろうと推測しますが、入力でデータを
> とりこぼしていませんか？
>
> EOFまで読むようになっているので、とりこぼしたらEOFまでに
> ループが278回（既定の件数）よりもたくさん回ります。
>      
> >     index = index + 1
> >    
> >     Loop
> >    
> >     MsgBox index & "件読み込みました。", vbOKOnly, "表示"
> >    
> >     Close #1
> >
> > 途中のコードなんですけど、本当は278件くらいしかデータがないのに、indexのところで件数を数えてみると
> > 1148件くらいでmsgboxで表示されてしまいます。
> > ４回同じ繰り返しがされているのは判るのですが、それがどこで間違っているかわかりません。
> > お願いします。
>
> あと、ファイルナンバーは1固定ではなく、Freefile関数で拾ってきたほうがよいですよ。


質問に答えていただいてありがとうございます。
もう一度考え直してやってみます。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -