Формирование отчета

[alleonid]

Имею вопросы.
1) Элемент TextBox может быть многострочным и иметь полосу прокрутки, если текст не умещается в поле. Имеются строковые переменные: StrX1, StrX2, StrX3 и т.д. Формирую отчет по принципу Text1.Text = StrX1 & StrX2 & StrX3... . Получается все до-кучи, неудобно читать. Существуют ли конструкции, которыми я могу установить StrX1 на 1-ю строку, StrX2 на вторую строку и так далее?
2) В книжках описаны операции с текстовыми файлами. Отчет можно создать в текстовом файле а там и переносить по строкам. А можно ли используя все те же самые приемы, менять .txt на .doc и пользоваться таким образом MS Word?

[moshkin]

если я правильно понял то:
1. а так не поможет Text1.Text = StrX1 & Chr(13) & StrX2 & Chr(13) & StrX3 ?
То есть вставить символ или конца строки или перевода каретки.
2. Не совсем понял для чего отчет? Если это лог, то вроде как лучше его в TXT и хранить (ИМХО). А если надо именно в Word, то там же формат файла совсем другой. Это уже надо как-то по другому делать.

[MeMBus]

1) Ставь vbCrLf...
Text1.Text = StrX1 & vbCrLf & StrX2 & vbCrLf & StrX3 & vbCrLf

[alleonid]

1) vbCrLf работает (см ниже)
Большой сенкс.
А почему Chr(13) не работат?
2) Ну я, типа того, понимаю, что форматы txt и doc разные. Но текстовый документ тем не менее при изменении его расширения на doc открывается вордом.

[moshkin]

Тогда я не понял что именно надо от Word-а? Тебе надо чтобы текстовый по сути файл открыывался в ворде? Так он открывается. Или тебе надо чтобы еще там и оформление было красивое? Ну там шрифты, выравнивание, таблицы?
Для чего все это?

[alleonid]

Да, кстати, еще вопрос: вот формирую я отчет таким образом, как описано ниже. с переносом на строки. У меня переменные StrX1, StrX2, StrX3 могут иметь 2 значения - "" и "поясняющий текст для переменных" (коэффициентов сметы). Если встретится "" то строчка будет пустой. Вопрос - какую конструкцию проще использовать, чтобы пустых строчек в TextBox не было?

Имею вопросы.
1) Элемент TextBox может быть многострочным и иметь полосу прокрутки, если текст не умещается в поле. Имеются строковые переменные: StrX1, StrX2, StrX3 и т.д. Формирую отчет по принципу Text1.Text = StrX1 & StrX2 & StrX3... . Получается все до-кучи, неудобно читать. Существуют ли конструкции, которыми я могу установить StrX1 на 1-ю строку, StrX2 на вторую строку и так далее?

[Алексей К.]

Проверяй переменные и заполняй text1, Типа:
if StrX1="" then text1.text=StrX2&vbcrlf&StrX3 и т.д.
А если переменных у тебя много, то забей их в массив, а text1 заполняй в цикле:
For i=1 to ubound(StrX)
if StrX(i)<>"" then text1.text=text1.text&StrX(i)&vbcrlf
next i

[alleonid]

Переменных - несколько десятков. Через массив их не очень удобно - пока все загонишь облезешь. Надо было изначально их делать в массиве. Проще так, через код (благо можно "копировать" и "вставить").
Но это - тривиальное решение.
Может быть есть какая то команда, что ли, чтобы пустые строки удалять в тексте.
Наверняка не я первый эту задачу решаю...

Проверяй переменные и заполняй text1, Типа:
if StrX1="" then text1.text=StrX2&vbcrlf&StrX3 и т.д.
А если переменных у тебя много, то забей их в массив, а text1 заполняй в цикле:
For i=1 to ubound(StrX)
if StrX(i)<>"" then text1.text=text1.text&StrX(i)&vbcrlf
next i

[moshkin]

Ну вот посмотрел я твой пример. Я так понимаю, что ты прямо в коде описываешь эти строки. Но ведь они меняются, наверное, когда-нибудь.
Я пока не могу представить зачем это и наверное поэтому не понимаю что ты делаешь.
Мне кажется, что надо было бы хранить эти строки в отдельном текстовом файле. Пусть даже и с пустыми строками. А когда ты заполняешь тот же TextBox, то читай подряд все строки из файла, каждая строка в файле это одна твоя строка. Если же прочитанная строка пустая, или пробел, то ты ее не добавляешь. Останется только ручками или программно рулить содержимое текстового файла.
А лучше напиши подробнее что именно надо делать, в каком виде даются данные коэффициентов сметы. Они же откуда-то берутся?

[alleonid]

Простенькая программка для составления сметы .
Есть штук 40 переменных.
Каждая переменная - публичная в 2х вариантах - даубловая и стринговая.
Например даубловая - K=1.2, а соотвествующая StrK = "Поправка на пьяный глаз К=" & K & ";".
Открывается форма, галочки там всякие, и так далее.
Пользователь определяет все переменные и нажимает кнопку отчет.
Ну и так далее - см. выше.

А лучше напиши подробнее что именно надо делать, в каком виде даются данные коэффициентов сметы. Они же откуда-то берутся?

[moshkin]

загоняешь это все в текстовый файл к примеру первая строка это число, вторая это описание. Или, наверное лучше, в одной строке через разделитель любой какой нравится, число и описание:
3,1415926:число Пи
2,71: число е

20000:столько хочу получать зарплаты

Вот в такой файл все загоняешь. А потом его читаешь, если пустая строка то ее читаешь то не вставляешь куда там тебе надо.
А делить строку можно по любому: или найти позицию разделителя instr(1,stroka,":") или можно с помощью split (поищи тоже есть на форуме)
а хранить все данные в коде, вроде и не красиво.

[alleonid]

Сэнкс, учту когда-нибудь.
Но в данном случае я уже захреначил их в код,
В принципе и так не плохо. If ...Then - no problem!