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

Question

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

Answer 1

每次读取32k，用vb的instr判断。open "a.txt" for binary as #1

Answer 2

dim buf as string * 32768dim 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

Answer 3

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