Amed » 28.09.2003 (Вс) 17:03
Private Sub SaveParameters()
'Предполагаем, что, например, Param1, Param2 - в формате Integer, Param3 - в форматеString
Open "C:\myinifile.ini" for output as #1
'И не забывай комментарить, за что отвечают переменные Param1, Param2, Param3 и др.
print #1, Param1
print #1, Param2
print #1, Param3
'...
Close #1
End Sub
Private Sub LoadParameters()
'tmp - только в формате String!
Dim tmp as String
Open "C:\myinifile.ini" for input as #2
Line Input #1, tmp
Param1=CInt(tmp)
Line Input #1, tmp
Param2=CInt(tmp)
Line Input #1, tmp
Param3=tmp
...
Close #2
End Sub
'Понятен общий смысл?