PHP无dbase扩展拆分DBF文件：二进制写入异常求助

我来帮你搞定这个DBF拆分的问题——你之前的核心问题是对DBF文件结构的理解有点偏差，它可不是简单的「头行+文本记录」，整个文件都是二进制格式，头部里的关键字段必须正确更新，否则阅读器根本认不出你的新文件。

先纠正DBF结构的关键认知 #

DBF文件的结构是纯二进制的，主要分为几个部分：

1. 文件头（32字节）：包含文件类型、记录总数、首记录偏移位置、每条记录的长度等核心信息。你用unpack解析的RecordCount就是这里的4字节无符号整数（小端序），这个值必须和实际写入的记录数一致，否则文件无效。
2. 字段定义区：每个字段用32字节描述，最后以chr(13)（0x0D）标记字段定义结束。这部分的长度是固定的，由首记录偏移位置（FirstRecord）减去32字节（文件头长度）得到。
3. 记录区：每条记录的长度等于RecordLength，开头第一个字节是删除标记（*表示已删除，空格 表示正常），后面跟着各个字段的内容（按定义的长度存储，文本字段是ASCII，数值字段是二进制或格式化文本）。
4. 文件结束符：整个文件最后必须有一个chr(26)（0x1A）字节，否则DBF阅读器会认为文件损坏。

你之前的写入代码直接复制了原文件的头部分，但没有修改RecordCount，而且可能没处理文件结束符，这就是新文件格式错误的原因。

修复后的拆分方案步骤 #

1. 读取原文件的完整头部信息：不仅要解析出字段，还要保存文件头的原始二进制数据，方便后续修改记录数。
2. 修改文件头的记录数字段：把原头里的4-7字节（对应RecordCount）替换成新文件的记录数（小端序的4字节二进制）。
3. 写入新文件的基础结构：先写入修改后的文件头，再写入原字段定义区（直到chr(13)）。
4. 分块写入记录：按需要的数量读取原记录，逐个写入新文件，确保每条记录的长度和原RecordLength一致。
5. 添加文件结束符：写完所有记录后，必须写入chr(26)。

完整代码示例 #

1. 读取原DBF的核心信息（完善你的读取代码） #

function readDBFMetadata($filePath) {
    $fdbf = fopen($filePath, 'rb');
    if (!$fdbf) return false;

    // 读取文件头32字节
    $headerBuf = fread($fdbf, 32);
    $header = unpack(
        "VRecordCount/vFirstRecord/vRecordLength",
        substr($headerBuf, 4, 8)
    );
    $header['rawHeader'] = $headerBuf; // 保存原始头二进制数据

    // 读取字段定义
    $fields = [];
    $fieldDefBuf = '';
    $goon = true;
    while ($goon && !feof($fdbf)) {
        $buf = fread($fdbf, 32);
        $fieldDefBuf .= $buf;
        if (substr($buf, 0, 1) == chr(13)) {
            $goon = false;
        } else {
            $field = unpack(
                "a11fieldname/A1fieldtype/Voffset/Cfieldlen/Cfielddec",
                substr($buf, 0, 18)
            );
            $fields[] = $field;
        }
    }
    $header['fieldDefBuf'] = $fieldDefBuf; // 保存字段定义的二进制数据

    fclose($fdbf);
    return $header;
}

2. 拆分DBF的核心函数 #

function splitDBF($sourcePath, $recordsPerFile) {
    $metadata = readDBFMetadata($sourcePath);
    if (!$metadata) return false;

    $totalRecords = $metadata['RecordCount'];
    $recordLength = $metadata['RecordLength'];
    $firstRecordOffset = $metadata['FirstRecord'];

    // 计算需要拆分的文件数量
    $fileCount = ceil($totalRecords / $recordsPerFile);
    $outputFiles = [];

    $sourceFp = fopen($sourcePath, 'rb');
    if (!$sourceFp) return false;

    // 定位到第一条记录的位置
    fseek($sourceFp, $firstRecordOffset);

    for ($i = 0; $i < $fileCount; $i++) {
        $currentRecords = min($recordsPerFile, $totalRecords - ($i * $recordsPerFile));
        $newFilename = sprintf('split_%d.dbf', $i + 1);
        $destFp = fopen($newFilename, 'wb');
        if (!$destFp) continue;

        // 1. 修改文件头的记录数：替换4-7字节为新的记录数（小端序）
        $newHeader = $metadata['rawHeader'];
        $newRecordCountPacked = pack('V', $currentRecords);
        $newHeader = substr_replace($newHeader, $newRecordCountPacked, 4, 4);

        // 2. 写入修改后的文件头
        fwrite($destFp, $newHeader);

        // 3. 写入字段定义区
        fwrite($destFp, $metadata['fieldDefBuf']);

        // 4. 写入当前批次的记录
        for ($j = 0; $j < $currentRecords; $j++) {
            $record = fread($sourceFp, $recordLength);
            if ($record === false) break;
            fwrite($destFp, $record);
        }

        // 5. 写入文件结束符
        fwrite($destFp, chr(26));

        fclose($destFp);
        $outputFiles[] = $newFilename;
    }

    fclose($sourceFp);
    return $outputFiles;
}

3. 使用示例 #

// 调用拆分函数，把原DBF拆分为每个文件500条记录
$splitFiles = splitDBF('path/to/your/source.dbf', 500);
if ($splitFiles) {
    echo '拆分完成，生成文件：' . implode(', ', $splitFiles);
} else {
    echo '拆分失败';
}

关键注意事项 #

• 二进制模式读写：必须用rb（读）和wb（写）模式，避免系统自动转换换行符，破坏二进制结构。
• 记录长度严格匹配：每条记录必须完整读取RecordLength字节，不能截断或多取，否则会导致后续记录偏移错误。
• 文件结束符不能少：chr(26)是DBF文件的强制结束标记，缺失会导致阅读器报错。

内容的提问来源于stack exchange，提问作者Tiziano Mischi