Question

有没有办法在我使用VBA创建的文件中找到&并将其替换为&？

以下是我的代码的简短片段，以说明我是如何创建文件的。

Open myFile For Output As #1

Print #1, "<?xml version=""1.0"" encoding=""UTF-8""?>"

Print #1, "     <name>" & element & "</name>"

Close #1

其中一个因素是C＆amp; C导致了我的问题。

Answer 1

Print #1, "     <name>" & Replace(element, "&", "&amp;")  & "</name>"

Answer 2

如果您正在生成一个XML文件，除非您正在做一些非常简单的事情，否则使用XML library可能会更聪明，而不是像这样处理一百万个小问题。

'' Add reference to Microsoft XML, v6.0
Dim doc As New MSXML2.DOMDocument
Dim root As MSXML2.IXMLDOMElement
Dim reader As New SAXXMLReader60
Dim writer As New MXXMLWriter60

Set root = doc.CreateElement("name")
root.Text = element
doc.appendChild root

Set reader.ContentHandler = writer
writer.Indent = True
reader.Parse doc

Print #1, writer.Output

替换＆amp;与＆amp;使用VBA

2 个答案: