最有效的保存自定义设置的方法

Question

我的VS2013 VB应用程序当前将设置保存到注册表中，并且它已经发展到了困扰着我的地步。所以我想将设置（字符串）保存到文件。奖励是他们可以在网络上并被多个用户使用。可能有数百甚至数千行。什么是首选格式？旧的INI，CSV，XML？就我所知，这种情况下Settings文件似乎不是一个好选择。

Answer 1

我强烈建议创建一个类的对象并将序列化用于.NET应用程序的XML。它很容易实现，完全支持，您可以将设置从一台计算机导入和导出到另一台计算机。您甚至可以设置您的应用程序以准备来自网络的设置。此外，它将使未来的编程/升级更容易。

我在这里列出一个工作示例（测试）。该代码自2012年起开始使用，并且适用于企业级应用程序。

注意：我只为演示添加了一个“设置项目”，以便您自行添加。

第一：设置或选项类：

Imports System.Xml.Serialization 
Imports System.IO 

<Serializable()> _ 
Public Class Options 

    Public KEYS_USE_LISTS As Boolean 

    Public Sub New() 
     KEYS_USE_LISTS = True 
    End Sub 

#Region "Methods" 

    Public Sub Save(ByVal Path As String) 
     Try 
      Dim _XMLSerilizer As New XmlSerializer(GetType(Options)) 
      Dim _StreamWriter As New StreamWriter(Path) 
      _XMLSerilizer.Serialize(_StreamWriter, Me) 
      _StreamWriter.Close() 
     Catch ex As Exception 
      MsgBox("Error saving database setting." & vbCrLf & "Internal Error: " & ex.Message) 
     End Try 
    End Sub 

    Public Function DoLoad(ByVal Path As String) As Options 
     Dim _Opt As New Options 
     Try 
      If IO.File.Exists(Path) Then 
       Dim _XMLSerilizer As New XmlSerializer(GetType(Options)) 
       Dim _FileStream As New FileStream(Path, FileMode.Open) 

       _Opt = DirectCast(_XMLSerilizer.Deserialize(_FileStream), Options) 
       _FileStream.Close() 
      End If 
     Catch ex As Exception 
      MsgBox("Error loading database setting." & vbCrLf & "Internal Error: " & ex.Message) 
     End Try 
     Return _Opt 
    End Function 

#End Region 


End Class 

二：使用它通过接口（的WinForms例如）

Public Class frmOptions 



    Public _options As New Options 

    Private Sub frmOptions_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

     If IO.File.Exists(Application.StartupPath & "/_Options.opt") Then 
      _options = _options.DoLoad(Application.StartupPath & "/_Options.opt") 
     End If 

     chkUseList.Checked = _options.KEYS_USE_LISTS 

    End Sub 

    Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click 

     If IO.File.Exists(Application.StartupPath & "/_Options.opt") Then 
      _options = _options.DoLoad(Application.StartupPath & "/_Options.opt") 
     End If 

     _options.KEYS_USE_LISTS = chkUseList.Checked 
     _options.Save(Application.StartupPath & "/_Options.opt") 

     Me.DialogResult = Windows.Forms.DialogResult.OK 
     Me.Close() 

    End Sub 



End Class