VPF::Сохранение списка - Форум программистов

max85

Дата 16.7.2007, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Как мне осуществить сохранение списка LisyBox в текстовый файл?

Пробывал так не получилось :(

Код


Private Sub cmdSave_Click()
Dim F As Long
Dim FileName As String
'запись в файл
F = FreeFile
FileName = App.Path + "\MyText.txt"
Open FileName For Output As F
  Print #F, lstFiles.Text;
Close F
End Sub

Akina

Дата 16.7.2007, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(max85 @ 16.7.2007, 13:46

)

Print #F, lstFiles.Text;

читайте справку по свойствам ListBox, ищите, через которое и как именно получить текст строки списка.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

max85

Дата 16.7.2007, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Попробывал так, но он сохраняет толькоодну строчку, а не все через Enter

Код


Private Sub cmdSave_Click()
Dim i As Integer
For i = 0 To (lstFiles.ListCount - 1)
Dim F As Long
Dim FileName As String
'запись в файл
F = FreeFile
FileName = App.Path & "\MyFile.txt"
Open FileName For Output As F
  Print #F, (lstFiles.List(i));
Close F
Next i
End Sub

Добавлено @ 14:29
Извиняюсь за беспокойство, я разобрался smile

вот

Код


Private Sub cmdSave_Click()
Dim F As Long
Dim FileName As String
Dim i As Integer
F = FreeFile
FileName = App.Path & "\MyFile.txt"
Open FileName For Output As F
'запись в файл
For i = 0 To (lstFiles.ListCount - 1)
  Print #F, (lstFiles.List(i))
Next i
Close F
End Sub

Но как сохранить этот файл через CommonDialog в нужную дирректорию?

Это сообщение отредактировал(а) max85 - 16.7.2007, 14:46

Akina

Дата 16.7.2007, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(max85 @ 16.7.2007, 15:16

)

как сохранить этот файл через CommonDialog в нужную дирректорию?

CommonDialog не выполняет сохранение - это твоя забота - он всего лишь позволяет спросить имя, с которым следует сохранять.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »