Как читать FoxPro Memo с помощью PHP?

Хорошо, я внимательно изучил спецификации MSDN для файловых структур DBF и FPT, и в результате получился красивый PHP-класс, который может одновременно открывать DBF и (необязательно) файл меморандумов FPT. Этот класс будет давать вам запись за записью и тем самым извлекать любые заметки из файла заметок, если он открыт.

class Prodigy_DBF {
    private $Filename, $DB_Type, $DB_Update, $DB_Records, $DB_FirstData, $DB_RecordLength, $DB_Flags, $DB_CodePageMark, $DB_Fields, $FileHandle, $FileOpened;
    private $Memo_Handle, $Memo_Opened, $Memo_BlockSize;

    private function Initialize() {

        if($this->FileOpened) {
            fclose($this->FileHandle);
        }

        if($this->Memo_Opened) {
            fclose($this->Memo_Handle);
        }

        $this->FileOpened = false;
        $this->FileHandle = NULL;
        $this->Filename = NULL;
        $this->DB_Type = NULL;
        $this->DB_Update = NULL;
        $this->DB_Records = NULL;
        $this->DB_FirstData = NULL;
        $this->DB_RecordLength = NULL;
        $this->DB_CodePageMark = NULL;
        $this->DB_Flags = NULL;
        $this->DB_Fields = array();

        $this->Memo_Handle = NULL;
        $this->Memo_Opened = false;
        $this->Memo_BlockSize = NULL;
    }

    public function __construct($Filename, $MemoFilename = NULL) {
        $this->Prodigy_DBF($Filename, $MemoFilename);
    }

    public function Prodigy_DBF($Filename, $MemoFilename = NULL) {
        $this->Initialize();
        $this->OpenDatabase($Filename, $MemoFilename);
    }

    public function OpenDatabase($Filename, $MemoFilename = NULL) {
        $Return = false;
        $this->Initialize();

        $this->FileHandle = fopen($Filename, "r");
        if($this->FileHandle) {
            // DB Open, reading headers
            $this->DB_Type = dechex(ord(fread($this->FileHandle, 1)));
            $LUPD = fread($this->FileHandle, 3);
            $this->DB_Update = ord($LUPD[0])."/".ord($LUPD[1])."/".ord($LUPD[2]);
            $Rec = unpack("V", fread($this->FileHandle, 4));
            $this->DB_Records = $Rec[1];
            $Pos = fread($this->FileHandle, 2);
            $this->DB_FirstData = (ord($Pos[0]) + ord($Pos[1]) * 256);
            $Len = fread($this->FileHandle, 2);
            $this->DB_RecordLength = (ord($Len[0]) + ord($Len[1]) * 256);
            fseek($this->FileHandle, 28); // Ignoring "reserved" bytes, jumping to table flags
            $this->DB_Flags = dechex(ord(fread($this->FileHandle, 1)));
            $this->DB_CodePageMark = ord(fread($this->FileHandle, 1));
            fseek($this->FileHandle, 2, SEEK_CUR);    // Ignoring next 2 "reserved" bytes

            // Now reading field captions and attributes
            while(!feof($this->FileHandle)) {

                // Checking for end of header
                if(ord(fread($this->FileHandle, 1)) == 13) {
                    break;  // End of header!
                } else {
                    // Go back
                    fseek($this->FileHandle, -1, SEEK_CUR);
                }

                $Field["Name"] = trim(fread($this->FileHandle, 11));
                $Field["Type"] = fread($this->FileHandle, 1);
                fseek($this->FileHandle, 4, SEEK_CUR);  // Skipping attribute "displacement"
                $Field["Size"] = ord(fread($this->FileHandle, 1));
                fseek($this->FileHandle, 15, SEEK_CUR); // Skipping any remaining attributes
                $this->DB_Fields[] = $Field;
            }

            // Setting file pointer to the first record
            fseek($this->FileHandle, $this->DB_FirstData);

            $this->FileOpened = true;

            // Open memo file, if exists
            if(!empty($MemoFilename) and file_exists($MemoFilename) and preg_match("%^(.+).fpt$%i", $MemoFilename)) {
                $this->Memo_Handle = fopen($MemoFilename, "r");
                if($this->Memo_Handle) {
                    $this->Memo_Opened = true;

                    // Getting block size
                    fseek($this->Memo_Handle, 6);
                    $Data = unpack("n", fread($this->Memo_Handle, 2));
                    $this->Memo_BlockSize = $Data[1];
                }
            }
        }

        return $Return;
    }

    public function GetNextRecord($FieldCaptions = false) {
        $Return = NULL;
        $Record = array();

        if(!$this->FileOpened) {
            $Return = false;
        } elseif(feof($this->FileHandle)) {
            $Return = NULL;
        } else {
            // File open and not EOF
            fseek($this->FileHandle, 1, SEEK_CUR);  // Ignoring DELETE flag
            foreach($this->DB_Fields as $Field) {
                $RawData = fread($this->FileHandle, $Field["Size"]);
                // Checking for memo reference
                if($Field["Type"] == "M" and $Field["Size"] == 4 and !empty($RawData)) {
                    // Binary Memo reference
                    $Memo_BO = unpack("V", $RawData);
                    if($this->Memo_Opened and $Memo_BO != 0) {
                        fseek($this->Memo_Handle, $Memo_BO[1] * $this->Memo_BlockSize);
                        $Type = unpack("N", fread($this->Memo_Handle, 4));
                        if($Type[1] == "1") {
                            $Len = unpack("N", fread($this->Memo_Handle, 4));
                            $Value = trim(fread($this->Memo_Handle, $Len[1]));
                        } else {
                            // Pictures will not be shown
                            $Value = "{BINARY_PICTURE}";
                        }
                    } else {
                        $Value = "{NO_MEMO_FILE_OPEN}";
                    }
                } else {
                    $Value = trim($RawData);
                }

                if($FieldCaptions) {
                    $Record[$Field["Name"]] = $Value;
                } else {
                    $Record[] = $Value;
                }
            }

            $Return = $Record;
        }

        return $Return;
    }

    function __destruct() {
        // Cleanly close any open files before destruction
        $this->Initialize();
    }
}

Класс можно использовать следующим образом:

    $Test = new Prodigy_DBF("customer.DBF", "customer.FPT");
    while(($Record = $Test->GetNextRecord(true)) and !empty($Record)) {
        print_r($Record);
    }

Это может быть не всемогущий идеальный класс, но он работает для меня. Не стесняйтесь использовать этот код, но обратите внимание, что класс ОЧЕНЬ толерантный - ему все равно, возвращают ли fread() и fseek() true или что-то еще, поэтому вы можете немного улучшить его перед использованием.

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

Я заменил этот код:

fseek($this->Memo_Handle, (trim($RawData) * $this->Memo_BlockSize)+8);
$Value = trim(fread($this->Memo_Handle, $this->Memo_BlockSize));

с этим кодом:

fseek($this->Memo_Handle, (trim($RawData) * $this->Memo_BlockSize)+4);
$Len  = unpack("N", fread($this->Memo_Handle, 4));
$Value = trim(fread($this->Memo_Handle, $Len[1] ));

это помогло мне

Хотя это и не PHP, VFP основан на ссылках, основанных на 1, и я думаю, что PHP основан на нулях, поэтому вам придется расшифровать и соответствующим образом настроить, но это работает, и, надеюсь, вы сможете опубликовать свою версию этой части, когда закончите.

FILETOSTR() в VFP откроет файл и прочитает все содержимое в одну переменную памяти в виде строки символов — все управляющие клавиши, символы старшего байта и т. д. без изменений. Вам, вероятно, придется полагаться на FOPEN(), FSEEK(), FCLOSE() и т. д.

MemoTest.FPT был моей таблицей/файлом для примера fpt1 = FILETOSTR("MEMOTEST.FPT")

Во-первых, вам нужно будет определить MEMO BLOCK SIZE, использованный при создании файла. Обычно это будет 64 БАЙТА, ​​но по ссылке, которую вы указали в своем посте.

Позиции заголовка 6-7 определяют размер (VFP, позиции 7 и 8). Первый байт является старшим

nBlockSize = ASC( SUBSTR( fpt1, 7, 1 )) * 256 + ASC( SUBSTR( fpt1, 8, 1 ))

Теперь о ваших индивидуальных записях. Везде, где в вашей структуре DBF есть memo FIELD (и у вас может быть много на одну структуру записи), там будет 4 байта. В поле ЗАПИСЬ он идентифицирует «блок» в файле заметок, в котором хранится содержимое.

MemoBytes = 4 байта в указанном вами местоположении поля. Они будут храниться как ASCII от 0 до 255. Это поле хранится с ПЕРВЫМ байтом в качестве младшего и 4-м байтом в виде 256 ^ 3 = 16777216. Первый когда-либо использованный «Блок» будет начинаться со смещения позиции 512 в соответствии со спецификацией файла memo .fpt, которую занимает заголовок. позиции 0-511.

Итак, если ваше первое поле memo имеет содержимое «8000», где 8 — это фактический 0x08, а не номер «8», который равен 0x38, а нули равны 0x00.

YourMemoField = "8000" (фактически используйте ascii, но для удобочитаемости показывает шестнадцатеричное ожидаемое значение)

First Byte is ASCII value  * 1   ( 256 ^ 0 )
Second Byte is ASCII value * 256   (256 ^ 1)
Third Byte is ASCII value * 65536   (256 ^ 2)
Fourth Byte is ASCII value * 16777216 (256 ^ 3)

nMemoBlock =  byte1 + ( byte2 * 256 ) + ( byte3 * 65536 ) + ( byte4 * 16777216 )

Теперь вам нужно использовать FSEEK() для

FSEEK( handle, nMemoBlock * nBlockSize +1 )

для первого байта блока, который вы ищете. Это будет указывать на заголовок BLOCK. В этом случае, согласно спецификации, первые 4 байта идентифицируют ПОДПИСЬ блока, вторые 4 байта — это длина содержимого. Для этих двух байтов сначала хранятся HIGH-BYTE.

Из вашего FSEEK() это ОБРАТНАЯ ВЕРСИЯ nMemoBlock выше со старшим байтом. "Byte1-4" здесь из вашей позиции FSEEK()

nSignature = ( byte1 * 16777216 ) + ( byte2 * 65536 ) + ( byte3 * 256 ) + byte4

nMemoLength = ( byte5 * 16777216 ) + ( byte6 * 65536 ) + ( byte7 * 256 ) + byte8

Теперь FSEEK() до 9-го байта (1-й фактический символ данных ПОСЛЕ 8 байтов заголовка, который вы только что прочитали для подписи и длины заметки). Это начало ваших данных.

А теперь прочтите остальную часть...

FSEEK() +9 characters to new position

cFinalMemoData = FREAD( handle, nMemoLength )

Я знаю, что это не идеально, как и PHP-скрипт, но достаточно псевдокода о том, как хранятся вещи, и, надеюсь, вам ХОРОШО на вашем пути.

Опять же, ПОЖАЛУЙСТА, примите во внимание, когда вы выполняете процесс отладки, чтобы обеспечить базовое смещение 0 или 1. Чтобы упростить и протестировать это, я создал простой .DBF с двумя полями... символьное поле и поле для заметок, добавил несколько записей и некоторый базовый контент для подтверждения всего контента, позиций и т. д.

Я думаю, маловероятно, что в PHP есть библиотеки FoxPro.

Возможно, вам придется кодировать его с нуля. Для побайтового чтения познакомьтесь с fopen() fread() и коллегами.

Изменить: похоже, существует драйвер ODBC для Visual FoxPro. Возможно, вы сможете подключиться к базе данных FoxPro через PDO и этот коннектор. Каковы шансы на успех, и сколько это будет работы, я не знаю.

Файл FPT содержит памятные данные. В DBF у вас есть столбцы типа memo, и информация в этом столбце является указателем на запись в файле FPT.

Если вы запрашиваете данные из таблицы, вам нужно только сослаться на столбец memo, чтобы получить данные. Вам не нужно отдельно анализировать данные из файла FPT. Драйвер OLE DB (или драйвер ODBC, если ваши файлы относятся к версии VFP 6 или более ранней) должен просто предоставить вам эту информацию.

Существует инструмент, который автоматически перенесет ваши данные Visual FoxPro в MySQL. Возможно, вы захотите проверить это, чтобы увидеть, сможете ли вы сэкономить время:

Перейдите на страницу http://leafe.com/dls/vfp.

и найдите «Stru2MySQL_2» для инструмента для миграции структур данных и «Программа загрузки данных VFP2MySQL» для инструментов, помогающих с миграцией.

Рик Шуммер VFP MVP

Вы также можете проверить библиотеки PHP dbase. Они достаточно хорошо работают с файлами DBF.