* Функция для чтения файла и вывода его содержимого в шестнадцатеричном формате
CLEAR
    cFileName = "c:\dev\vfp\test_append\proj1.pjx"  && Замените на имя вашего файла

    *INPUT
    LOCAL lnFile, lnWord, lcHex, lnBytesRead, lnBlockSize, lnFileSize, lcString, lnIndex, lnTotalBytes
    LOCAL lnLeft
    *OUTPUT
    LOCAL lnHexLine, lcHexLine, lcOut, m.lcHexLineView

    m.lcOut = FORCEEXT(cFileName, "hex")

    m.lnBlockSize = 16  && Размер блока для чтения
    m.lnFile = FOPEN(cFileName, 0)  && (Default) Read-only

    IF m.lnFile = -1
        WAIT WINDOW "Ошибка открытия файла" NOWAIT
        ?"Ошибка открытия файла"
        RETURN
    ENDIF

    * Seek to end of file to determine number of bytes in the file.
    m.lnFileSize = FSEEK(m.lnFile, 0, 2)     && Move pointer to EOF

    IF m.lnFileSize <= 0
     * If file is empty, display an error message.
        WAIT WINDOW "Этот файл пуст!" NOWAIT
        ?"Этот файл пуст!"
        RETURN
    ENDIF

    STRTOFILE("", m.lcOut, .F.)

    = FSEEK(m.lnFile, 0, 0)      && Move pointer to BOF

    m.lnTotalBytes = 0
    m.lnHexLine = 0
    m.lnLeft = m.lnFileSize
    DO WHILE m.lnLeft > 0
        m.lcString = FREAD(m.lnFile, MIN(m.lnBlockSize, m.lnLeft))  && Чтение блока данных
        m.lnBytesRead = LEN(m.lcString)
        IF m.lnBytesRead = 0
            EXIT
        ENDIF
        
        m.lnTotalBytes = m.lnTotalBytes + m.lnBytesRead
        m.lnLeft = m.lnFileSize - m.lnTotalBytes

        m.lcHexLine = Hex8(m.lnHexLine) + ": "
        
        FOR m.lnIndex = 1 TO m.lnBytesRead
            m.lcChar = SUBSTR(m.lcString, m.lnIndex, 1)
            m.lcHex = HexWord(ASC(m.lcChar))
            m.lcHexLine = m.lcHexLine + m.lcHex
            
            IF m.lnIndex = 8 
                m.lcHexLine = m.lcHexLine + "|"
            ELSE
                m.lcHexLine = m.lcHexLine + " "
            ENDIF
        ENDFOR

        m.lcString = STRTRAN(m.lcString, CHR(9), ".")
        m.lcString = STRTRAN(m.lcString, CHR(10), ".")
        m.lcString = STRTRAN(m.lcString, CHR(13), ".")
        
        STRTOFILE(m.lcHexLine + " | " + m.lcString + CHR(13) + CHR(10), m.lcOut, .T.)

        m.lnHexLine = m.lnHexLine + 16
        
    ENDDO

    FCLOSE(m.lnFile)  && Закрытие файла
    
    MESSAGEBOX("Готово!")
RETURN

* Функция для преобразования слова в шестнадцатеричное представление
FUNCTION HexWord(tnWord, tlZeroX)
    RETURN (IIF(m.tlZeroX,"0x","")+STRCONV(CHR(m.tnWord),15))
ENDFUNC

* Функция для преобразования числа в шестнадцатеричное представление с 8 символами
FUNCTION Hex8(tnNum)
    IF m.tnNum = 0
        RETURN REPLICATE("0", 8)
    ENDIF
    LOCAL lcHex, lnDigit
    m.lcHex = ""
    DO WHILE ABS(m.tnNum) > 0
        m.lnDigit = BITAND(m.tnNum, 0x0F)
        m.lcHex = SUBSTR("0123456789ABCDEF", m.lnDigit + 1, 1) + m.lcHex
        m.tnNum = BITRShift(m.tnNum, 4)
    ENDDO
    RETURN PADL(m.lcHex, 8, "0")
ENDFUNC

Цитата:

Расшифровка заголовка:
00000000: 30 18 0A 19 03 00 00 00|A8 04 82 00 00 00 00 00 | 0. иВ |
00000010: 00 00 00 00 00 00 00 00|00 00 00 00 02 C9 00 00 | ╔ |

Цитата:

Поля заголовка:
bVersion: 0x30 (48 в десятичной системе) — Версия формата DBF.
bYear: 0x18 (24 в десятичной системе) — Год последнего изменения (последний разрешенный символ).
bMonth: 0x0A (10 в десятичной системе) — Месяц последнего изменения.
bDay: 0x19 (25 в десятичной системе) — День последнего изменения.
ulRecCount: 0x03 00 00 00 — Количество записей в файле (3 записи).
uiHeaderLen: 0xA8 04 — Длина заголовка в байтах (1160 байт).
uiRecordLen: 0x82 00 — Длина одной записи в байтах (130 байт).
bReserved1: 0x00 00 — Резервированные байты.
bTransaction: 0x00 — Флаг транзакции (0 - нет транзакции).
bEncrypted: 0x00 — Флаг шифрования (0 - таблица не зашифрована).
bReserved2: 0x00 00 00 00 00 00 00 00 00 00 00 00 — Резервированные байты.
bHasTags: 0x02 — Битовое поле: 1 - производственный индекс, 2 - мемо-файл в VFP.
bCodePage: 0xC9 (201 в десятичной системе) — Кодовая страница.
bReserved3: 0x00 00 — Резервированные байты.

TRAN(number, '@0')

RIGHT(TRAN(number, '@0'), 8)

TRAN(0h + <char>)

kornienko_ru
alex;
а есть способ из визуального класса (файлы с расширениями vct и vcx) сделать текстовую библиотеку с расширением prg. Ну или извлечь какой-то класс в prg?
PS
Вот, что я нашёл по этой проблеме stackoverflow.com

kornienko_ru
alex;
а есть способ из визуального класса (файлы с расширениями vct и vcx) сделать текстовую библиотеку с расширением prg. Ну или извлечь какой-то класс в prg?
PS
Вот, что я нашёл по этой проблеме stackoverflow.com

kornienko_ru
alex;
а есть способ из визуального класса (файлы с расширениями vct и vcx) сделать текстовую библиотеку с расширением prg. Ну или извлечь какой-то класс в prg?
PS
Вот, что я нашёл по этой проблеме stackoverflow.com

lemenev
Есть ещё foxbin2prg.exe

ssa
Рабочий код создает ClassBrowserX, особенно обновленная версия с GitHub

Результат
00000000: 50 4B 03 04 14 00 02 00|08 00 5B BB 3E 5A E1 F2 | PK   [»>Zбт
00000010: 06 95 05 00 00 00 05 00|00 00 07 00 00 00 71 77 | •   qw
00000020: 65 2E 74 78 74 2B 2C 04|02 00 50 4B 01 02 14 00 | e.txt+, PK

00000030: 14 00 02 00 08 00 5B BB|3E 5A E1 F2 06 95 05 00 |    [»>Zбт•
00000040: 00 00 05 00 00 00 07 00|00 00 00 00 00 00 01 00 |  

00000050: 20 00 00 00 00 00 00 00|71 77 65 2E 74 78 74 50 | qwe.txtP
00000060: 4B 05 06 00 00 00 00 01|00 01 00 35 00 00 00 2A | K

5 *
00000070: 00 00 00 00 00 |

of63
Алекс, ты далеко ушел в "современные" технологии, но ты нифига не сделаешь, когда ИИ, интернет, комп сломаются похоже... ка сынок тоже, он думает, что дело за какими-то программами, которые все делают. А дело - за форматами данных, сигналов, за физикой происходящего. В ИИ - с математики процесса, с электроники - с электронного ключа (лампы/транзистора)...
Ну, если тебе нравится ИИ от дипсика, ну, продолжай, только не ссылками на, что-то сам пиши ) или хоть ссылки комментируй текстом. Текст пишешь без ошибок, молоток! )

Доб. Ты привел серию ссылок, но хоть что-то, хоть к одной ссылке, что-то скажи, по-русски