|
По поводу сохранения...
|
|||
---|---|---|---|
#18+
Очень прошу помогите!!!! У меня одна фигня, никак не выходит её сделать. А звучит моя печальная история так: Ну пытаюсь я сделать так, чтобы у меня нажатием одной и той же кнопки данные с двух 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... Я чего только не химичил, не пробовал, но всё напрасно, я сдался, и поэтому я решил обратиться к вам, к профессионалам. Очень буду благодарен за помощь!!!! ... |
|||
:
Нравится:
Не нравится:
|
|||
11.06.2003, 23:03 |
|
По поводу сохранения...
|
|||
---|---|---|---|
#18+
Ну, как вариант, поскольку полное имя файла, куда (откуда) пишешь, является строкой, то передавай ее в рутину как параметр, т.е., она будет выглядеть так: 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 ... |
|||
:
Нравится:
Не нравится:
|
|||
12.06.2003, 08:32 |
|
|
start [/forum/topic.php?fid=60&msg=32182052&tid=2171149]: |
0ms |
get settings: |
7ms |
get forum list: |
13ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
38ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
others: | 13ms |
total: | 132ms |
0 / 0 |