Структурированные данные и сортировка

Добрый день(ночь).
[BASIC]
Private Sub Command6_Click()
Dim fn As String
CommonDialog1.Filter = "файл с расширением stu"
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowSave
fn = CommonDialog1.FileName
If fn = "" The Exite Sub
If Dir(fn) <> "" Then
Dim h as Long
h = MsgBox
if h = vbCancel Then Exite Sub
End If
Dim f As Long
f = FreeFile
Open fn For Random Acces Read Write Lock Read Write As F_
Len = Len(m(1))
Dim i As Byte
For i = 1 To n
Put f,i,m(i)
Next i
Close f
End Sub

Для чтения и считывания информации из этого файла :

Private Sub Command6_Click()
Dim fn As String
CommonDialog1.Filter = "файл с расширением stu"
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowSave
fn = CommonDialog1.FileName
If fn = "" The Exite Sub
If Dir(fn) <> "" Then
Dim h as Long
h = MsgBox
if h = vbCancel Then Exite Sub
End If
Dim f As Long
f = FreeFile
Open fn For Random Acces Read Write Lock Read Write As F_
Len = Len(m(1))
n = LOF (f)/ Len(m(1))
ReDim Preserv m(1 To n)
Dim i As Byte
For i = 1 To n
Get f,i,m(i)
Next i
Close f
Combo2.Clear
For i = 1 To n
Combo2.AddItem CStr(n)
Next i
Combo2.Text = CStr(n)
Command3_Cick
End Sub
[/BACIC]

Добавлено через 8 минут
Кто может помочь,необходимо добавить возможность сохранения в структурированном файле с выбранным пользователем именем списка введенной информации и чтение списка из ранее сохраненного файла.
Не обойтись без Вашей помощи.

0

Мне так проще:
А считать потом весь файл в переменную:
разбить на строки:
и потом построчно добавить в список

0