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

投稿日： 2002/12/11(Wed) 16:30
投稿者： 明
Ｅメール： wimhseo@hotmail.com
ＵＲＬ：
タイトル： ReDim Preserve

初めて書き込みします。

Open sFile For Input As #1
    index = 0
    
    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)
    
    index = index + 1
    
    Loop
    
    MsgBox index & "件読み込みました。", vbOKOnly, "表示"
    
    Close #1

途中のコードなんですけど、本当は278件くらいしかデータがないのに、indexのところで件数を数えてみると
1148件くらいでmsgboxで表示されてしまいます。
４回同じ繰り返しがされているのは判るのですが、それがどこで間違っているかわかりません。
お願いします。

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

- Web Forum -