| Вопрос: Проблема с чтением из файла. | Добавлено: 03.09.06 12:41 |
Автор вопроса:  crazyd
|
|
Приветствую.
Мне необходимо прочитать текстовый файл, и занести его в переменную. делаю так: Open "c:\startdxf.txt" For Input As #1 Do Until EOF(1) Line Input #1, txt alltxt = alltxt + txt + vbCrLf Loop Close #1 Проблема в том что, эту текстовую переменную затем я сохраняю в формате ".dxf", который очень нелюбит пустые строки, а у переменной "alltxt", как раз получается в конце пустая строка(из-за vbCrLf), как этого можно избежать, подскажите пожалуйста! Заранее благодарен. |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 03.09.06 13:26 |
| Можешь сделать Trim(alltxt) | ||
|
Номер ответа: 2 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #2 | Добавлено: 03.09.06 13:28 |
| а в общем-то для acad'а куча компонентов встречалась, в частности и для dxf | ||
|
Номер ответа: 3 Автор ответа: crazyd Вопросов: 6 Ответов: 13 |
Профиль | | #3 | Добавлено: 03.09.06 13:41 |
|
Можешь сделать Trim(alltxt)
Непомагает. 
а в общем-то для acad'а куча компонентов встречалась, в частности и для dxf
Неподскажите где можно скачать? |
||
|
Номер ответа: 4 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #4 | Добавлено: 03.09.06 15:08 |
| Тэ-э-экс-с.... Я давненько этим занимался, если не ошибаюсь - назывался TurboDFX, попробуй по поиску... Если надо - у меня где-то завалялся с кряком, но версия наверное старенькая... | ||
|
Номер ответа: 5 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #5 | Добавлено: 03.09.06 15:09 |
Я хотел сказать - TurboDXF! 
|
||
|
Номер ответа: 6 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #6 | Добавлено: 03.09.06 15:31 |
|
Вообще-то я чего-то не задумался если надо кодом - то на:
Dim alltxt, txt As String Open "c:\startdxf.txt" For Input As #1 Do Until EOF(1) Line Input #1, txt alltxt = alltxt & txt & IIf(EOF(1), "", vbCrLf) 'если не последняя строка, то vbCrLf Loop Close #1 |
||
|
Номер ответа: 7 Автор ответа:  crazydВопросов: 6 Ответов: 13 |
Профиль | | #7 | Добавлено: 03.09.06 16:02 |
| Мегаспасибо Вам!!! | ||
|
Номер ответа: 8 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #8 | Добавлено: 03.09.06 17:53 |
| Надо в бинарном режиме читать, тогда никаких проблемов не будет. | ||
|
Номер ответа: 9 Автор ответа: Calhoon ICQ: 789764 Вопросов: 90 Ответов: 230 |
Web-сайт: Профиль | | #9 | Добавлено: 04.09.06 04:11 |
|
Open "c:\startdxf.txt" For Binary As #1
lenF = Lof(1) Do Until seek(1) > lenF txt = Input(1024, #1) alltxt = alltxt & txt Loop Close #1 |
||
Страница: 1 |