| Вопрос: Как считать текс!!! | Добавлено: 20.11.05 14:21 |
Автор вопроса:  B@r@nOFF
|
|
Как считать текст из текстового файла q.txt
или сохранить текст в q.txt |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  Роман Вопросов: 1 Ответов: 31 |
Web-сайт: Профиль | | #1 | Добавлено: 20.11.05 17:13 |
| Line Input и Line Output нет пробовал? | ||
|
Номер ответа: 2 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #2 | Добавлено: 20.11.05 17:22 |
Не слушай его, он не умеет  )))
open "C:\q.txt" for input as #1
print #1, "Запись в файле"close open "C:\q.txt" for output as #1
input #1, strVariable msgbox strVariable close |
||
|
Номер ответа: 3 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #3 | Добавлено: 20.11.05 19:55 |
| лучше get, put | ||
|
Номер ответа: 4 Автор ответа: B@r@nOFFВопросов: 8 Ответов: 13 |
Профиль | | #4 | Добавлено: 20.11.05 20:02 |
| Господа. пожалуйста поподробней... | ||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 20.11.05 21:27 |
|
Public Sub SaveToFile(Data$, PathFile As String)
'Сохранение переменной в файл n = FreeFile Open PathFile For Binary As #n Put n, , Data$ Close #n End Sub Public Function LoadTextFile(path As String) As String 'Загрузка файла в переменную Dim l As Long Dim s As String n = FreeFile Open path For Binary As #n l = LOF(n) s = String(l, vbNullChar) Get n, , s Close #n LoadTextFile = s End Function |
||
|
Номер ответа: 6 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #6 | Добавлено: 20.11.05 23:09 |
|
Ух, как подробно!
|
||
|
Номер ответа: 7 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #7 | Добавлено: 21.11.05 11:11 |
| Странно, никогда не приходило в голову считывть текст как бинарщину. Надеюсь, для этого есть мотив? | ||
|
Номер ответа: 8 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #8 | Добавлено: 21.11.05 11:32 |
| ну а вдруг ему exe захочится в переменную считать | ||
|
Номер ответа: 9 Автор ответа:  Алексейblack admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #9 | Добавлено: 22.11.05 18:04 |
|
to Noviks:
Не слушай его, он не умеет )))
open "C:\q.txt" for input as #1 print #1, "Запись в файле"close open "C:\q.txt" for output as #1 input #1, strVariable msgbox strVariable close помоему записывать в файл открытый для чтения и считывать из файла открытого для записи немного не правильно, хотя и оригенально 
Автору: Open pFileName For Input As #1
strText = Input$(LOF(1), 1) Close #1 , где pFileName - имя файла, strText - переменная в которую считавется файл |
||
|
Номер ответа: 10 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #10 | Добавлено: 23.11.05 11:28 |
|
ну а вдруг ему exe захочится в переменную считать
Странно, я всегда для этого юзал байтовый массив... |
||
|
Номер ответа: 11 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #11 | Добавлено: 23.11.05 17:15 |
|
помоему записывать в файл открытый для чтения и считывать из файла открытого для записи немного не правильно, хотя и оригенально Да, я в этом деле путаюсь! Ну и что! Все люди не идеальны!!
|
||
|
Номер ответа: 12 Автор ответа: Страшный СонВопросов: 46 Ответов: 848 |
Профиль | | #12 | Добавлено: 24.11.05 17:00 |
| Иногда я FSO пользуюсь, чтобы считать файл в строковую переменную. А когда надо в байтовый массифф, читаю как бинарщину Open'ом и Clos'ом. | ||
|
Номер ответа: 13 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #13 | Добавлено: 25.11.05 12:10 |
|
FSO удобен для чтения множества файлов из каталога, построчно или порциями, неважно бинарщина или текст.
С текстом в FSO работать удобнее - Stream таки. |
||
Страница: 1 |