VB.NET 读写HTML 文件,VB.Net 保存和读取设置文件（XML格式）

VB.Net 保存设置到XML文件代码如下：

'''

''' 保存设置

'''

'''

Public Sub SaveSetting()

'Save Settings

Dim FPath As String = Application.StartupPath & IIf(Strings.Right(Application.StartupPath, 1) = "\", "Setting.xml", "\Setting.xml")

Try

If File.Exists(FPath) = True Then File.Delete(FPath)

Dim XWriter As New Xml.XmlTextWriter(FPath, System.Text.Encoding.GetEncoding("UTF-8"))

XWriter.Formatting = Xml.Formatting.Indented

XWriter.WriteRaw("<?xml version=""1.0"" encoding=""utf-8"" ?>")

XWriter.WriteStartElement("Settings")

XWriter.WriteElementString("TimeSP", TimeSP)

XWriter.WriteElementString("StartTime", StartTime.ToString("yyyy/MM/dd HH:mm:ss"))

XWriter.WriteElementString("ShowTip", ShowTip)

XWriter.WriteElementString("CreateExcel", CreateExcel)

XWriter.WriteElementString("SourceServerName", SDB.ServerName)

XWriter.WriteElementString("SourceDBName", SDB.DBName)

XWriter.WriteElementString("SourceLoginUser", SDB.LoginUser)

XWriter.WriteElementString("SourcePWD", SDB.LoginPWD)

XWriter.WriteElementString("TargetServerName", TDB.ServerName)

XWriter.WriteElementString("TargetDBName", TDB.DBName)

XWriter.WriteElementString("TargetLoginUser", TDB.LoginUser)

XWriter.WriteElementString("TargetPWD", TDB.LoginPWD)

XWriter.WriteElementString("ExcelPath", ExcelPath)

XWriter.WriteEndElement()

XWriter.Close()

Catch ex As Exception

MsgBox("保存失败!" & vbCrLf & "原因: " & ex.Message, MsgBoxStyle.Information, "提示")

End Try

'Save Table Name List

FPath = Application.StartupPath & IIf(Strings.Right(Application.StartupPath, 1) = "\", "DataTableList.xml", "\DataTableList.xml")

Try

If File.Exists(FPath) = True Then File.Delete(FPath)

Dim XWriter As New Xml.XmlTextWriter(FPath, System.Text.Encoding.GetEncoding("UTF-8"))

XWriter.Formatting = Xml.Formatting.Indented

XWriter.WriteRaw("<?xml version=""1.0"" encoding=""utf-8"" ?>")

XWriter.WriteStartElement("DataTableNameList")

For i As Integer = 1 To TBList.Count

XWriter.WriteElementString("DataTableName", TBList(i).ToString)

Next

XWriter.WriteEndElement()

XWriter.Close()

Catch ex As Exception

MsgBox("保存失败!" & vbCrLf & "原因: " & ex.Message, MsgBoxStyle.Information, "提示")

End Try

End Sub

从XML文件中读取设置的代码如下：

'''

''' 加载设置

'''

'''

Public Sub LoadSetting()

'Load Settings

Dim FPath As String = Application.StartupPath & IIf(Strings.Right(Application.StartupPath, 1) = "\", "Setting.xml", "\Setting.xml")

Dim txtReader As StreamReader = Nothing

If File.Exists(FPath) = True Then

Try

Dim XDoc As New Xml.XmlDocument

XDoc.Load(FPath)

Dim XReader As New Xml.XmlNodeReader(XDoc)

Dim ParaName As String = ""

While XReader.Read

Select Case XReader.NodeType

Case Xml.XmlNodeType.Element

ParaName = XReader.Name

Case Xml.XmlNodeType.Text

Select Case ParaName

Case "TimeSP" : TimeSP = XReader.Value

Case "StartTime" : StartTime = CDate(XReader.Value)

Case "ShowTip" : ShowTip = XReader.Value

Case "CreateExcel" : CreateExcel = XReader.Value

Case "SourceServerName" : SDB.ServerName = XReader.Value

Case "SourceDBName" : SDB.DBName = XReader.Value

Case "SourceLoginUser" : SDB.LoginUser = XReader.Value

Case "SourcePWD" : SDB.LoginPWD = XReader.Value

Case "TargetServerName" : TDB.ServerName = XReader.Value

Case "TargetDBName" : TDB.DBName = XReader.Value

Case "TargetLoginUser" : TDB.LoginUser = XReader.Value

Case "TargetPWD" : TDB.LoginPWD = XReader.Value

Case "ExcelPath" : ExcelPath = XReader.Value

End Select

End Select

End While

Catch ex As Exception

TimeSP = 30

StartTime = Now

ShowTip = True

CreateExcel = True

SDB.ServerName = ""

SDB.DBName = ""

SDB.LoginUser = ""

SDB.LoginPWD = ""

TDB.ServerName = ""

TDB.DBName = ""

TDB.LoginUser = ""

TDB.LoginPWD = ""

If txtReader IsNot Nothing Then txtReader.Close()

File.Delete(FPath)

End Try

End If

'Load Table Name List

FPath = Application.StartupPath & IIf(Strings.Right(Application.StartupPath, 1) = "\", "DataTableList.xml", "\DataTableList.xml")

txtReader = Nothing

TBList.Clear()

If File.Exists(FPath) = True Then

Try

Dim XDoc As New Xml.XmlDocument

XDoc.Load(FPath)

Dim XReader As New Xml.XmlNodeReader(XDoc)

Dim ParaName As String = ""

While XReader.Read

Select Case XReader.NodeType

Case Xml.XmlNodeType.Element

ParaName = XReader.Name

Case Xml.XmlNodeType.Text

Select Case ParaName

Case "DataTableName" : TBList.Add(XReader.Value.ToString.Trim)

End Select

End Select

End While

Catch ex As Exception

TBList.Clear()

If txtReader IsNot Nothing Then txtReader.Close()

File.Delete(FPath)

End Try

End If

End Sub

文章出处：https://blog.youkuaiyun.com/lin9feng/article/details/84763571