遍历XML文档返回二维数组(ASP)(更新版)

四季青tanmu

四季青tanmu

2016-01-29 12:57

遍历XML文档返回二维数组(ASP)(更新版),遍历XML文档返回二维数组(ASP)(更新版)

<% on error resume next '问题没处理 'xmlfile = "???.xml" Set xml = Server.CreateObject("MSXML.DOMDocument") xml.async = false xml.load(xmlfile)
Public Function PrettyPrint(node,tabLevel)on error resume next If node.nodeName <> vbNullStrin And node.nodeName <> "#text" Then PrettyPrint = PrettyPrint & tabLevel & "[sp2]0[sp2]" + node.nodeName + "[sp1]"
For Each i In node.Attributes pstr = pstr + i.Name + "=" + i.Value + " " Next PrettyPrint = PrettyPrint & tabLevel & "[sp2]2[sp2]" + pstr + "[sp1]" End If If node.hasChildNodes Then For Each childNode In node.childNodes tabLevel=tabLevel+1 PrettyPrint = PrettyPrint + PrettyPrint(childNode, tabLevel) Next Else PrettyPrint = PrettyPrint & tabLevel-1 & "[sp2]1[sp2]" + node.Text + "[sp1]" End IfEnd Function
Public Function ShowXml(s)on error resume next ta = split(s,"[sp1]") k = ubound(ta)-1 'response.write "sta(" &k &",2)

" redim sta(k,2) for i = 0 to k ta2 = split(ta(i),"[sp2]") cs1 = ta2(0) cs2 = ta2(1) cs3 = ta2(2) 'Response.write "sta(" & cs1 & "," & cs2 & ") = " & cs3 & "
" sta(cs1,cs2) = cs3 Next ShowXml = staEnd Function
test = ShowXml(PrettyPrint(xml.documentElement,0))
response.write "" + chr(13) response.write "" response.write "nodeNamenodeValueAttributes" response.write "" + chr(13) for b = 0 to ubound(test) If test(b,0)<>"" then response.write "0 then response.write "bgcolor=#BABBBC" end if response.write ">" response.write "" & test(b,0) & " " response.write "" & test(b,1) & " " response.write "" & test(b,2) & " " response.write "" + chr(13) End if next response.write ""
%>
PrettyPrint函数返回字符串
ShowXml函数处理PrettyPrint的返回值并返回一个二维数组
展开更多 50%)
分享

猜你喜欢

遍历XML文档返回二维数组(ASP)(更新版)

电脑网络
遍历XML文档返回二维数组(ASP)(更新版)

数据结构题集--数组(二维数组)

编程语言 网络编程
数据结构题集--数组(二维数组)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

java 二维数组矩阵乘法的实现方法

编程语言 网络编程
java 二维数组矩阵乘法的实现方法

用递归查找有序二维数组的方法详解

编程语言 网络编程
用递归查找有序二维数组的方法详解

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用函数读出数据表内容放入二维数组

PHP
用函数读出数据表内容放入二维数组

易信将发布更新版本

手机软件 应用软件
易信将发布更新版本

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

《神之刃》战宠详解之希望女神芙娜

《神之刃》战宠详解之希望女神芙娜

谁能给个注入的简单语句? - PHPchina

谁能给个注入的简单语句? - PHPchina
下拉加载更多内容 ↓