检索'#'在.TXT文件中首次出现的位置

[WOYIAOZHAODAONI]

我要得到'#'在.TXT文件中首次出现的位置,以便在下面的语句中用
例: seek #1,1666655(#的位置)
该怎么作?这个.TXT文件很大,有200多M.

[WOYIAOZHAODAONI]

Open "f:\cbmdisc.txt" For Binary As #1
cnt = 0
Do While Not EOF(1)
cnt = cnt + 1
datar = Input(1, #1)
If (ch3 = "#" And ch1 = "R" And IsNumeric(datar)) Then
cnt = cnt - 3
MsgBox "cnt=" & cnt
End
End If
ch3 = ch1
ch1 = datar
Loop
为什么我找到的'#'的位置和在WinHex中的不一样?
在WinHex中'#'在:1664549,而我的cnt显示出来为1200624

[qingming81]

可能只有逐行读取再作判断了。

[用户 昵称]

每次读取32k，用vb的instr判断。

open "a.txt" for binary as #1

[用户 昵称]

dim buf as string * 32768

dim d as double
dim l as long
dim result as double
open "a.txt" for binary as #1
do
get #1,,buf
if instr( "#", buf ) > 0 then
result = d * 32768 + instr( "#", buf )
eixt do
end if
d = d + 1
loop while len( buf ) < 32768
close #1