VBA中的Writeline因文本太长而中断答案

【问题标题】：Writeline in VBA breaks with too long textVBA中的Writeline因文本太长而中断
【发布时间】：2019-08-20 14:04:06
【问题描述】：

我正在自动提取网页并将内容写入文本 (HTML) 文件。

为此，我设置了这样的文件系统对象

Dim myHTMLfilepath As String
myHTMLfilepath = "C:\temp\MyFile.html"

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim myHTMLFile As Object
Set myHTMLFile = fso.createtextfile(myHTMLfilepath)

当我尝试将提取的内容写入文件时，有时会收到错误 5（无效参数）。这是代码：

myHTMLFile.writeline objIE.document.getElementsByClassName("cool-box")(0).innerHTML

innerHTML 的长度在 25800 到 28000 之间时会中断（我还没有计算出确切的限制）。

有谁知道是否可以增加 WriteLine 限制或建议以不同的方式执行此操作？

【问题讨论】：

您可以自己拆分字符串并为每个换行符添加Chr(10)
你可以添加链接以及测试吗？
@Mikku 不幸的是这是一个私人网站。
@Camille 我想过这样做，但希望有一个更清洁的解决方案。
您在同一条指令中同时发生了“阅读”和“写作”，因此很难判断问题是否出在阅读 .innerHTML 或写到myHTMLFile。将其拆分，并考虑将字符串流式传输到文件中，而不是从内存中一次全部写入。

标签： vba fso

【解决方案1】：

假设.innerHTML 可以成功读入字符串（拆分读/写以找出），您应该可以使用ADODB.Stream 将其写入文件。 WriteLine 旨在将单行文本写入文件，而不是整个文档。

Dim contents As String
contents = objIE.document.getElementsByClassName("cool-box")(0).innerHTML

With CreateObject("ADODB.Stream")
    .Open
    .Type = 1
    .Write contents
    .SaveToFile myHTMLfilepath, 2
    .Close
End With

【讨论】：

写作绝对是个问题。我的调试显示了 innerHTML 中的内容，而 len() 显示了大约 29k 的值。我会试试这个，让你知道。
@Fabricio 请注意，作为奖励，此方法还支持 unicode 编码（如果适用）。
是的，我知道...而且它适用。几年前我用过这种方法，但忘记了。实际上，我刚刚恢复了与您的代码非常匹配的旧代码... :-) 我只是希望它在转储到文件之前至少能保存 30MB 的文本。我正在将几千页的内容收集到一个文件中...... :-)