Делаю файл текстовый, в котором информация разделена на колонки посредством табуляции. Но в некотрых случаях информация получается длинноватая и ячейки некоторых строк уезжают. Даже двойная табуляция не спасает.
Может кто занимался выводом отчетов в текстовый файл?
Формирование текстового файла с колонками, как уровнять?
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 16
• Страница 1 из 1
- Pantalone
- Постоялец
-
- Сообщения: 687
- Зарегистрирован: 12.11.2005 (Сб) 16:46
- Откуда: Сапог
Формирование текстового файла с колонками, как уровнять?
Pantalone » 29.09.2007 (Сб) 20:20
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 29.09.2007 (Сб) 20:27
Делить на колонки, определять макс. ширину для каждой колокни, лсетить, джоинить, записывать в файл и радоваться.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- netdemon
- Продвинутый пользователь
-
- Сообщения: 179
- Зарегистрирован: 04.09.2007 (Вт) 15:51
netdemon » 29.09.2007 (Сб) 21:58
- Код: Выделить всё
Private Sub Form_Load()
Open "TESTFILE.TXT" For Output As #1 '
Print #1, "10 пробелов между этой строкой"; Spc(10); "и этой строкой."
Close #1 '
Debug.Print Spc(30); "После 30 пробелов..."
End Sub
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 29.09.2007 (Сб) 22:39
Pantalone
Тебе для моноширинных шрифтом надо или же для любых?
netdemon
Когда ты наконец перестанешь писать бредовые сообщения?
Тебе для моноширинных шрифтом надо или же для любых?
netdemon
Когда ты наконец перестанешь писать бредовые сообщения?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 29.09.2007 (Сб) 22:47
Pantalone
Тогда при поиске макс. ширины надо использовать не Len(txt) а TextWidth(txt). И размер паддинга определять аналогичным образом, из расчёта (MaxWidth-TextWidth(CurrentTxt)) / TextWidth(" ").
TextWidth разумеется метод чего-нибудь контейнеро-образного.
Тогда при поиске макс. ширины надо использовать не Len(txt) а TextWidth(txt). И размер паддинга определять аналогичным образом, из расчёта (MaxWidth-TextWidth(CurrentTxt)) / TextWidth(" ").
TextWidth разумеется метод чего-нибудь контейнеро-образного.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- Хакер
- Телепат
-
- Сообщения: 16478
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 29.09.2007 (Сб) 23:27
netdemon
Устное предупреждение за неиспользование кнопки [Правка]. В следующий раз (если он будет) последует неустное замечание.
Устное предупреждение за неиспользование кнопки [Правка]. В следующий раз (если он будет) последует неустное замечание.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- Pantalone
- Постоялец
-
- Сообщения: 687
- Зарегистрирован: 12.11.2005 (Сб) 16:46
- Откуда: Сапог
Pantalone » 30.09.2007 (Вс) 3:09
netdemon писал(а):Заюзай этот код.
Спсибо за труд, но посмотри, шрифт ариал и твой код:
- Вложения
-
TESTFILE.GIF- (8.66 Кб) Скачиваний: 33
- netdemon
- Продвинутый пользователь
-
- Сообщения: 179
- Зарегистрирован: 04.09.2007 (Вт) 15:51
netdemon » 30.09.2007 (Вс) 18:40
Тогда вот так, как писал ХАКЕР.
Pantalone
Тогда при поиске макс. ширины надо использовать не Len(txt) а TextWidth(txt). И размер паддинга определять аналогичным образом, из расчёта (MaxWidth-TextWidth(CurrentTxt)) / TextWidth(" ").
TextWidth разумеется метод чего-нибудь контейнеро-образного.
_________________
Будет день, и я вернусь туда... где не ждали,
Туда... где в печали,
Туда... где забыли,
Туда... где любили...
Pantalone
Тогда при поиске макс. ширины надо использовать не Len(txt) а TextWidth(txt). И размер паддинга определять аналогичным образом, из расчёта (MaxWidth-TextWidth(CurrentTxt)) / TextWidth(" ").
TextWidth разумеется метод чего-нибудь контейнеро-образного.
_________________
Будет день, и я вернусь туда... где не ждали,
Туда... где в печали,
Туда... где забыли,
Туда... где любили...
Сообщений: 16
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Yandex-бот и гости: 47