Как загрузить все My.Settings в txt и выгрузить - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Добрый день, Господа! Увидел у Памирыча на сайте такую фичу.
Листинг программы
  1. For Each x As System.Configuration.SettingsProperty In My.Settings.Properties
  2. MsgBox(x.Name & "=" & My.Settings(x.Name).ToString())
  3. Next
Возник вопрос. Как можно стянуть все настройки в тхт, и как их потом от туда достать. Например что бы после переустановки приложения, можно было указав путь, вставить старые настройки. Допустим пишем в файл.
Листинг программы
  1. Dim massivSett As New List(Of String)
  2. For Each x As System.Configuration.SettingsProperty In My.Settings.Properties
  3. massivSett.Add(x.Name & "=" & My.Settings(x.Name).ToString())
  4. Next
  5. IO.File.WriteAllLines("Z:\_Прогресс\Не заходить\журнал\Settings.txt", massivSett, System.Text.Encoding.Default)
Имеем файл типа. 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 в ручную потому что не видно какое значение к какой настройке. Мб записывать с разделителем, но с двумерными массивами я не дружу(

Решение задачи: «Как загрузить все My.Settings в txt и выгрузить»

textual
Листинг программы
  1. Public Class Form1
  2.     Dim configfile As String = Configuration.ConfigurationManager.OpenExeConfiguration(Configuration.ConfigurationUserLevel.PerUserRoamingAndLocal).FilePath
  3.     Dim MyFile As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\BackUpSettings.config"
  4.     'Восстановить настройки
  5.     Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
  6.         IO.File.Copy(MyFile, configfile, True)
  7.         My.Settings.Reload()
  8.         MsgBox("Загружен новый файл настроек.")
  9.     End Sub
  10.  
  11.     'Сделать бэкап настроек
  12.     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  13.         IO.File.Copy(configfile, Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\BackUpSettings.config", True)
  14.         MsgBox("На рабочем столе создан бэкап файла настроек")
  15.     End Sub
  16.  
  17.     Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
  18.         Process.Start("notepad", configfile)
  19.     End Sub
  20. End Class

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы