XML檔案原始碼察看器（七） (轉)

XML檔案原始碼察看器（七） (轉)[@more@]

'給指令節點著色:namespace prefix = o ns = "urn:schemas--com::office" />

function renderInstruction(nodNode,intLevel)

 dim strNodes,intCount,intNode

 strNodes = ""

 intCount = 0

 intNode = 0

 dim nodAttrList

 strNodes=strNodes & getIndent(intLevel)&"&lt"

 strNodes=strNodes & "?"

 strNodes=strNodes & nodNode.nodeName&" "

 ' check there are some attributes

 strNodes=strNodes & nodNode.nodeValue

 strNodes=strNodes & "?&gt
"

 renderInstruction = strNodes

end function

function getIndent(intLevel)

 ' create a string of spaces

 dim strIndent

 strIndent = ""

 for intIndent = 0 to intLevel-1

 strIndent = strIndent & "&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp"

 next

 getIndent = strIndent

end function
%>

 

sourceValue="10" UnitName="pt">10pt;">

14pt; font-weight:bold;">

---

---

8pt;"> 8pt;" HREF="http:'openlab.biti.edu.cn/xml/" target="_blank">BITI XML UNION -

stan