Разработка собственного формата файла - почитать бы

[yaama]

Суть вопроса такая: есть у меня несколько простых программ в один экзешник. Они довольно однообразны по своей структуре: есть около сотни переменных (as integer и as double) , пользователь вводит необходимые значения в текстбоксы, ставит галочки и т.д., производится расчет, формируется переменная Report As String.
Сохранение данных изначально предусмотрено не было.
Естественно, первое что приходит в голову - предусмотреть сохранение переменных в текстовом файле. Пользователь открывает файл, все галочки сами расставляются куда нужно, значения считываются и вводятся в свои текстбоксы, остается по надобности изменить что то и получить новый отчет. Технически все однообразно, но трудоемко. И разбираться в старых кодах, пусть даже своих очень не хочется.
Мне пришла в голову мысль, что, возможно, есть какие то готовые решения, позволяющие автоматом запоминать и сохранять (для последующего восстановления) мгновенное состояние конструкии, именуемой "программа".
Я любитель и системные знания в программировании у меня на начальной стадии становления. Очень хотел бы почитать какую то общую статью по грамотному проектированию программ имеющих возможность сохранения данных в собственных форматах файлов.

[keks-n]

PropertyBag, XML... Но придётся таки писать код загрузки и выгрузки. О сериализации данных следовало заботиться несколько раньше.

[yaama]

PropertyBag, XML... Но придётся таки писать код загрузки и выгрузки. О сериализации данных следовало заботиться несколько раньше.

Спасибо. А не можете подсказать ссылку на кирпич или готовую несложную программу ( .NET или vb5cce), имеющую механизм сохранения данных и работающую по описанному мной выше принципу, только методологически верно.

[kibernetics]

Мне кажется, что нужно читать по теме чтение/сохранение в INI файл... Где найти конкретно не скажу, но по гуглу хватает ссылок

[alibek]

А почему бы не подумать самому?
Например на основе этого кода (рекордсет в нем только для примера, можно использовать любой другой способ):

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

Private Sub DataSave(Recordset As Object)
Set Recordset = CreateObject("ADODB.Recordset")
Recordset.CursorLocation = 3
Recordset.CursorType = 1
Recordset.LockType = 3
Recordset.Fields.Append "name", 202, 160
Recordset.Fields.Append "type", 202, 160
Recordset.Fields.Append "value_string", 202, 200, 32
Recordset.Fields.Append "value_integer", 3, , 32
Recordset.Fields.Append "value_boolean", 11, , 32
Recordset.Open
Recordset.Fields("name").Properties("Optimize") = True
Recordset.AddNew _
  Array("name", "type", "value_string", "value_integer", "value_boolean"), _
  Array("var1", "string", "sample1", Null, Null)
Recordset.AddNew _
  Array("name", "type", "value_string", "value_integer", "value_boolean"), _
  Array("var2", "string", "sample2", Null, Null)
Recordset.AddNew _
  Array("name", "type", "value_string", "value_integer", "value_boolean"), _
  Array("var3", "bool", Null, Null, True)
Recordset.AddNew _
  Array("name", "type", "value_string", "value_integer", "value_boolean"), _
  Array("var4", "int", Null, 123, Null)
Recordset.Save "C:\temp.xml", 1
End Sub

Private Sub DataLoad(Recordset As Object)
Set Recordset = CreateObject("ADODB.Recordset")
Recordset.Open "C:\temp.xml"
Recordset.Fields("name").Properties("Optimize") = True
Debug.Print Recordset.RecordCount
Do Until Recordset.EOF
  Debug.Print "  - " & Recordset!Name & " (" & Recordset!Type & ") = " & Recordset!value_string & Recordset!value_integer & Recordset!value_boolean
  Recordset.MoveNext
Loop
End Sub


[yaama]

Спасибо! Вопрос исчерпан, направление для поиска выбрано, код в стадии разбора!