Ужасная скорость открытия файла

[xolod]

Есть файл. Обычный текст. Размером около 10 мегабайт.
Открываю через Open - где-то 10-12 минут. Открываю через API CreateFile - уже лучше, но все-равно минут 5-6.
Запускаю UltraEdit 32 - открывает где-то 1-2 секунды .
Как это он так??

[Konst_One]

может он только часть файла сначала загружает

[Amed]

Сколько открывает обоими способами любой другой 10-меговый файл? Что-то я сомневаюсь в 5-12 минутах :/
Вроде бы, 5-10 секунд - даже много для OpenFile :/

[xolod]

Konst_One
Файл загружается полностью. Если бы он грузил в процессе, как это делает Microsoft CParser (Word, Excel, Wordpad) - я бы и вопросов не задавал

Amed
Сам пребываю в .. Но факт остается фактом. Другой файл не пробовал, да и смысл какой?

[Amed]

Может, именно этот файл разбит на миллиард фрагментов, и бедная головка винта мечется от одного фрагмента к другому?

[xolod]

Amed
Если бы было так, то головка металась бы и в случая открытия в UltraEdit, или нет?
Все-таки попробавал другой файл, тоже примерно такого же размера и содержания - результат фактически такой же..

[GSerg]

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

[xolod]

2 GSerg

Открываю через Open - ...

Интересно, то что я написал, было замечено ?

Боюсь что вопрос мой задан был не корректно. Открытие и через Open и через CreateFile - одинаково быстро. Тормоз идет в месте сброки строки из полученного байтового массива.
Во тут я уже бессилен.
Собирать строку методом VB

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


StringFull = StringFull & StringPart


вообще гиблое дело, слишком медленно...
Собирать с помощью CopyMemory быстрее конечно, но все-равно не так быстро, как бы мне хотелось. А хотелось бы, как у UltraEdit.

Есть еще мнения, товарищи?

[GSerg]

Интересно, то что я написал, было замечено ?

А ты как думал
Просто Open - понятие растяжимое, там режимы разные есть

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

StringFull = StringFull & StringPart

вообще гиблое дело, слишком медленно...

А почему ты её так собираешь? Сразу нельзя всё прочитать?

[sashar2]

Вот у меня быстро файл прочитать удается, не знаю в чем проблема:

Private Sub Form_Load()
Dim data As Byte
Open "c:\1.exei" For Binary As #1
Get #1, , data
Close #1
End Sub

А вот записать уже не удается, потому что выводится файл с виду похожий, но запускаться отказывается. Что мне делать?

[xolod]

2 GSerg
Чтобы было понятней, объясню. Задача такая. Надо открыть большой файл с индексом (информацией для поиска) - 10 мегабайт, самый маленький из них. Так вот, надо его открыть, показать пользователю в удобоваримом виде (например сделать в виде категорий в treeview) и по нему поиск организовать.
1. Если читать for binary, то получаем циферки в байтовом массиве, чтобы получить буковки - нужен цикл и сборка (ответ на твой вопрос, поправь если есть способ лучше)
2. Если читать for input -> line input ИЛИ input, то тормоз архивеликий.
3. Если читать CreateFile, то см. пункт 1


говорит про себя, с сожалением, но любя
какой же VB тормоз...

[xolod]

2 sashar2
В переменной типа byte могу быть только значения от 0 до 255
Непонятно, как твой код у тебя вообще работает.

[FaKk2]

xolod
Так он один байт и читает

[xolod]

2 FAKK2
но ведь

... выводится файл с виду похожий, но ...

что и удивительно. Или у него exe'шник из одного байта

[xolod]

2 GSerg
Вопрос отпал. VB - не тормоз. Тормоз - я. Причем ручной.
Можно ведь получить полностью строку путем get #filenumber, , string. Предварительно забив эту строку чем-либо по размеру как файл. Проверил - скорость такая, как я и предполагал в самом начале.

Thanks to all!
Case closed.

[FaKk2]

xolod
1-2 секунды?

[GSerg]

Отводить буфер, а потом его забивать - эт, конечно, хорошо...
И такой вариант зацени:

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

dim s as string
open "file" for input as #1
s=input$(lof(1),#1)
close #1

[CodeName33]

GSerg, а такой вариант глючит в binary-файлах. Раньше сам так юзал, пока не наткнулся на какой-то файл, в котором то ли символ какой-то хитрый встретился, то ли определённая комбинация сомволов, но функция input$ не считывала всесь файл, а вот через open for binary, get в массив и копирование в строку нормально работало.

[FaKk2]

Ctrl-Z наверно

[GSerg]

Читаем условие. По условию это обычный текст

[Ruslan Demidow]

GSerg
А reg-файл является обычным текстом?
А то предложенный тобой вариант не читает полнотью reg-файл. А вернее читатет только первые два-три символа.

[alibek]

Если файл открыт как INPUT, то функция LOF возвращает длину файла не в байтах, а в блоках. Для получения длины файла ее следует умножить на 128.

[EDIT] Хотя нет, это я с Loc путаю.

[sashar2]

xolod
Извиняюсь, так не Byte, а String, короче вот:
Private Sub Form_Load()
Dim data As String
Open "c:\1.exe" For Binary As #1
Open "c:\2.exe" For Binary As #2
data = Input(FileLen("1.exe"), 1)
Put #2, 1, data
Close #1
Close #2
End
End Sub
Кажется так я писал... Таким способом создается совершенно нормальный файл, но так очень долго... А мне FileCopy не подойдет.
Просто у меня выходит так, что файл копируется со скоростью около 600 кб в сек, а так далеко не убежишь... Момогите пожалуйста

[xolod]

2 FAKK2
Нет, конечно до UltraEdit не дотягивает, но вполне приемлимо. Секунды 2-3 на 10МБ файл.

2 GSerg
Вот она, рука опыта . Способо еще лаконичней, чем мой

2 sashar2
Открываешь как binary, используешь input и filelen.. Странный ты .

[sashar2]

xolod
Я не странный, просто я не опытный и мало еще чего знаю .
Вот таким способом скорость такая же как и при обычном копировании, а на старых машинах даже выше...:
Private Sub Form_Load()
Dim data As String
Open "c:\1.exe" For Binary As #1
Open "c:\2.exe" For Binary As #2
data = String$(LOF(1), 0)
Get #1, , data
Put #2, , data
Close #1
Close #2
End
End Sub

[GSerg]

Угу, только потеряются все атрибуты файла и дескриптор безопасности

[sashar2]

GSerg
Ну а как сделать быстро и качественно? Или хотя бы просто с обычной скоростью, но нормально?

[GSerg]

Быстро и качественно, с сохранением всего - ну, например, SHFileOperation

[sashar2]

А можно пример?

[MOV]

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

Private Declare Function lopen Lib "kernel32" Alias "_lopen" _
    (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
   
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long

Private Declare Function lread Lib "kernel32" Alias "_lread" _
    (ByVal hFile As Long, lpBuffer As Any, ByVal wBytes As Long) As Long
   
Private Declare Function GetFileSize Lib "kernel32" _
    (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

Private Sub Form_Load()
    Dim Fn As Long
    Dim Size as Long
    Dim Lbuf() as Byte

    Fn = lopen("C:\MyFile.txt", 2)
    Size = GetFileSize(Fn, 0)
    ReDim LBuf(Size - 1)
    lread Fn, LBuf(0), Size
    lclose Fn

End Sub

Само открытие и считываение идет быстро и способов много, а вот если заполнять контрол какой-нибудь из полученного массива типа MSHFlexGrid (ведь файл -таблица, как понял), то это да, это будет долго (даже через CopyMemory) и скорее всего дело именно в этом, в медленном заполнении контрола.