powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / По поводу сохранения...
3 сообщений из 3, страница 1 из 1
По поводу сохранения...
    #32181765
KiSH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Очень прошу помогите!!!! У меня одна фигня, никак не выходит её сделать.
А звучит моя печальная история так:
Ну пытаюсь я сделать так, чтобы у меня нажатием одной и той же кнопки данные с двух ListBox'ов
сохранялись в два разных txt файла... Ну с первым ListBox'ом всё ясно,
пишу:

Sub saveitems(lstin As ListBox)
Dim i As Integer
Open "C:\Program Files\Chat\MTel.txt" For Output As #1
For i = 0 To lstin.ListCount - 1
Print #1, lstin.List(i)
Next i
Close #1
End Sub
Sub LoadItems(lstin As ListBox)
Dim i As Integer
Dim str As String
If Len(Dir("C:\Program Files\Chat\MTel.txt")) Then
Open "C:\Program Files\Chat\MTel.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, str
List1.AddItem str
Loop
Close #1
End If
End Sub

Далее пишу в код кнопки: Call saveitems(List1)

Потом в код формы: Call LoadItems(List1)

И всё казалось бы Rulezzz, но вот фигня-то, мне надо чтобы сохранялись данные не только
с одного ListBox'а, а с двух, причём мне надо чтобы данные с первого сохранялись в
MTel.txt, а данные со второго в WTel.txt...
Я чего только не химичил, не пробовал, но всё напрасно, я сдался, и поэтому я решил
обратиться к вам, к профессионалам.
Очень буду благодарен за помощь!!!!
...
Рейтинг: 0 / 0
По поводу сохранения...
    #32181798
Фотография ulis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну, как вариант, поскольку полное имя файла, куда (откуда) пишешь, является строкой, то передавай ее в рутину как параметр, т.е., она будет выглядеть так:

Sub saveitems(lstin As ListBox, strFileName as String)
...
...
...
Open strFileName For Output As #1

Советую хранить твой файл не в C:\Program Files\Chat\ , а в VB.App.Path & "\" & strFileName

а можно просто проверку имени лист-бокса делать:
if lstin.Name = "первый лист бокс" then
Open "C:\Program Files\Chat\MTel.txt"
else
Open "C:\Program Files\Chat\WTel.txt"
then
...
Рейтинг: 0 / 0
По поводу сохранения...
    #32182052
KiSH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Умоляю сделай пример сам и пришли проект, очень тебя прошу! А то я сам не догоняю....:( Если поможешь я пришлю две здравые проги моего сочинения :)
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / По поводу сохранения...
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]