Question

VB.NET读取XML节点问题。

我有一个XML，叫Coming.xml
XML类容如下：
<?xml version='1.0' encoding='GB2312'?>
<Set>
<FontName>Arial</FontName>
<FontSize>9</FontSize>
</Set>
我需要FontName和FontSize两个节点给读取出来，保存在一个变量中，有什么好办法吗？
能把节点给读出来就可以了！

Answer 1

有两种办法。
方法一、创建一个 MSXML2.DOMDocument 对象，把这个文件Load进来，按照教科书上的步骤处理。这个对象名并非唯一，依据你电脑上的MSXML版本而定。你在引用中查一下。
方法二、将这个文件当做一个普通的文本文件来处理。将它完整的读入到一个字符串中，依据节点名用Split（）函数将它分段，提取所需的内容。
两种方法都不复杂，尝试一下吧。

Answer 2

正宗使用Dom对象读取节点数据的例子：

Dim Dom，a,b
Set Dom = CreateObject("Microsoft.XMLDOM")
Dom.preserveWhiteSpace = True
Dom.async = False
Dom.Load App.Path & "\Coming.xml" '打开xml文件
a=t Dom.getElementsByTagName("FontName").Item(0).Text'读取数据到变量
b= Dom.getElementsByTagName("FontSize").Item(0).Text ‘读取数据到变量
Set Dom = Nothing

Answer 3

这完全可以用vb的读取文本文件(.TXT)的方法,读取到变量。
然后，用VB的Instr()函数，来获得所需要的内容。

Private Sub Command1_Click()
Dim MyStr As String
Dim LStr As String
Dim dd() As String
Dim S As Integer
Dim E As Integer
Dim FontName As String
Dim FontSize As Single

MyStr = ""
'读取原文件信息
Open “C:\Coming.xml" For Input As #1 '以读的方式打开文件
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, LStr '读入一行
MyStr = MyStr & LStr & vbCrLf
Loop
Close #1 ' 关闭文件。

S = InStr(MyStr, "FontName") + 9
E = InStr(S, MyStr, "<")
FontName = Mid(MyStr, S, E - S)
Print "FontName = "; FontName

S = InStr(MyStr, "FontSize") + 9
E = InStr(S, MyStr, "<")
FontSize = Val(Mid(MyStr, S, E - S))
Print "FontSize = "; FontSize

End Sub

Answer 4

好好好ヾ ^_^♪