Бинарный файл

[mchip]

Как перенести данные из произвольного бинарного файла в Excel? Структура файла известна. Вообще это можно сделать ?

[IgorGO]

конкретный вопрос, конкретный ответ: открыть для чтения и читать...

[mchip]

Описание файла:
Первые 5 байт: STRES
1 байт: номер версии (unsigned char)
1 байт: число байт в имени файла со структурой базы данных - N (unsigned char)
N байт: имя файла со структурой базы данных (без расширения) (N char) (например: Base2009)
......
Далее идет описание строковых полей, полей данных и т.д.


Как мне такого типа информацию считать в Excel?

[EducatedFool]

Как мне такого типа информацию считать в Excel?

Очень просто. Открываете файл для чтения в бинарном режиме...

Прикрепите к сообщению:
1) бинарный файл
2) Книгу Excel с образцом того, что должно получиться после чтения данных из бинарного файла.

[mchip]

Вот пример файла. Структура листа Excel любая.

[EducatedFool]

Пример макроса:

Sub ЧтениеИзФайла()
    Application.ScreenUpdating = False
    Filename = "C:\Documents and Settings\Игорь\Рабочий стол\Копия test.dbs"
    'Dim fso As FileSystemObject, ts As TextStream
    Dim arr(): ReDim arr(1 To 5000000, 1 To 1): i = 0

    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(Filename, 1, False)
    fl = ts.ReadLine
    НомерВерсии = Asc(Mid(fl, 6, 1))
    n = Asc(Mid(fl, 7, 1))
    If n > 0 Then ИмяФайлаСоСтруктурой = Mid(fl, 8, n)

    While Not ts.AtEndOfStream
        i = i + 1: arr(i, 1) = ts.ReadLine
    Wend
    ts.Close
    If i > 0 Then [a1].Resize(i) = arr: Columns("a").AutoFit

    msg = "Номер Версии: " & НомерВерсии & vbNewLine & vbNewLine
    msg = msg & "Имя Файла Со Структурой: " & ИмяФайлаСоСтруктурой & vbNewLine
    MsgBox msg, vbInformation
End Sub

[mchip]

Спасибо! Ничего не понял но буду разбираться.

[EducatedFool]

Ничего не понял но буду разбираться.

А что тут понимать?
Я тоже ничего не понял, но ведь работает...

Принцип действия таков:
Set ts = fso.OpenTextFile(Filename, 1, False) ' открываем файл для чтения
fl = ts.ReadLine ' читаем первую строчку

Анализируем первую строку "бинарного" файла:

НомерВерсии = Asc(Mid(fl, 6, 1)) ' 6-й символ первой строки
n = Asc(Mid(fl, 7, 1)) ' длина имени файла в 7-м символе первой строки

' берем символы в количестве N штук, начиная с 8-го:
If n > 0 Then ИмяФайлаСоСтруктурой = Mid(fl, 8, n)

Итого: Номер Версии и Имя Файла Со Структурой мы выяснили.

Далее всё просто - читаем в массив ARR все остальные строки до конца файла:
While Not ts.AtEndOfStream
i = i + 1: arr(i, 1) = ts.ReadLine
Wend

Закрываем текстовый файл: ts.Close

Выводим считанные строки на лист Excel, начиная с ячейки A1:
[a1].Resize(i) = arr

[mchip]

Спасибо! Разобрался.
Но после текстовых полей у меня идет дополнительная информация.
Я так понял, что длинна строки ограничена символом "перевода каретки"
(13 и 10). Есть ли функции поиска? Например последнего символа "перевода каретки"? Или комбинации символов?

[EducatedFool]

Но после текстовых полей у меня идет дополнительная информация.

Так надо было объяснить, откуда брать эту доп. информацию, и что с ней делать...

Есть ли функции поиска? Например последнего символа "перевода каретки"? Или комбинации символов?

Да проще всего открыть этот файл Excel-ем (как обычный текстовый)
и работать с ним.
А в Excel этих функций (типа поиска) уже предостаточно.
И изобретать ничего не придётся...

Например, так:

Sub test_OpenText()
    Filename = "C:\Documents and Settings\test.dbs"
    Workbooks.OpenText Filename:=Filename, DataType:=xlDelimited, Tab:=True
End Sub

А потом, начиная с последних строк открывшейся книги, обрабатываете "бинарные данные".