Scripting.FileSystemObject在写入方法上内存不足

Question

我正在使用此代码将字符串写入TXT文件。

它适用于文件< 40mbs然而，我试图保存的TXT会有点大~45mb，并且在获取到.write行时出现“内存不足”的错误。

Private Sub SaveToTXT(FilePath As String, FileContents As String) 
    Dim fso As Object 
    Dim oFile As Object 
    FileManagementFactory.DeleteIfExists (FilePath) 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set oFile = fso.CreateTextFile(FilePath) 
    Call oFile.Write(FileContents) 
    Call oFile.Close 
    Set fso = Nothing 
    Set oFile = Nothing 
End Sub 

任何想法如何绕过这个问题？

Answer 1

在这里，试试这个。

Private Sub SaveToTXT(FilePath As String, FileContents As String) 
    Dim nFileNum As Integer: nFileNum = FreeFile 
    Open FilePath For Binary Lock Read Write As #nFileNum 
    Put #nFileNum, , FileContents 
    Close #nFileNum 
End Sub 

Answer 2

这就是我最后做的，它将文件以20,000,000个字符串分隔开。在我的测试中，它似乎超过了内存限制。

Private Sub SaveToTXT(FilePath As String, FileContents As String) 
    Dim fso As Object 
    Dim oFile As Object 
    Dim l As Long 
    Dim CharactersPerChunk As Long 
    CharactersPerChunk = 20000000 
    FileManagementFactory.DeleteIfExists (FilePath) 
    Set fso = CreateObject("Scripting.FileSystemObject") ' A lot faster than ADODB.Stream 
    Set oFile = fso.CreateTextFile(FilePath) 
    l = 0 
    While l < Len(FileContents)/CharactersPerChunk 
     Call oFile.Write(Mid(FileContents, (l * CharactersPerChunk) + 1, CharactersPerChunk)) 
     l = l + 1 
    Wend 
    Call oFile.Close 
    Set fso = Nothing 
    Set oFile = Nothing 
End Sub