Вопрос по переменным

[Yuri_S]

Есть две переменные, которые по ходу выполнения программы записываются в файл, а потом, при потребности, с него считываются, тем самым возвращая себе последние значения.
Вопрос-Как это сделать, не подскажите?
(Записывать информацию в файл я умею, а вот чтоб она записалась в определенной последовательности или с каким-нить там тегом, чтоб в следующий раз возвратить прежние значение всем переменных, я не знаю как.-Интересен сам процес записи и считывания-)
Зараннее спасибо

[Rainbow]

???
Ты же сам записал в файл. Значит знаешь формат файла. Значит при считывании на него и опираешься.

Ну, например, первую переменную в первую строчку, вторую во вторую. Считываешь тогда построчно и записываешь первую строчку в первую переменную, вторую во вторую...

В чем проблема?

[gaidar]

А мне личнор, больше нравиться записывать Types .

Типа

Код: Выделить всё

Public Type MyType
var1 As Integer
var2 As Integer
End Type


Объявишь переменную As MyType и запишешь ее в файл, открытый на двоичную запись/чтение. Потом в нее и считаешь .

Это, конечно, наворот, но такой уж я ...

[darkich]

А мне личнор, больше нравиться записывать Types .

Типа

Код: Выделить всё

Public Type MyType
var1 As Integer
var2 As Integer
End Type


Объявишь переменную As MyType и запишешь ее в файл, открытый на двоичную запись/чтение. Потом в нее и считаешь .

Это, конечно, наворот, но такой уж я ...

Слушай.... а мона поподробней ))))

[Rainbow]

А мне лично, больше нравиться записывать Types .

Ну, это совсем небольшой наворот и довольно приятный.
Можно еще классец вокруг него... Эх! Нет предела совершенству!

darkich, а что тебе не понятно? Можешь поконкретнее вопрос сформулировать? gaidar, вроде все понятно написал. Смотри работу с файлами - Open/Close и Put/Get

[gaidar]

Ну, для тебя, Таня, это и небольшой наворот, а для него .

Запись:

Код: Выделить всё

Dim MyVar as MyType
MyVar.Var1 = 1
MyVar.Var1 = 2

dim ff as long
ff = freefile

Open "c:\file.bin" for Binary as #ff
Put #ff,, MyVar
close #ff

Чтение:

Код: Выделить всё

Dim MyVar as MyType

dim ff as long
ff = freefile

Open "c:\file.bin" for Binary as #ff
Get #ff,, MyVar
close #ff

MsgBox MyVar.Var1 & vbcrlf & MyVar.Var2



[Yuri_S]

Спасибо всем,я все понял!!!!!!!!

[gaidar]

И все на этом.