我的写作.设置为文本文件

Question

好的，所以我在写文本文件时遇到了一些麻烦，从My.Settings中检索值。代码如下。问题是，当我检查文本文件时，它只有第一行(这只是代码中的一个简单字符串)。

Dim settingsfile As String = Directory.GetCurrentDirectory & "RapidSend_Settings.txt"
Dim objWriter As New System.IO.StreamWriter(settingsfile, False)
objWriter.WriteLine("This is the introductory line")
For Each strEmail As String In My.Settings.User_Emails 'Specialized.StringCollection
    objWriter.WriteLine("Email " & strEmail)
Next
For Each strHostName As String In My.Settings.User_HostName ' Specialized.StringCollection
    objWriter.WriteLine("Host " & strHostName)
Next
objWriter.WriteLine("End Of File")
objWriter.Close()

代码之后的文本文件是这样的:

 This is the introductory line
 End Of File

我的问题是有人知道问题是什么，或者有另一种方法来做到这一点。顺便说一句，所有的My。设置是专门的。

Answer 1

既然您不再按照预期的方式使用设置，那么您最好创建自己的容器并自己管理它:

• 添加一个模块到你的应用程序如果没有
• 添加Friend settingsList As New List(Of String)

这将创建一个全局字符串集合，您可以向其中添加数据。它可以是Public或Friend。还有其他方法可以做到这一点，但这是最简单的。也为主机创建一个。

添加它们很简单:

settingsList.Add(some_STRING_variable)

然后在App关机时保存:

' get file name to hold the data
Dim file As String
file = System.IO.Path.Combine(Environment.GetFolderPath( _
       Environment.SpecialFolder.ApplicationData),  "myproduct", "settings.txt")
' result will be UsersAppdata.... where data is supposed to go
' open a stream
Using fs As New IO.StreamWriter(file, IO.FileMode.CreateNew)
    Dim n As Integer = 1
    ' loop thru List contents
    For Each s As String In settingsList
        ' ToDo: edit format to fit your needs
        fs.WriteLine(String.Format("{0} = {1}", n.ToString, s))
        n += 1
    Next
End Using         ' close and properly dispose of stream