| Вопрос: Как записать данные на форме в файл??? VB6... | Добавлено: 08.06.04 13:03 |
Автор вопроса:  EDIK
|
|
Как записать данные на форме в файл указанный мною (например на форме Text1, Text2, Text3 и т.д. ) и что бы он писался по строчно???? |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  dNW Вопросов: 30 Ответов: 683 |
Профиль | | #1 | Добавлено: 08.06.04 13:06 |
|
Open "C:\MyFile.txt" For Output As #1 Print #1,Text1.Text Print #2,Text2.Text Print #3,Text3.Text Close #1 |
||
|
Номер ответа: 2 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #2 | Добавлено: 08.06.04 13:07 |
| Sorry! Ошибся! Там везде #1 ! | ||
|
Номер ответа: 3 Автор ответа: EDIK Вопросов: 37 Ответов: 55 |
Профиль | | #3 | Добавлено: 08.06.04 13:21 |
|
Спасибо!!!!!!! работает ура!!!! А неподскажеш как из файла текстового скопировать информацию и дописать в новый текстовый файл?? |
||
|
Номер ответа: 4 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #4 | Добавлено: 08.06.04 17:31 |
|
Прочитать? Open "C:\MyFile.txt" For Input As #1 Line Input #1,Stroka1 Line Input #1,Stroka2 Line Input #1,Stroka3 Close #1
Ты прочитал первые три строчки из файла - можно записывать Кстати! Чтоб дописать в конец файла открывай как Append Output стерает фаил и записывает заново |
||
|
Номер ответа: 5 Автор ответа: TERMITICQ: 5297101 Вопросов: 16 Ответов: 93 |
Web-сайт: Профиль | | #5 | Добавлено: 08.06.04 20:48 |
|
hammer,
можно и по другому... Open "C:\MyFile.txt" For Output As #1 (Print #1, Text1.Text & vbcrlf & Text2.Text & vbcrlf & Text3.Text & vbcrlf & 
Close #1 скобку не надо как у меня......просто я пометил что все это в одну строчку пишеться 
|
||
|
Номер ответа: 6 Автор ответа: TERMITICQ: 5297101 Вопросов: 16 Ответов: 93 |
Web-сайт: Профиль | | #6 | Добавлено: 08.06.04 20:49 |
|
да и еще последняя & vbcrlf & не надо
ошибся....маленько
|
||
|
Номер ответа: 7 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #7 | Добавлено: 08.06.04 21:02 |
|
Ну раз уже пошли разные способы, то вто еще:
Dim nf As Integer, str As String str = "Нужная строка данных" Open "C:\MyFile.txt" For Binary Access Write Lock Read As nf put nf, vbnull, str Close nf Мне так все As Binary нравится открывать
|
||
|
Номер ответа: 8 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #8 | Добавлено: 08.06.04 21:11 |
|
Ах да... чтобы файл был как-бы открыт для дописывания (Append), заместо второго параметра в строке:
put nf, vbnull, str следует прописать put nf, LOF(nf) + vbNull, str Чтобы перейти на след. строку, запиши свою строчку, а затем в файл запиши vbCrLf... Или же можно сразу записать строку & vbCrLf... Все это более гибкие способы, еже-ли простейшие input/output/print |
||
|
Номер ответа: 9 Автор ответа: TERMITICQ: 5297101 Вопросов: 16 Ответов: 93 |
Web-сайт: Профиль | | #9 | Добавлено: 08.06.04 21:20 |
|
sne,
Фига ты рубанул.... прикольный способ..... |
||
|
Номер ответа: 10 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #10 | Добавлено: 09.06.04 13:34 |
| to sne: А как Get'ом читать через бинарный доступ? | ||
|
Номер ответа: 11 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #11 | Добавлено: 09.06.04 17:30 |
hammer, угу... пример что-ль, дык так:
 im sFileData as string
Open lpFilename For Binary Access Read As nf sFileData = String$(LOF(nf), &H0) Get nf, vbNull, sFileData Close nf Можно подобно предыдущему варианту подписать Lock Write... |
||
|
Номер ответа: 12 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #12 | Добавлено: 09.06.04 17:48 |
|
Thank'c
|
||
Страница: 1 |