| Вопрос: Помогите пожалуйста с записью данных в файл! | Добавлено: 22.12.07 19:53 |
Автор вопроса:  stalker_1986
|
| Помогите пожалуйста с записью данных в файл! Нужно сделать так, чтобы по нажатию на кнопочку, или анлоуде формы все данные, введенные в Textbox были сохранены в Данные.dat. И как быть, если у меня несколько TextBox. Заранне огромное спасибо! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  b.a.m ICQ: 291657044 Вопросов: 2 Ответов: 6 |
Профиль | | #1 | Добавлено: 22.12.07 21:31 |
|
Ну можно так:
Private Sub Form_Unload(Cancel As Integer)
Dim F As Integer Dim M As String Dim i As Long F = FreeFile Open App.Path & "\data.dat" For Append As #F For i = 0 To Text.Count - 1 M = Text(i).Text Print #F, M Next i Close #F End Sub |
||
|
Номер ответа: 2 Автор ответа:   Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #2 | Добавлено: 23.12.07 11:10 |
только надо какой-нить раделитель. иначе непонятно что там из какого текстбокса 
|
||
|
Номер ответа: 3 Автор ответа:  ZeroHourICQ: 397113309 Вопросов: 2 Ответов: 3 |
Профиль | | #3 | Добавлено: 24.12.07 00:25 |
|
Dim myText As String
Dim myIndex As Long Private Sub Form_Unload(Cancel As Integer) For myIndex = 0 To Text1.Count - 1 myText = myText & Text1(myIndex).Text & " " ' здесь мы делим каждый текст из TextBox'а пробелам Next myIndex Open App.Path & "\mydata.dat" For Output As #1 Write #1, myText Close #1 End Sub |
||
Страница: 1 |