如何设置的属性值实时 HTMLDocument 中的标记是否带有引号？

Question

基本上，我想做的就是将属性的值（例如 A 锚标记的 TARGET 属性）更改为“_TOP”（如果属性存在），如果不存在（如果 IsNull 返回 True）然后我只需创建该属性并将值设置为“_TOP”。

问题是，它几乎总是将其设置为不带引号，即使我尝试通过设置 .value = Chr(34) & 来设置它。 “_TOP”& Chr(34) 那么它所做的就是在我放置的引号周围设置单引号（这就像一个糟糕的笑话），并在 HTML 中显示为 '"_TOP"' (lol)，如果我正常设置它，它只是保存为 some link （不带引号）。

Dim attTargetAttribute As IHTMLDOMAttribute2 ' IHTMLDOMAttribute2 is the IE6.0+
' interface of the IHTMLDOMAttribute (which is I think IE5.5) it goes up to 4.

' aHtmlElement is just a valid/working/tested IHTMLElement ive set earlier.
' just a simple "A" / Anchor tag <A href="...">.

If IsNull(aHtmlElement.Attributes.getNamedItem("target")) Then

  Set attTargetAttribute = aHtmlElement.ownerDocument.createAttribute("target")
  aHtmlElement.Attributes.setNamedItem attTargetAttribute
Else

  Set attTargetAttribute = aHtmlElement.Attributes.getNamedItem("target")
End If

  attTargetAttribute.value = "_TOP"

我已经更改了上面的变量名称和将变量转换为字符串（“目标”）等，以便任何人都更容易阅读。

我在这上面浪费了很多时间，MSDN 文档一如既往地可怕，也没有关于这些东西的真正的文档或教程。我什至尝试使用 .nodeValue 而不是 .value 进行设置，但没有什么区别。另外，我尝试过（在“其他”部分中）删除该属性并从头开始重新创建+重新添加它，看看这是否会产生影响，但事实并非如此。

当然，引号很重要，因为如果您尝试对此元素执行操作（调用方法）或稍后使用它，您将收到可怕的“未指定错误”。我通过 VB6 中的 WebBrowser 控件执行此操作，但相同的原则应该适用于任何地方... C#/.NET/JavaScript 等，因为它似乎与 DOM 相关）。

有人有什么想法吗？已经讨论了两天多了，感谢所有花时间阅读本文的人。

更新：自发布以来我们意识到，如果我们以大写形式传递属性名称，则该值将用双引号保存。尽管这不是一个真正的解决方案（只是一个临时的解决方案），但我仍在寻找答案（如果有人有答案），并接受您在这篇文章中对此可能有的任何想法。但是，临时解决方案创建了另一个子问题，即关于使用此临时解决方案所出现的问题的帖子。与此临时解决方案相关的子问题位于以下链接，对于那些可能觉得阅读有用或有趣的人，以及那些想进一步参与此讨论的人： 必须传递大写字母才能正确设置 MSHTML 元素属性 (.setAttribute)，为什么？并且 CaseInsensitive .setAttribute 不起作用

Answer 1

像这样的东西似乎会起作用。

http://jsfiddle.net/fak4b/

var links = document.getElementsByTagName('a');
for (var i = 0; i < links.length; i++) {
    console.log(links[i].getAttribute('target'));
    if (links[i].getAttribute('target') != '_TOP') {
        links[i].setAttribute('target', '_TOP');
    }
}

Answer 2

生活窍门：
在属性值之前放置一个或多个空格。

例子：

var head   = webBrowser.Document.GetElementsByTagName("head")[0];
var metaEl = webBrowser.Document.CreateElement("meta");

metaEl.SetAttribute("HTTP-EQUIV", "X-UA-Compatible");
metaEl.SetAttribute("CONTENT"   , " IE=11"         ); // <= one white-space before attribute value.

head.AppendChild(metaEl);