Dim str As String = FileSys.ReadAllText("d:\test.txt", encoding.default) Dim xmlDoc As New System.XML.XmlDocument xmlDoc.Loadxml(str) Dim ndList = xmlDoc.GetElementsByTagName("string") Dim json = ndList(0).innerText Dim jo As JArray=JArray.parse(json) msgbox(jo(0)("acct_year") )
加好友 
发短信
Post By：2017/4/12 19:34:00 [显示全部帖子]
