vb读取文件中特定字段之后一段内容

来源：百度知道 编辑：UC知道 时间：2024/06/01 03:26:35
我想从xml文件中读取某些内容例如：
- <Address City="Beijing" Country="中国" CountryCode="" PostBox="" PostalCode="102600" Region="华北地区" Street="兴华北路">
我想读取引号中的内容，该怎么编程啊。

使用ITEM(XMLDOCUMENT和LISTITEM对象)的属性来访问,如:
Item.Attributes(N).nodename 访问属性名
Item.Attributes(N).nodevalue 访问属性值
其中N为属性索引
==========================================
或者采用VB函数的形式,如下:

'strString 要查询的数据串
'strName 要查询的属性的名字
'返回值：属性值

Public Function getData(ByVal strString As String, ByVal strName As String) As String
Dim lLoopV As Long
Dim strTemp As String
Dim vData As Variant

getData = ""
strTemp = Trim$(Replace(strString, "<", ""))
strTemp = Replace(strTemp, ">", "")
If strTemp = "" Or Trim(strName) = "" Then Exit Function

vData = Split(strTemp, " ")
For lLoopV = 0 To UBound(vData)
If InStr(1, vData(lLoopV), Trim(strName), vbTextCompare) <> 0 Then
strTemp = Replace(vData(lLoopV), Trim(strName) & "=", "", , , vbTextCompare)
strTemp = Repl