Можно ли загрузить текст из файла целиком, а не линиями...

[cashman]

Можно ли загрузить текст из файла целиком, а не линиями?
Open "ххх.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
alltxt = alltxt + txt + vbCrLf
Loop
Close #1

И будет ли в этом прибавка к скорости загрузки

[tyomitch]

Да, наверное будет.

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

Open "ххх.txt" For Input As #1
alltxt = Input(LOF(1), 1)
Close #1


[cashman]

я знаю EOF - End of File
а как расшифровывается LOF?..

[tyomitch]

Length of File

[Andrey Fedorov]

При большом размере файла может быть падение скорости, притом резкое - как-то натолкнулся... Лучше читать блоками, килобайт так по 32...

[GSerg]

Операции доступа к файлам и так буферизированы. При этом операция чтения одного байта занимает столько же, сколько и полного блока. Так что лучше читать максимально...

[ALX_2002]

Во во ! Челы, мне к вам. Объясните мне каким образом FSO читает громадные файлы моментом, GDI+ читает файл размером 68 метров моментом ?

И как ускорить чтение из двоичного файла блоками байтов ???

http://bbs.vbstreets.ru/viewtopic.php?t=12465&start=30

[Andrey Fedorov]

Во во ! Челы, мне к вам. Объясните мне каким образом FSO читает громадные файлы моментом, GDI+ читает файл размером 68 метров моментом ?

Вообще-то (по секрету) FSO, GDI+, и тот-же VB - все они читают файл с одинаковой скоростью.

И как ускорить чтение из двоичного файла блоками байтов ???

Надо просто установить правильный драйвер.
Руки, в общем, надо править.

Например, в самом начале было:

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

Open "ххх.txt" For Input As #1
Do Until EOF(1)
     Line Input #1, txt
     alltxt = alltxt + txt + vbCrLf
Loop
Close #1

Здесь есть одна довольно типичная ошибка приводящая к тормозам при работе с большими строками. Попробуй найти ее сам.

В качестве подсказки - она в строке:

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

alltxt = alltxt + txt + vbCrLf

[ALX_2002]

А вот не хрена не с одинаковой.

У FSO скорость чтения в 10 раз больше !

И я как раз хочу понять чем это сделано....

А на счёт ошибки в коде - я тот код не использую....

У меня "+" нету.

[GSerg]

Есть у тебя он...
Тебе ж говорят, дело не в чтении, а в операции сохранения в память Которая каждый приводит к страшным redim'ам, и чем больше уже считано, тем redim'ы страшнее

[ALX_2002]

2 Gserg: Ну тк... Мож посоветуете чего нить, как и что реализовать ?

У нас вроде форум, чтобы помогать а не загадки загадывать ?

А то я тут как [censored] мучаюсь уже 3 неделю....

[Andrey Fedorov]

А вот не хрена не с одинаковой.

Ну я и говорю - драйвер править надо - телепатов тут мало...

А на счёт ошибки в коде - я тот код не использую....
У меня "+" нету.

Ну и в чем ошибка?

[GSerg]

2 Gserg: Ну тк... Мож посоветуете чего нить, как и что реализовать ?(

Дык в оба топика смотри - и не только мои посты

[Andrey Fedorov]

GDI+ читает файл размером 68 метров моментом ?

Кстати, думаешь в переменную этот файл поместится, если у юзера, к примеру 32 мега оперативки?

[ALX_2002]

Там ошибка, что операции по нескольку раз проходят при добавлении.

И при выводе в текстовое поле скорость резко падает.

http://bbs.vbstreets.ru/viewtopic.php?t=12465&start=30

А моя ошибка в том, что файл впрямую читаю, а надо каким то

образом из кэша диска его читать.

[GSerg]

Поместится. У процесса 4 гига оперативки. У каждого...

[tyomitch]

GDI+ читает файл размером 68 метров моментом ?

Кстати, думаешь в переменную этот файл поместится, если у юзера, к примеру 32 мега оперативки?

Поместится, и в полгига - тоже поместится. Своп для этого и нужен

[edit]Блин, долго печатаю...[/edit]

[ALX_2002]

Эх.... Читал бы FSO двоичные файлы правильно.... Я бы его только и юзал.....

А GDI+ помоему только сразу весь файл читает, да ?

[VOS]

ИМХО, быстрее и легше всего так:

open "file.txt" for binary as #1
inpt$=space$(lof(1))
get #1,,inpt$
close #1

[ALX_2002]

Хе.... быстрее всего....

Вот попробуй загрузить этим кодом 600 мегов, а потом через FSO тоже

самое сделать. И сравни скорость.....

[kif]

Это где ж ты такие текстовые файлы взял?

[ALX_2002]

Это AVI....