VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/02/17(Fri) 09:18 |
| 投稿者 | ： おじん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Seek(1)について |
索引編成ファイルもどきの処理をしようと思い次のようなテストを
していて理解できないことがありました。
なお、入力ファイルはコンマ区切りの可変長ｃｓｖファイルです。
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バイト)は理解できるのですが、それ以上の差があります。
これは何なのでしょうか。教えてください。或いは何を調べれば
よいのか教えてください。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）