rtf文档存储及读取的解决之道？

Question

这个问题我以前也遇到过不过现在已经解决了！你把块的设置改变一下。

Answer 1

解决了就贴出来给大家看看吧，共同进步么；）

Answer 2

file_num = FreeFile
                    Open strFile_Path For Binary As #file_num
                    FileLength = Rs_3("文章正文").ActualSize
                    If FileLength > 5000 Then
                        BlockSize = 1000
                    Else
                        BlockSize = 10
                    End If
                    NumBlocks = FileLength / BlockSize
                    LeftOver = FileLength Mod BlockSize
                    ReDim byteData(BlockSize)
                            For i = 1 To NumBlocks
                                byteData() = Rs_3("文章正文").GetChunk(BlockSize)
                                Put #file_num, , byteData()
                            Next i
                            ReDim byteData(LeftOver)
'                            If Not IsNull(Rs_3("文章正文").GetChunk(LeftOver)) Then                            For i = 1 To LeftOver
                            On Error GoTo ErrPut
                                byteData() = Rs_3("文章正文").GetChunk(LeftOver)
                                Put #file_num, , byteData()
                            Next i
ErrPut:
'                            End If
                    Close #file_num
                    Set f = Nothing
                    
                    Me.txtMagazineArticle.LoadFile strFile_Path
                    Rs_3.Close
                    Set Rs_3 = Nothing
                    SubDeleteFile