Сложный вопрос!!!

[Pepper]

Короче я делаю прогу и на одной из форм у меня 7 объектов List и все 7 штук мне надо сохранять в одном файле с расширением например stv, я пробовал по разному, но нифига невыходит, и ещё кстати их нужно будет както открывать, что у меня тоже неполучается.Надеюсь проблема ясна,помогите кто может!!! ЗАРАНЕЕ БЛАГОДАРЕН!!!

[ANDLL]

Сложные вопросы не задают на форуме 'VB для новичков'.
А этот к тому же, не очень сложный

Даю направление:
1)Для записи. Сначала пишешь содержимое первого ListBox'а. Затем пишешб какую-нибудь супер-фразу. Далее пишешь второй lb и снова эту фразу.

2)Для чтения. Читает файл построчно. Все что идет до первой супер-фразы относится к первому lb, Все что после второй - ко второму.

Исходника не прешлю - даже не проси.

[Mikle]

Или так: первая запись в файле - количество листбоксов, пусть N.
Далее N строчек с количеством строк в соответствующем листбоксе. Дальше построчно содержание всех листбоксов.
А читать лучше не через Input, а Line Input.

[Draco]

Народ, зачем так сложно?!
В файле пишишь каждое значение на новой строчке(Значение & vbNewLine), а читаешь с помощью line input до тех пор, пока EOF не станет равным true.

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

Dim intFH  As String
intFH = FreeFile
Open mvarFileName For Input As intFH 'mvarFileName-имя файла
Do Until EOF(intFH)
Line Input #intFH, Temp 'в Temp записывается значение
Loop
Close #intFH


P.S.:
Надеюсь поможет.

[Info_m.be_free]

по простому...
Читаешь файл с двумя типами разделителями массивов
например, #list# для листа и !tem# для елементов
Потом сплитом разбиаешь содержимое для листов отдельно for i to listov_na_forme.count и массив каждого itogo листа -> Split на елементы
вот...
а, ну пишешь соответственно такжы...