Private Sub Command1_Click()
Dim i As Integer
Static n As Integer
List1.AddItem Rnd
Open "save#" & n & ".txt" For Output As #1
For i = List1.ListCount - 1 To 0 Step -1
Print #1, List1.List(i)
Next i
Close #1
n = n + 1
End Sub
Hellp с сохранением файлов!!!
Господа!
Помогите пожалуйста начинающему!
Как можно сохранять из listbox в файлы каждый раз с новыми именами.
Т.е. 1.txt 2.txt 3.txt и тд.
Помогите пожалуйста начинающему!
Как можно сохранять из listbox в файлы каждый раз с новыми именами.
Т.е. 1.txt 2.txt 3.txt и тд.
Цитата:
Originally posted by marius
Господа!
Помогите пожалуйста начинающему!
Как можно сохранять из listbox в файлы каждый раз с новыми именами.
Т.е. 1.txt 2.txt 3.txt и тд.
Господа!
Помогите пожалуйста начинающему!
Как можно сохранять из listbox в файлы каждый раз с новыми именами.
Т.е. 1.txt 2.txt 3.txt и тд.
Непонятно, в чём конкретно возникает сложность. Уточните, пожалуйста, вопрос.
Цитата:
Originally posted by Dmitrii
Непонятно, в чём конкретно возникает сложность. Уточните, пожалуйста, вопрос.
Непонятно, в чём конкретно возникает сложность. Уточните, пожалуйста, вопрос.
Существует listbox и при его заполнении он должен сохраняться (при каждом нажатии сохранить...)каждый раз с новым именем.
Цитата:
Originally posted by marius
Существует listbox и при его заполнении он должен сохраняться (при каждом нажатии сохранить...)каждый раз с новым именем.
Существует listbox и при его заполнении он должен сохраняться (при каждом нажатии сохранить...)каждый раз с новым именем.
Код:
Цитата:
Originally posted by b0m
Код:
Private Sub Command1_Click()
Dim i As Integer
Static n As Integer
List1.AddItem Rnd
Open "save#" & n & ".txt" For Output As #1
For i = List1.ListCount - 1 To 0 Step -1
Print #1, List1.List(i)
Next i
Close #1
n = n + 1
End Sub
Dim i As Integer
Static n As Integer
List1.AddItem Rnd
Open "save#" & n & ".txt" For Output As #1
For i = List1.ListCount - 1 To 0 Step -1
Print #1, List1.List(i)
Next i
Close #1
n = n + 1
End Sub
Огромное спасибо !