<UserSettings name="User1">
<Setting1>value1</Setting1>
<Setting2>value2</Setting1>
</UserSettings>
<UserSettings name="User2">
<Setting1>value1</Setting1>
<Setting2>value2</Setting1>
</UserSettings>
'Ввод информации для записи в файл
Private Sub Command14_Click()
Dim Строка_один, Строка_два, Строка_три
Строка_один = Строка1.Text 'Установка норм в литрах
Строка_два = Строка2.Text 'Установка сезонных норм
Строка_три = Строка3.Text 'Установка расстояния Из А в Б км.
Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.CreateTextFile(App.path & "\Base.SQ", True)
'Присваиваем строкам (переменные) Строка_один, Строка_два.....
A.WriteLine (Строка_один) 'Установка норм в литрах
A.WriteLine (Строка_два) 'Установка сезонных норм
A.WriteLine (Строка_три) 'Установка расстояния Из А в Б км.
A.Close
' Чтение и вывод данных
Private Sub Command3_Click()
F = FreeFile
Open App.path & "\Base.SQ" For Input As #F
On Error Resume Next
Do Until EOF(F)
' Чтение из строки файла
Line Input #F, MyText1
Line Input #F, MyText2
Line Input #F, MyText3
'Вывод на форму
Строка1.Text = MyText1
Строка2.Text = MyText2
Строка3.Text = MyText3
Loop
Close #F
Saturn.65 писал(а):Сильно чудовищно?
Однопользовательский софт Многопользовательский софт
Реестр HKLM\Software\Разработчик\НазваниеСофта\ HKCU\Software\Разработчик\НазваниеСофта\
Файлы DaS\All Users\Application Data\Разработчик\НазваниеСофта\ DaS\[ИмяПользователя]\Application Data\Разработчик\НазваниеСофта\
Денис писал(а):DaS\All Users\Разработчик\НазваниеСофта\
Ramzes писал(а):Можно в самой проге это реализовать, путем не сложных манипуляций, например xml разбить.
- Код: Выделить всё
<UserSettings name="User1">
<Setting1>value1</Setting1>
<Setting2>value2</Setting1>
</UserSettings>
<UserSettings name="User2">
<Setting1>value1</Setting1>
<Setting2>value2</Setting1>
</UserSettings>
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 68