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

По-моему так, хотя я в вб с двоичным доступом давно не работал.

Ответить

не мог бы ты подправить, проседуру, для того чтобы считывать в строку, ато я чёто не соображу

Ответить

Dim b As String * 40

Open "c:\chill.txt" For Binary As #1

Get #1, , b

Me.Print b

Close #1

Ответить

Строки это хорошо, вот только например chr(0) или chr(27) в них не увидишь.

Вот кусок из моей старой проги:

Public Sub LoadBinaryFile(ByVal lbfFileName As String)
  'on error resume next
   Dim i As Long
   Dim fs As Long
   Dim s As String
   Dim b As Byte
   Dim sb As String
   Dim memB As String
   Dim nfn As Integer
  
   prc = 0: pz = 0: nfn = 0
   sb = ""
   fs = FileLen(lbfFileName)
   
      Open lbfFileName For Binary Access Read As #1
   

     For i = 1 To fs
          Get #1, , b
          memB = Hex(b)
          If (Len(memB) = 1) Then memB = ("0" & memB)
          If (i > 1) Then memB = (" " & memB)

        s= s & memB
        Next i
      Close
text1.text = memb
End Sub

Ответить

To Nemiro AS:

Ты повторяешь то, от чего надо отойти: побайтовое чтение. Это самый главный тормоз в зтом деле. Дело в том, что устройства хранения информации выдают за одно обращение минимум один сектор. Размер сектора минимум 512 байт. А в строку прочитаются все символы.

To balamut:

Можно попробовать так:

1. Сформировать строку размером равным размеру файла.

2. Прочитать файл целиком в эту строку.

3. Передать строку в байтовый массив.

4. Читать из массива.

По п.1 пока идей никаких. Читать в строку файл при двоичном доступе легко. Передать строку в массив, причем очень быстро можно так: Arr = StrConv(Stroka, vbFromUnicode). Ну а работать с массивом в памяти работать будет быстро.

Это предположения, нужно поэксперементировать.

Ответить

To USA:

Re: Ты повторяешь то, от чего надо отойти: побайтовое чтение.
Я многое поудалял Я считвал по байтам и одновременно записывал в другой файл hex-коды, а потом открывал созданный файл как текстовой через input. Все это безобразие по времени занимало 1 Мб = 5 сек - на Pentium 150 Mhz, а на Celeron 700 вобще все мгновенно происходит.

Re: 1. Сформировать строку размером равным размеру файла.
Но нестоит забывать про ограничения по количеству символов, всего 65535, т.е. 64 Кб

Re: Передать строку в массив, причем очень быстро можно так: Arr = StrConv(Stroka, vbFromUnicode).
И память не безгранична Так и повиснуть не долго, если файл большой.

Ответить

Ограничение 64кб для TextBox. Строка - 2Гб.

А своп на что?

Ответить

Re: Ограничение 64кб для TextBox

Да но только в Win 9x, в 2k и XP больше, мне удалось 120 запихать

Re: Строка - 2Гб.

Dim s as String*65536 'ошибка

---

Я там в чате читал, что ты с Дальнего Востока, откуда именно если не секрет

Ответить

Ответить

To CHILL, спасибо,

твоя поправка помогла, читает быстро, но файлы больше чем 64Кб не читает, а если

задать Dim b As String т.е. переменной длины, то читает одну пустоту

В чём трабла

To NEMIRO AS, спасибо,

но в твоей проге какаято ошибка, VB зависает и "Not Responding"

Ответить

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

'*******************************

strOutput$ = String(14," ")'по ходу для считывания в строку фиксированной длины

'сначала заполнить ее пробелами

Get #1, 26, strOutput$ 'считывает 14 байт в строку strOutput$, начиная с 26

'байта файла

'*******************************

Выводы: (скорее предположения )

1)Можно использовать строки фиксированной длины, но их сначала надо проинициализировать " " (пробелом, или еще чем-нибудь);

2)Если считываешь из большого файла (>64Кб), то надо считывать начиная с определенного байта файла, например, считал первые 64Кб в строку, сохранил

где-нибудь (можно в RitchTextBox), потом считываешь в строку начиная с 64Кб файла, и т.д. (Этот механизм лучше использовать для строк фиксированной длины, где-то читал, что максимальная скорость считывания достигается при 512 байтовом буфере, в данном случае это по ходу фиксированная строка длинной 512 байт).

Надеюсь, я не очень все запутал и это все поможет решить твою задачу, в любом случае отпиши получилось или нет

Ответить

Вобщем получилось вот так:

Open FileName For Binary As #1

FileSize = LOF(1)

Dim txt As String

txt = Space(650000)

Get #1, , txt

Close #1

Теперь читает файлы больше чем 64Кб.

Ща уменя новая проблема, я делаю что то вроде Hex-редактора и все данные из файла выводятся в TextBox. При выводе значений в TextBox, надо их разделять друг от друга. Спомощью vbTab - слишком далеко, а спомщью "пробел пробел" - в следующих строках начинается разнобой, т.е. столбцы получаются неровные. Что можно сделать?

Спасибо всем кто помогал!

Ответить

И еще раз, мой старый код, много повырезал, но вроде работает:

fs=FileLen(lbfFileName)

Open lbfFileName For Binary Access Read As #1 'Файл для чтения

Open (App.Path & "\~000.tmp") For Binary Access Write As #2 'Временный файл, в него пишешь готовый HEX

For i = 1 To fs 'Начинаем читать по байтно с 1 до размера файла #1

Get #1, , b 'читаем i байт

memB = Hex(b) 'переводим байт в hex

If (Len(memB) = 1) Then memB = ("0" & memB) 'Если hex имеет один символ то добавляем еще "0" перед ним

If (i > 1) Then memB = (" " & memB) 'если первый байт, то будет без пробела, если больше 1 то с пробелами

Put #2, , memB 'Записывем во вроменный файл

Next i

Close 'Закрываем все файлы

Далее надо считать данные из временного файла, в TextBox(е) будет выглядеть примерно так:

00 00 00 00 00 00

Ответить

Знаешь, что я подумал, большие файлы то он у тя открывать будет, а вот очень большие нет, я тут набросал прогу, которая 25 метровый файл очень быстро открывает, т.е. не весь файл, а частично определенное количество байт считыает, потом еще и т.д., если нада могу скинуть

А вот насчет выравнивания текста, да в Си можно было бы printf() использовать

Попробуй используй функцию Format()

http://vbnet.ru/vbguide/showfunction.asp?id=135

вроде должно помочь

Ответить

strText = Format("1234", "@@@@@") & vbCrLf & Format("123", "@@@@@")

Вот пример использования функции, она выведет:

1234

123

Т.ч. я думаю твоя проблема решена

Ответить