主题：解析webservice返回的xml

 参考

http://www.foxtable.com/bbs/query.asp?keyword=xmldocument&boardid=0&sType=7&stable=Dv_bbs1&submit=%D5%BE%C4%DA%CB%D1%CB%F7

 不是可以判断是否为数组？

Dim ret As String = FileSys.ReadAllText("g:\xml.txt", encoding.default)
Dim xo As XObject = XObject.Parse(HTMLDecode(ret))

For Each ds As JToken In  xo("NewDataSet")("ds")
    '  output.show( ds("LISITEMNAME"), ds("RESULT"),ds("RANGE"),CStr(ds("FLAG") )
   
    output.show( ds("RANGE"))
   
    output.show( ds("FLAG"))
   
    output.show( ds("LISITEMNAME"))
   
    output.show(ds("RESULT"))
    If Typeof ds("UNIT") Is jvalue Then
        output.show(ds("UNIT"))
    Else
        msgbox(ds("UNIT").Tostring)
    End If
   
Next

你不是可以不显示？红色代码不写就好了啊

    If Typeof ds("UNIT") Is jvalue Then
        output.show(ds("UNIT"))
    Else
        msgbox(ds("UNIT").Tostring)
    End If

Dim ret As String = FileSys.ReadAllText("g:\xml.txt", encoding.default)
Dim xo As XObject = XObject.Parse(HTMLDecode(ret))

For Each ds As JToken In  xo("NewDataSet")("ds")
    '  output.show( ds("LISITEMNAME"), ds("RESULT"),ds("RANGE"),CStr(ds("FLAG") )
   
    output.show( ds("RANGE"))
   
    output.show( ds("FLAG"))
   
    output.show( ds("LISITEMNAME"))
   
    output.show(ds("RESULT"))
    If Typeof ds("UNIT") Is jvalue Then
        output.show(ds("UNIT"))
    Else
        msgbox(ds("UNIT")("@xml:space"))
    End If
Next

 我这样测试没问题

        Dim wb As New weui
        Dim ret As String = FileSys.ReadAllText("g:\xml.txt", encoding.default)
        Dim xo As XObject = XObject.Parse(HTMLDecode(ret))
       
        If Typeof xo("NewDataSet")("ds")  Is jarray Then          '如果是数组    即 有多行结果用如下代码.
            With wb.AddTable("","Table1")
                .head.AddRow("项目名称","检查结果","范围","标志","单位") '主表的表头
                For Each ds As JToken In  xo("NewDataSet")("ds")
                    ' .body.AddRow( CStr(ds("LISITEMNAME")), CStr(ds("RESULT")),CStr(ds("RANGE")),CStr(ds("FLAG")),CStr(ds("UNIT")) )
                    If Typeof ds("UNIT") Is jvalue Then
                        'msgbox(cstr(ds("LISITEMNAME")) & cstr(ds("RESULT")) & cstr(ds("RANGE")) & cstr(ds("FLAG")) & cstr(ds("UNIT")) )
                        .body.AddRow(ds("LISITEMNAME").tostring,ds("RESULT").tostring,ds("RANGE").tostring, ds("FLAG").tostring ,ds("UNIT").tostring)
                    Else
                        'msgbox( cstr(ds("LISITEMNAME")) & cstr(ds("RESULT")) & cstr(ds("RANGE")) & cstr(ds("FLAG")) & cstr(ds("UNIT")("@xml:space='preserve'")) )
                        .body.AddRow(ds("LISITEMNAME").tostring,ds("RESULT").tostring,ds("RANGE").tostring,ds("FLAG").tostring,ds("UNIT")("@xml:space").tostring)         
                    End If
                Next
            End With
        Else           '如果不是数组,即呆有一行结果.
            With wb.AddTable("","Table1")
                .head.AddRow("项目名称","检查结果","范围","标志","单位") '主表的表头
                ' For Each ds As JToken In  xo("NewDataSet")("ds")
                ' .body.AddRow( CStr(ds("LISITEMNAME")), CStr(ds("RESULT")),CStr(ds("RANGE")),CStr(ds("FLAG")),CStr(ds("UNIT")) )
                .body.AddRow( xo("NewDataSet")("ds")("LISITEMNAME"), xo("NewDataSet")("ds")("RESULT"),xo("NewDataSet")("ds")("RANGE"),xo("NewDataSet")("ds")("FLAG"),xo("NewDataSet")("ds")("UNIT"))      ' '注意如果主表只有一项并没有明细,则这里会报错
                ' Next
            End With
        End If
       
        ' wb.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页