[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2006/02/17(Fri) 09:18
投稿者名:おじん
Eメール:
URL :
タイトル:
Seek(1)について
索引編成ファイルもどきの処理をしようと思い次のようなテストを
していて理解できないことがありました。
なお、入力ファイルはコンマ区切りの可変長csvファイルです。

Dim buf$,cnt&,add&
Open "c:\test.csv" For Input As #1
add=Seek(1):Debug.print "start=" & add
Do Until Eof(1)
    Line Input #1,buf
    cnt=cnt+1
    add=Seek(1)
    If cnt<= 5 Then Debug.print cnt, add,Len(buf)
Loop
Close #1

結果は、(今の自分の環境では、WindowsXP,VB6)
Start=1
1 128 106     連番 位置 長さ の順
2 233 91
3 341 94
4 473 110
5 608 112

CR、LFの差(8バイト)は理解できるのですが、それ以上の差があります。
これは何なのでしょうか。教えてください。或いは何を調べれば
よいのか教えてください。

投稿時間:2006/02/17(Fri) 10:14
投稿者名:GOD
Eメール:
URL :
タイトル:
Re: Seek(1)について
> CR、LFの差(8バイト)は理解できるのですが、それ以上の差があります。
> これは何なのでしょうか。教えてください。或いは何を調べれば
> よいのか教えてください。
>
2バイト文字と1バイト文字の差では?

投稿時間:2006/02/17(Fri) 10:24
投稿者名:おじん
Eメール:
URL :
タイトル:
Re^2: Seek(1)について
> > CR、LFの差(8バイト)は理解できるのですが、それ以上の差があります。
> > これは何なのでしょうか。教えてください。或いは何を調べれば
> > よいのか教えてください。
> >
> 2バイト文字と1バイト文字の差では?
気がつきませんでした。その線で調べてみます。
ありがとうございました。また、よろしく。