0

在我们在 Windows XP 上运行并使用 LiveLink 之前，一切正常。我们最近迁移到 Content Server 和 Windows 7。

Opentext xml 导出指南中有一个功能可以让您从 URL 导出 XML。vba 代码用于加载此 url 并将其放入 MSXML2.DOMDocument60 中。

Dim xmldoc As MSXML2.DOMDocument60
Set xmldoc = New MSXML2.DOMDocument60
xmldoc.Load (xmlURL)

由于迁移，这不再起作用。我将 URL 更改为新服务器并阅读了新指南。当我在 IE8 中键入 url 时，我得到了 xml，但它的格式不正确......在 xml 声明之前有 2 个空格会导致问题，并且隐藏/展开的 - 和 + 也被视为字符。如果我在记事本++中复制/粘贴并删除2个额外的空格并将所有“- <”替换为“<”，然后将此文件加载到我的Domdocument中，一切正常。编码是正确的 UTF-8，我尝试了一些可以传递给 xmlexport 函数的参数，但没有任何改变。

我的计划是将 xml 从我的 URL 导出到一个临时文本文件中并更正它，以便我可以将正确的 xml 传递给填充我的数据库的函数。我寻找了一种方法来做到这一点，但到目前为止都没有。谢谢你的帮助。

4

2 回答 2

0

我使用的功能：

 Private Declare Function URLDownloadToFile Lib "urlmon" _
 Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
 ByVal szURL As String, ByVal szFileName As String, _
 ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

将我的网页保存到 doc.xml 中，然后将其加载到 DOMdoc

 xmldoc.Load (path_to_doc.xml)
于 2014-10-17T17:58:34.930 回答
0

可以使用 VBscript 将文本文件读入变量，然后将变量重新写入另一个文本文件，减去前两个字符。

这是讨论类似内容的页面： Read and write into a file using VBScript

它可能是这样的：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("c:\scripts\servers.txt", ForReading)

strText = objTextFile.ReadAll
objTextFile.Close

Set objTextFile = objFSO.CreateTextFile("c:\scripts\servers2.txt", True)
objTextFile.Write (right(strText, len(strText)-2))

我没有对此进行测试，但这本质上是您想要做的。我认为。

于 2014-10-16T22:41:03.593 回答