0

VBScriptに関してはまったくわかりません。そのため、オンラインで見つかった2つの単純なコードスニペットをフランケンシュタインで作成して、テキストファイルの内容全体をXMLドキュメントに挿入したときはとてもうれしかったです。

<私がに変更され&lt;、私<がに変更されたことを除いて、すべてが正常に機能し&gt;ます。

どうすればこれを克服できますか？

私のコード：

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\test.txt", ForReading)

strText = objTextFile.ReadAll
objTextFile.Close

Set xmlDoc = CreateObject("Microsoft.XMLDOM")

xmlDoc.Async = "False"
xmlDoc.Load("C:\Audits.xml")

Set colNodes = xmlDoc.SelectNodes("/TOOLS")

For Each objNode In colNodes
   objNode.text = (strText)
Next

xmlDoc.Save "C:\Audits.xml"
4

2 に答える 2

1

CDATAセクションでは、<および>を使用できます。

CDATAセクションを使用すると、開発者は、文字またはエンティティの参照を使用せずに、要素コンテンツ内にマークアップ文字<、>、および＆を含めることができます。スクリプト、スタイルシート、プログラムコード、およびサンプルXMLコードは、CDATAセクションに含まれていることがよくあります。

（ドキュメント）

コード：

  Dim oXML : Set oXML = CreateObject("Msxml2.DOMDocument")
  Set oXML.documentElement = oXML.createElement("a")
  Dim nd
  Set nd = oXML.createElement("b")
  nd.appendChild oXML.createTextNode("<>")
  oXML.documentElement.appendChild nd
  Set nd = oXML.createElement("c")
  nd.appendChild oXML.createCDATASection("<>")
  oXML.documentElement.appendChild nd

出力：

<a><b>&lt;&gt;</b><c><![CDATA[<>]]></c></a>
于 2012-12-10T20:11:44.217 に答える
0

あなたはこれを「克服」しません。<また、>文字はエンコードする必要があります。そうしないと、XMLタグ（角かっこ、つまり文字で区切られている）<の解析に問題が発生します。>

于 2012-12-10T18:33:10.250 に答える