写入随机文件只为第一个记录写入不正确的文件长度

Question

注意 - 我从头开始重写了这个问题以简化问题...

以下函数将记录写入二进制文件：

Public Type TestRecord
    Available As Boolean
    Inidcator As String
End Type

Private Sub WriteTestRecord(ByVal RecCount As Integer)

    Dim Fn As Integer, CN As Integer
    Dim filename As String
    Dim EmpRec As TestRecord
    Dim clk() As TestRecord
    ReDim clk(1 To RecCount)

    Debug.Print Len(EmpRec)

    filename = "C:\TestRecFile.bin"

    If Len(Dir(filename)) > 0 Then Kill filename

    Fn = FreeFile
    Open filename For Random As #Fn Len = Len(EmpRec)
    For CN = 1 To RecCount
        EmpRec = clk(CN)
        Put #Fn, , EmpRec
    Next CN
    Close #Fn

End Sub

请注意 Len(EmpRec) = 6 code> 单步执行此代码时

如果我调用该函数并写出一条记录 - 它仅写出 4 个字节：

Call WriteTestRecord(1) '文件长度为 4 个字节

如果我调用该函数并写入输出不止一条记录 - 它写道out (RecCount*6) - 2 bytes:

Call WriteTestRecord(10) ' file length is 58 bytes

这是因为我有一个非固定长度的字符串在我的类型中，但为什么第一个记录的长度与所有其他记录的长度不同？

Answer 1

不是第一条记录错误，而是最后一条记录错误。

如果在每次写入并查看文件之前将“可用”设置为“真”，则可以看到这一点。

您的 UDT 只有 4 个字节，因此第一次写入时文件中有 4 个字节。但是，当您写入第二条记录时，VB 首先将文件中的 Rec#1 用空值填充到您在 Open 中提供的 6 字节长度。然后写入 4 字节记录 (rec #2)。每次写入时都会重复此过程。最后的记录总是很短。

有趣的是，Close 并没有将最后一条记录的 4 字节填充到 6 字节。

Answer 2

VB6 可变长度字符串是指向 BSTR 结构的指针。根据语言规范，它们可以为 NULL。这意味着类型定义中的指针值将为零。我可以看到 VB6 做了一些事情，比如在写出这些字节时跳过这些字节。

正如您在编辑的问题中提到的，如果您要将结构写入随机访问文件，正确的答案是使用固定长度的字符串。