Конференция VBStreets

**Роман Волков** » 04.01.2005 (Вт) 14:34

Хочу вводить данные в textbox и сохранить их. В общем мне понятно как ввести данные. Теперь я хочу их сохранить. Подразумеваю, что текст должен сохраниться в текстовый документ. Нужен вот для этого код (чтобы щёлк по кнопке и сохранилось!). Ну а потом как я снова войду в прогу надо ещё и загрузить эти данные. Кто поможет с проделованием ьакой вот процмдуры?Заранее благодарен за помощь!

**GSerg** » 04.01.2005 (Вт) 14:38

проделованием ьакой вот процмдуры

Вах! Хорошо сказал

open "c:\text1.txt" for output access write as #1
? #1, text1.text
close #1

**A.A.Z.** » 04.01.2005 (Вт) 19:41

Не, мне вот это больше понравилось:

Роман Волков писал(а):Нужен вот для этого код (чтобы щёлк по кнопке и сохранилось!)

Дельный комментарий

2 GSerg: а что там за "?" стоит? :roll:

Ты имел ввиду это:

Код: Выделить всё: Sub CommandButton1_Click() Open "c:\text1.txt" For Output As #1 Print #1, TextBox1.Text Close #1 End Sub

:?:

**tyomitch** » 04.01.2005 (Вт) 19:46

? - это и есть Print. Напечатай в VB IDE знак вопроса, и убедись.

**A.A.Z.** » 04.01.2005 (Вт) 19:52

Точно!

Я ж в Immediate всегда так пишу :oops:

Балда

**Роман Волков** » 04.01.2005 (Вт) 20:40

Ну то, что ? - принт - это я к счастью знаю. Спасибо. Буду разбираться!

**Роман Волков** » 04.01.2005 (Вт) 20:53

Так! код работает. я печатаю в текстбоксе, кликаю по кнопке и всё сохраняется. А как сделать бы ещё и так, чтобы я мог вывести содержимое из текстового документа в техтбокс?

**ALX_2002** » 04.01.2005 (Вт) 21:05

Ух ты.... Сколько я нового узнал.... Реал с вопроса печатает.... :scratch:

Пасиб вам за инфу... :roll:

**A.A.Z.** » 04.01.2005 (Вт) 21:51

Код: Выделить всё: Dim S As String TextBox1.Text = "" Open "C:\Text1.txt" For Input As #1 Do Until EOF(1) Line Input #1, S TextBox1.Text = TextBox1.Text & vbCrLf & S Loop Close #1

Только не забудь поставить TextBox1.MultiLine = True!

**tyomitch** » 04.01.2005 (Вт) 22:12

А не проще

Код: Выделить всё: Open "C:\Text1.txt" For Input As #1 TextBox1.Text = Input(LOF(1), 1) Close #1

**A.A.Z.** » 04.01.2005 (Вт) 22:50

Проще =) Но MultiLine но равно нужен =))

**tyomitch** » 05.01.2005 (Ср) 0:15

A.A.Z. писал(а):Проще =) Но MultiLine но равно нужен =))

Дык, одинаковый ведь эффект у твоего кода и у моего? Только мой проще :-)

Или, в чём всё-таки сомнения? Думаешь, прочитает не все строки? Проверь - прочитает все :-)

**A.A.Z.** » 05.01.2005 (Ср) 0:33

Нет, я не сомневаюсь в том, что ты прав

Просто "дополняю" сказанное тобой

**tyomitch** » 05.01.2005 (Ср) 2:05

A.A.Z. писал(а):Нет, я не сомневаюсь в том, что ты прав Просто "дополняю" сказанное тобой

Ок, спасибо :-)

)

**Роман Волков** » 05.01.2005 (Ср) 4:10

Спасибо народ! Буду разбираться!

**Роман Волков** » 05.01.2005 (Ср) 4:22

Код работает у меня вот в таком виде:

Код: Выделить всё: Open "C:\Text1.txt" For Input As #1 Text1 = Input(LOF(1), 1) Close #1

Заметили : вмето textbox1.text я поставил просто text1. Но это ну столь важно, главное получилось! Так теперь, кто мне объяснит, что обозначает код :Text1 = Input(LOF(1), 1). В частности (LOF(1), 1).

**Роман Волков** » 05.01.2005 (Ср) 4:44

зашёл в форум "База знаний" - "Популярные вопросы". Однако там есть что посмотреть!

**tyomitch** » 06.01.2005 (Чт) 4:52

Роман Волков писал(а):Заметили : вмето textbox1.text я поставил просто text1. Но это ну столь важно, главное получилось!

Это правильно (Text - свойство по умолчанию у текстбокса, и работа "в контексте выражения" ведётся именно с ним).

Роман Волков писал(а):Так теперь, кто мне объяснит, что обозначает код :Text1 = Input(LOF(1), 1). В частности (LOF(1), 1).

LOF(1) - длина файла, открытого под номером 1.
1 - номер этого файла.
Input(LOF(1), 1) означает "считать из файла, открытого под номером 1, LOF(1) символов" (т.е. весь файл целиком).

**Роман Волков** » 13.01.2005 (Чт) 19:39

всё понятно и даже более, чем понятно!

Конференция VBStreets

Хочу вводить данные в textbox и сохранить их

Хочу вводить данные в textbox и сохранить их

Кто сейчас на конференции