如下的XML,頓時無法下手,有沒有大神給看看
<Parameters xmlns="http://hl7.org/fhir">
<parameter>
<name value="https://bbs.csdn.net/topics/code"/>
<valueString value="https://bbs.csdn.net/topics/0"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/message"/>
<valueString value=""/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/data"/>
<resource>
<Parameters>
<parameter>
<name value="https://bbs.csdn.net/topics/virtualCardNum"/>
<valueString value="https://bbs.csdn.net/topics/1000001"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/eHealthID"/>
<valueString value="https://bbs.csdn.net/topics/111"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/openId"/>
<valueString value="https://bbs.csdn.net/topics/111"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/QRCode"/>
<valueString value="https://bbs.csdn.net/topics/111"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/realname"/>
<valueString value="https://bbs.csdn.net/topics/111"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/type"/>
<valueString value="https://bbs.csdn.net/topics/01"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/idNumber"/>
<valueString value="https://bbs.csdn.net/topics/111"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/cellphone"/>
<valueString value="https://bbs.csdn.net/topics/111"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/gender"/>
<valueString value="https://bbs.csdn.net/topics/1"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/addr"/>
<valueString value="https://bbs.csdn.net/topics/111"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/SMZ"/>
<valueString value="https://bbs.csdn.net/topics/1"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/birthday"/>
<valueString value="https://bbs.csdn.net/topics/111"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/orgCode"/>
<valueString value="https://bbs.csdn.net/topics/610424"/>
</parameter>
<parameter>
<name value="https://bbs.csdn.net/topics/insertTime"/>
<valueString value="https://bbs.csdn.net/topics/2018-1-20 15:02:31"/>
</parameter>
</Parameters>
</resource>
</parameter>
</Parameters>
uj5u.com熱心網友回復：
嗯，大概看了一下…………一堆不明所以的文字而已……
uj5u.com熱心網友回復：
用切割吧，XML結構不規范，不太好讀，ResultData的屬性我只寫了一個，剩下的自己補一下Private Sub Command1_Click()
Dim r As New Result
r.Data = New ResultData
r.Code = GetValue("code")
r.Message = GetValue("message")
r.Data.virtualCardNum = GetValue("virtualCardNum")
MsgBox "code: " + r.Code + vbCrLf + "message: " + _
r.Message + vbCrLf + "Data.virtualCardNum: " + r.Data.virtualCardNum
End Sub
Function GetValue(paraname As String)
Dim res0() As String
res0 = Split(Text1.Text, "name value=""" & paraname & """")
If UBound(res0) = 1 Then
res1 = Split(res0(1), "<valueString value=""")
If UBound(res1) = 0 Then
GetValue = ""
Else
If InStr(res1(1), """") > 0 Then
GetValue = Split(res1(1), """")(0)
Else
GetValue = "NUL"
End If
End If
Else
GetValue = "NUL"
End If
End Function
Result類
Private varcode As String, varmessage As String
Private vardata As ResultData
Public Property Let Code(ByVal vcode As String)
varcode = vcode
End Property
Public Property Get Code() As String
Code = varcode
End Property
Public Property Let Message(ByVal vmessage As String)
varmessage = vmessare
End Property
Public Property Get Message() As String
Message = varmessage
End Property
Public Property Let Data(ByVal vdata As ResultData)
Set vardata = vdata
End Property
Public Property Get Data() As ResultData
Set Data = vardata
End Property
ResultData類
Private varvirtualCardNum As String
Public Property Let virtualCardNum(vvirtualCardNum As String)
varvirtualCardNum = vvirtualCardNum
End Property
Public Property Get virtualCardNum() As String
virtualCardNum = varvirtualCardNum
End Property
uj5u.com熱心網友回復：
msxml6.0庫了解下https://blog.csdn.net/rztyfx/article/details/7695757
uj5u.com熱心網友回復：
樓上兩個，猜出樓主“需要什么”了？
uj5u.com熱心網友回復：
需要什么是lz的事，我提供了lz需要范圍以內的東西，lz自己去獲取他要的即可
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
難怪樓主發個莫明其妙的帖子，你們還能回復得“振振有辭”似的…………
uj5u.com熱心網友回復：
需求很明確啊，一個序列化的物件，有code(string), message(string), data(自定義)三個成員，data又由十幾個成員構成。
uj5u.com熱心網友回復：
LZ要提取什么資料呢?uj5u.com熱心網友回復：
msxml6.0直接加載字串，如果成功，遍歷節點+判斷而已。
uj5u.com熱心網友回復：
需求不明確，都不知道是要做什么uj5u.com熱心網友回復：
問題是：需求不明確，居然還堆了那么多層樓。uj5u.com熱心網友回復：
需求非常明確，反序列化一個給定物件，決議code(string)欄位, message(string)欄位, data(自定義)欄位
uj5u.com熱心網友回復：
“頓時無法下手”六個字怎么得到這個非常明確的需求的？
uj5u.com熱心網友回復：
標題里說了啊，XML決議
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40446.html
標籤：VB基礎類