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

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

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

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

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

textual
Листинг программы
Option Explicit
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
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
Dim buff As String
Dim ver As String
Dim ver1 As String
 
Private Sub Command1_Click()
    ' запись
    ver = "данные"
    WritePrivateProfileString "раздел", "имя переменной", ver, App.Path & "/version.ini" ' Записываем в файл
End Sub
 
Private Sub Command2_Click()
    ' чтение
    buff = Space(255) ' Выделяем место в памяти
    ver1 = GetPrivateProfileString("раздел", "имя переменной", "пусто", buff, 255, App.Path & "/version.ini") ' Считываем
    buff = Left(buff, ver1) ' убираем пробелы
End Sub

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


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

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

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