| 投稿日 | ： 2003/12/19(Fri) 02:53 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^5: AtEndOfStream について |
> f = 0
> Do Until objKey.AtEndOfStream
> fndKey(f) = objKey.ReadLine
> f = f + 1
> Loop
>
> ' Keyword 数取得
> fMax = f
fMax = f-1 にするか、下記のように変更して見たらどうなるでしょうか。
最後のデータが空で取得されているせいかと思うのですが？
取得後に、fndKey(f) の値を確認して見て下さい。
f = -1
Do Until objKey.AtEndOfStream
f = f + 1
fndKey(f) = objKey.ReadLine
Loop
それと、かなりおかしい判定とはどのような事でしょうか？もう少し具体的に
説明して頂かないと判断できないかと思います。
（fndWord = 0 の場合がおかしくなるのか fndWord = 1 の場合がおかしくなるのか等）
場合によっては、 fndKey(f) = Trim(objKey.ReadLine) 等も試して見るとか？