XML文件源码察看器（七） (转)

XML文件源码察看器（七） (转)[@more@]

'给指令节点着色XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office: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
%>

 

XML 源码察看器

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

14pt; font-weight:bold;">

---

---

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

Mailto:xiaoleilong@mail.biti.edu.cn">stan

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752019/viewspace-981936/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752019/viewspace-981936/