А как можно сохранить в файл данные собственного типа???

[iolaus]

Собственно сабж.
Я раньше сохранял отдельно все что входит в мой ти данных, но вот хочется знать а можно ли сразу??

[_Мика_]

А теперь задайте нормальный вопрос!

Вообще не чего не понятно, какие данные? "123" это тоде какие то данные!

[codemaster]

Собственно сабж.
Я раньше сохранял отдельно все что входит в мой ти данных, но вот хочется знать а можно ли сразу??

см. справку по Put & Get

[iolaus]

все разобрался спасибо.

[Inferno]

если данных не слишком много то можно воспользоватся

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


'rewrite ini files
Public Declare Function GetPrivateProfileString& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpszSection$, ByVal lpszKey$, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Public Declare Function WritePrivateProfileStringByKeyName% Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String)

Public Function ReadParam(ByVal FileName As String, ByVal lpszSection As String, ByVal lpszKey As String) As String
   Dim Buffer As String
   Buffer = String$(1024, Chr(0))
   Call GetPrivateProfileString(lpszSection, lpszKey, "", Buffer, Len(Buffer), FileName)
   Buffer = Replace(Buffer, Chr(0), "")
   ReadParam = Buffer
End Function

Public Function WriteParam(ByVal FileName As String, ByVal lpszSection As String, ByVal lpszKey As String, ByVal lpszValue As String)
  Call WritePrivateProfileStringByKeyName(lpszSection, lpszKey, lpszValue, FileName)
End Function