Помогите раскодировать файл

[trash]

Существует некая ужасная недоделаная фокспрошная прога типа для автоматизации деятельноти библиотек. Один казахский универ имел несчастье пользоваться ей какое-то не малое количество времени и набил в базу приличное количество записей. Сама база состоит из dbf, cdx и idx файлов, но не открывается ни одним odbc-драйвером — VB падает с критическими ошибками. Программа типа умеет делать экспорт в txt, но в какой-то высосанный из пальца формат, причем корректно это делает только под XP SP2. Исходников и разработчиков этого бреда уже не найти, но они сподобились оставить описание формата:

ПРИЛОЖЕНИЕ. ОПИСАНИЕ ФОРМАТА АБИС.
ФАЙЛ ПРЕДСТАВЛЯЕТ СОБОЙ ПОСЛЕДОВАТЕЛЬНОСТЬ БАЙТ. СИМВОЛЫ С ВНУТРЕННИМ КОДОМ 13 МОГУТ ВСТРЕЧАТЬСЯ В ФАЙЛЕ, НО ОНИ НЕ ТРАКТУЮТСЯ КАК КОНЕЦ СТРОКИ, А ЯВЛЯЮТСЯ ЧАСТЬЮ ИНФОРМАЦИИ.
ФОРМАТ ФАЙЛА:
< ФАЙЛ В ФОРМАТЕ АБИС > = <ЗАПИСЬ> [ <ЗАПИСЬ> ... <ЗАПИСЬ> ]
<ЗАПИСЬ> = <ДЛИНА ЗАПИСИ> <СЛУЖЕБНАЯ ИНФОРМАЦИЯ> <ПОДПОЛЕ> [ <ПОДПОЛЕ>... <ПОДПОЛЕ> ]
<ДЛИНА ЗАПИСИ> - CHR(A),CHR(B), ГДE А*256+В - ДЛИНА ВСЕЙ ЗАПИСИ.
<СЛУЖЕБНАЯ ИНФОРМАЦИЯ> - СТРОКА ДЛИНОЙ 45 БАЙТ.
1 БАЙТ -БИБЛИОГРАФИЧЕСКИЙ УРОВЕНЬ(1-6)
2-9 БАЙТЫ - ДАТА ЗАПИСИ (ЧЧММГГГГ ) 10-17 БАЙТЫ - ДАТА ПОСЛЕДНЕЙ КОРРЕКТИРОВКИ
18-37 БАЙТЫ - ФАМИЛИЯ СОТРУДНИКА, ЗАПОЛНИВШЕГО ОПИСАНИЕ
38 БАЙТ - ПРИЗНАК КРАЕВЕДЕНИЯ (ПР0БЕЛ, 1)
39 БАЙТ - ТИП ОПИСАНИЯ (CHR(1)-CHR(12))
40,41 БАЙТЫ-ПОР. НОМЕР
42-45 БАЙТЫ - РЕЗЕРВ
<ПОДПОЛЕ> = <ОПИСАТЕЛЬ ПОДПОЛЯ> <ЗНАЧЕНИЕ>
<ОПИСАТЕЛЬ ПОДПОЛЯ> - СТРОКА ДЛИНОЙ 5 БАЙТ
1 БАЙТ - СHR(N), ГДЕ N - НОМЕР ПОЛЯ
2 БАЙТ - CHR(M), ГДЕ М - НОМЕР ЭКЗЕМПЛЯРА
3 БАЙТ - CHR(L), ГДЕ L - НОМЕР ПОДПОЛЯ
4,5 БАЙТЫ - CHR(X1),CHR(X2), ГДЕ X1*256+X2 - ДЛИНА ПОДПОЛЯ
<ЗНАЧЕНИЕ> - СТРОКА УКАЗАННОЙ 8 ОПИСАТЕЛЕ ДЛИНЫ, СОДЕРЖАЩАЯ ЗНАЧЕНИЕ ПОДПОЛЯ.

Непонятки начались сразу, там, где выделено жирным. Если посчитать по этой формуле первые два байта из экспортного файла, то получается, что длина первой записи равна 25кб, чего быть не может. Это размер целой небольшой повести. В общем, я не знаю, как к нему подступиться. Надеюсь, всемогущему all будет не лень кинуть взгляд на прилагаемый файл, и подтолкнуть меня в нужном направлении.

[alibek]

01h*256+62h=354=162h.
Примерно так оно и есть.
В чем вопрос?

[trash]

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

Dim ts As New ADODB.Stream
Dim s() As Byte
Dim r As String
   
    ts.Type = adTypeBinary
    ts.Open
    ts.LoadFromFile "c:\exttttt.txt"
    ts.Position = 0
    s = ts.Read(2)

Первые два байта получились 98 и 50. Что я сделал не так? И как правильно?

[alibek]

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

Open FileName For Binary Access Read As #FN
Do Until EOF(FN)
  ReDim buff(0 To 1)
  Get #FN, , buff
  L = buff(0) * 256& + buff(1)
  ReDim buff(0 To L - 3)
  Get #FN, , buff
  rsField.AddNew
...


[trash]

Странно, а почему Stream проигнорировал первый байт?

[alibek]

Возможно посчитал файл юникодным.

[trash]

Я ему вроде четко указал — adTypeBinary.
В любом случае, с Open все прошло, как по маслу, спасибо.

[Andrey Fedorov]

Сама база состоит из dbf, cdx и idx файлов, но не открывается ни одним odbc-драйвером — VB падает с критическими ошибками.

Надо эти файлы видеть - возможно бы и открыли.

Я бы попробовал Visual FoxPro OLEDB...