VBA写入非常大的字符串

Question

所以我有一个很大的 vba 字符串，我试图将其作为二进制文件写入文件。我有一个非常漂亮的功能。我有一个很长的字符串，可以说大约 80k。该字符串正确地从文件中读取，正确地传递函数，正确地打印到屏幕上。但无论我做什么，以任何形式或形式，我都可以在文件中获得超过 39k 的内容。我已将字符串拆分为较小的位，认为这是 VBA 限制。然后一次将它传递给我的函数 42 个字符。 Seek(LOF) +1 put 是我在打开 bin 之后所做的，但是......我怎么称呼它似乎并不重要。二进制，ASCI，一次写完。我只得到最后的39k。这是我用来写入文件的函数。据我所知，这是一个内存限制而不是语法错误，并且可能与我的代码形式几乎没有关系，就像我似乎没有得到的东西一样。

sub IBorrowedThis(hex_val as string)

dim output() as string
dim handle as long
output = Split(hex_val, "|")
handle = FreeFile
open "fp" for binary as #handle

For i = LBound(output) to Unbound(output)

seek #handle,LOF(handle) + 1
  put #handle, , cbyte("&H" & output(i))
next i

close #handle

end sub

所以我已经对这一切进行了测试，一切正常。附加到包含的末尾。只是不适用于大文件。

Answer 1

另一种更简单的将二进制字符串写入文件的方法：

SUB WriteBinaryStringToFile (hex_val AS STRING)
    DIM handle AS LONG
    handle = FREEFILE
    OPEN "binary2.tst" FOR BINARY AS #handle
    SEEK #handle, LOF(handle) + 1
    PUT #handle, , hex_val
    CLOSE #handle
END SUB

Answer 2

将二进制字符串写入文件的简单方法：

SUB WriteBinaryStringToFile (hex_val AS STRING)
    DIM c AS STRING * 1
    DIM I AS LONG
    DIM handle AS LONG
    handle = FREEFILE
    OPEN "fp" FOR BINARY AS #handle
    FOR I = 1 TO LEN(hex_val)
        c = MID$(hex_val, I, 1)
        SEEK #handle, LOF(handle) + 1
        PUT #handle, , c
    NEXT I
    CLOSE #handle
END SUB