<?xml version="1.0" encoding="utf-8" ?>
- <configuration>
<ServerName>xxx.xxx.xxx.xxx</ServerName>
<UserName>findvb</UserName>
<Password>1234</Password>
</configuration>
ขั้นตอนคือ เราจะต้องมี pathfile ของ xmlของเราก่อนโดยใน fuctionผมกำหนดไว้ที่
Private filename As String = Application.StartupPath & "\" & "dataconfig.xml"
View Code
-------------------------------------------------
Imports System.Xml
Imports System.Text
Private filename As String = Application.StartupPath & "\" & "config.xml"
Public str_Servername As String = "ServerName"
Public str_UserName As String = "UserName"
Public str_Password As String = "Password"
Public Sub SetWriteXML(ByVal servername As String, ByVal username As String, ByVal pwd As String)
If Not IO.File.Exists(filename) Then
Dim xmlText = "<?xml version='1.0' encoding='utf-8'?>" & _
"<configuration>" & _
"</configuration>"
Dim xmlDoc As New XmlDocument()
xmlDoc.LoadXml(xmlText)
xmlDoc.Save(filename)
End If
Try
'Create file, overwrite if exists
'enc is encoding object required by constructor
'It is null, so default encoding is used
Dim objXMLTW As New XmlTextWriter(filename, Encoding.UTF8)
With objXMLTW
.IndentChar = vbTab
.Indentation = 1
.Formatting = Formatting.Indented
.WriteStartDocument()
'Top level (Parent element)
.WriteStartElement("configuration")
'Child elements, from request form
.WriteElementString(str_Servername, servername)
.WriteElementString(str_UserName, username)
.WriteElementString(str_Password, pwd)
.WriteEndElement() 'End top level element
.WriteEndDocument() 'End Document
.Flush() 'Write to file
.Close()
End With
Catch Ex As Exception
End Try
End Sub
Public Function GetReadXML(ByVal keyName As String) As String
Dim getvalue As String = ""
Dim XmlDoc As XmlDocument = New XmlDocument()
Try
With XmlDoc
XmlDoc.Load(filename)
getvalue = .SelectSingleNode("configuration/" & keyName).InnerText()
XmlDoc = Nothing
End With
Catch ex As Exception
End Try
Return getvalue
End Function
------------------------------------------------
ไม่มีความคิดเห็น:
แสดงความคิดเห็น