| Вопрос: Откртие текстового файла | Добавлено: 14.11.03 11:11 |
Автор вопроса:  Dёma | ICQ: 168321059 |
|
Как открыть файл .txt сохранив его форматирование ну чтоб как в блокноте. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #1 | Добавлено: 14.11.03 12:23 |
|
Я делал так (Text1 - textbox): Dim LOGFile As String Dim FNum As Long Dim S As String LOGFile = App.Path & "\LogFile.log" FNum = FreeFile Text1 = "" If Dir$(LOGFile) <> "" Then Open LOGFile For Input As FNum Do While Not EOF(FNum) Line Input #FNum, S Text1 = Text1 & S & vbCrLf 'Устанавливает каретку в конец текста Loop Text1.SelStart = Len(Text1) Else Text1 = "LOG file not found" End If |
||
|
Номер ответа: 2 Автор ответа:  PCNetWork ICQ: 277644901 Вопросов: 8 Ответов: 28 |
Профиль | | #2 | Добавлено: 14.11.03 16:58 |
|
Mozno poprobovat ispolzovat RichText kontrol(prosto zamenit TextBox nu i, kone4no, dopisat nemnozko prostogo koda). |
||
|
Номер ответа: 3 Автор ответа:  Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #3 | Добавлено: 14.11.03 18:17 |
|
Тебе примерчик Блокнота нужен?? Прошу на aesoft@mail.ru |
||
Страница: 1 |