поиск значений в файле

[Tomas2]

надо найти значение в файле (float = 10)

вот написал такой вот код:

Dim k As Long
Dim floatA As Single

k = 1
Open "C:\1.bin" For Binary As #1

Do Until floatA = "10" Or k > 4000000
k = k + Val(1)
Get #1, k, floatA
Loop
.........

вроде работает но долго ищет...
есть ли другой способ?

[Debugger]

Может использщовать Random вместо Binary?

[GSerg]

Нет.
Читать из файла большими кусками. Искать в них потом.

[Viper]

Код: Выделить всё

Dim k As Long
Dim floatA As Single

k = 1
Open "C:\1.bin" For Binary As #1

Do Until floatA = "10" Or k > 4000000
k = k + Val(1)
Get #1, k, floatA
Loop

еще бы он быстро работал с такой то строкой:

Код: Выделить всё

Do Until floatA = "10" Or k > 4000000

да и с такой тоже:

Код: Выделить всё

k = k + Val(1)

И советом GSerg стоит воспользоваться.

[lister]

А зачем здесь вообще Val(1) ?

Val("1") еще как-то было бы понятно. А это...

[alibek]

Так бывает, когда копипастят код, в котором даже не пытались разобраться.

[vvs_adm]

Так бывает, когда копипастят код...

Вернее копипакостят

[Nicky]

Так бывает, когда копипастят код...

Вернее копипакостят

[да, виноват, криптованный мат не рекомендуется. alibek.]