Как загрузить все My.Settings в txt и выгрузить - Visual Basic .NET
Формулировка задачи:
Добрый день, Господа!
Увидел у Памирыча на сайте такую фичу.
Возник вопрос. Как можно стянуть все настройки в тхт, и как их потом от туда достать. Например что бы после переустановки приложения, можно было указав путь, вставить старые настройки.
Допустим пишем в файл.
Имеем файл типа.
Put1=
loginBox=True
userName=test
МЕСТО={X=147,Y=206}
name4=
name3=
topmost1=True
Put4=
userPass=1
Size={Width=445, Height=333}
name2=
name1=
МЕСТО2={X=1267,Y=84}
Put2=
Put3=
Как выгрузить эти данные в прогу обратно?
Что интересно, пустые значения не имеют даже пробела. Как их считать....
П.С. ну еще я понимаю что не обязательно писать Даже name. Тогда еще легче, просто перебирая индекс, подписывать значения. Но если настроек много, тогда осложняется правка txt в ручную потому что не видно какое значение к какой настройке. Мб записывать с разделителем, но с двумерными массивами я не дружу(
Листинг программы
- For Each x As System.Configuration.SettingsProperty In My.Settings.Properties
- MsgBox(x.Name & "=" & My.Settings(x.Name).ToString())
- Next
Листинг программы
- Dim massivSett As New List(Of String)
- For Each x As System.Configuration.SettingsProperty In My.Settings.Properties
- massivSett.Add(x.Name & "=" & My.Settings(x.Name).ToString())
- Next
- IO.File.WriteAllLines("Z:\_Прогресс\Не заходить\журнал\Settings.txt", massivSett, System.Text.Encoding.Default)
Решение задачи: «Как загрузить все My.Settings в txt и выгрузить»
textual
Листинг программы
- Public Class Form1
- Dim configfile As String = Configuration.ConfigurationManager.OpenExeConfiguration(Configuration.ConfigurationUserLevel.PerUserRoamingAndLocal).FilePath
- Dim MyFile As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\BackUpSettings.config"
- 'Восстановить настройки
- Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
- IO.File.Copy(MyFile, configfile, True)
- My.Settings.Reload()
- MsgBox("Загружен новый файл настроек.")
- End Sub
- 'Сделать бэкап настроек
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- IO.File.Copy(configfile, Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\BackUpSettings.config", True)
- MsgBox("На рабочем столе создан бэкап файла настроек")
- End Sub
- Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
- Process.Start("notepad", configfile)
- End Sub
- End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д