Сохранение и загрузка настроек из файла - VB

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

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

Как правильнее всего сохранить и загрузить настройки из файла. К примеру у меня программа где пользователь выставляет свои настройки и надо чтоб они сохранялись как нибудь в таком виде a=1; b=2; . Как так сохранить я знаю, но вот как потом загрузить значения правильно? Чтоб каждая переменная получила своё значение.

Решение задачи: «Сохранение и загрузка настроек из файла»

textual
Листинг программы
  1. Option Explicit
  2. Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  3. Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  4. Dim buff As String
  5. Dim ver As String
  6. Dim ver1 As String
  7.  
  8. Private Sub Command1_Click()
  9.     ' запись
  10.    ver = "данные"
  11.     WritePrivateProfileString "раздел", "имя переменной", ver, App.Path & "/version.ini" ' Записываем в файл
  12. End Sub
  13.  
  14. Private Sub Command2_Click()
  15.     ' чтение
  16.    buff = Space(255) ' Выделяем место в памяти
  17.    ver1 = GetPrivateProfileString("раздел", "имя переменной", "пусто", buff, 255, App.Path & "/version.ini") ' Считываем
  18.    buff = Left(buff, ver1) ' убираем пробелы
  19. End Sub

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


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

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

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

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

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

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