在PDA程序中使用XML文件保存程序配置设置
2007-06-03 15:48 ruinet 阅读(843) 评论(0) 收藏 举报
我用的vs2005开发的PDA,在Windows CE 5.0 系统中对XML文件一样支持。只需条件System.xml的引用。
下面是我的xml文件的结构,是用来保存访问的Web Service的服务器路径
<?xml version="1.0" encoding="utf-8" ?>
<Setting>
<Item Key="PDAServer">
<value>http://10.116.196.224/PDAServer/Service.asmx</value>
</Item>
</Setting>
下面是从XML文件读取key为"PDAServer"的value的值
Public Function GetUrl() As String
Dim xmlNode As XmlNode

Try
XmlDoc = New XmlDocument()
XmlDoc.Load(Path)
xmlNode = XmlDoc.SelectSingleNode("//Item[@Key='PDAServer']")
Return xmlNode.InnerText.ToString

Catch ex As Exception
' Throw ex
Return String.Empty
End Try

End Function
下面是保存修改后的值
Public Function SaveUrl(ByVal Url As String) As Boolean
Dim xmlNode As XmlNode

Try
XmlDoc = New XmlDocument()
XmlDoc.Load(Path)
xmlNode = XmlDoc.SelectSingleNode("//Item[@Key='PDAServer']")
xmlNode.InnerText = Url
XmlDoc.Save(Path)
Return True

Catch ex As Exception
Throw ex
Finally

End Try
End Function
效果如下图:
下面是我的xml文件的结构,是用来保存访问的Web Service的服务器路径
<?xml version="1.0" encoding="utf-8" ?>
<Setting>
<Item Key="PDAServer">
<value>http://10.116.196.224/PDAServer/Service.asmx</value>
</Item>
</Setting>
下面是从XML文件读取key为"PDAServer"的value的值
Public Function GetUrl() As String
Dim xmlNode As XmlNode
Try
XmlDoc = New XmlDocument()
XmlDoc.Load(Path)
xmlNode = XmlDoc.SelectSingleNode("//Item[@Key='PDAServer']")
Return xmlNode.InnerText.ToString
Catch ex As Exception
' Throw ex
Return String.Empty
End Try
End Function
Public Function SaveUrl(ByVal Url As String) As Boolean
Dim xmlNode As XmlNode
Try
XmlDoc = New XmlDocument()
XmlDoc.Load(Path)
xmlNode = XmlDoc.SelectSingleNode("//Item[@Key='PDAServer']")
xmlNode.InnerText = Url
XmlDoc.Save(Path)
Return True
Catch ex As Exception
Throw ex
Finally
End Try
End Function效果如下图:

浙公网安备 33010602011771号