Страница 1 из 1
Перенос строки в RTF
Добавлено: 06 авг 2015, 11:58
Marisha_P
Подскажите, как в строчку собрать данные, чтоб они выводились в печатную форму каждый на новую строку?
Код: Выделить всё
if(VulkR>'','Вулк.р./час'+ char(13),'')
if(VulkF>'','Вулк.ф./час', '')
if(PMerR>'','П/мер.р./час','')
if(PMerF>'','П/мер.ф./час','')
char(13) никак не обрабатывается:(
Re: Перенос строки в RTF
Добавлено: 06 авг 2015, 12:42
Irina_
Здравствуйте. Если я правильно поняла то, что Вам надо, то попробуйте в RTF добавить таблицу (в приведенном случае на 4 строки), без границ. И вывод соответствующих данных сделайте в разных строках таблицы.
Re: Перенос строки в RTF
Добавлено: 06 авг 2015, 12:56
Marisha_P
Если бы можно было разбить на строки, я бы разбила. А надо вставить эти строчки, если заполнены атрибуты, в центр таблицы, где куча объедененных ячеек рядом, причем объединены в разнобой совсем.... я хотела в одну переменную собрать данные через перевод строки, но почему-то не воспринимается этот символ:(
Re: Перенос строки в RTF
Добавлено: 06 авг 2015, 12:57
Marisha_P
у меня получается, что не все значения могут быть заполнены, и тогда будут пустые строки, а мне они не нужны:(
Re: Перенос строки в RTF
Добавлено: 06 авг 2015, 13:18
edward_K
Код: Выделить всё
.{ While условие
.begin // если нужно
end.
.{?Internal;условие;
.} //.{?Internal;условие;
.}//.{ While условие
Re: Перенос строки в RTF
Добавлено: 06 авг 2015, 13:45
Marisha_P
https://pp.vk.me/c625423/v625423072/356 ... LDJh8M.jpg
где выделены ячейки вот туда надо добавлять строчки, если есть атрибуты.. разбить таблицу у меня не получается:(
если разбиваю таблицу, то уже нет возможности объединить ячейки слева
Re: Перенос строки в RTF
Добавлено: 06 авг 2015, 14:30
edward_K
ну еще можно пропбовать вставлять chr(10) или chr(10)+chr(13)
В Excel chr(10) прокатывает. Ну ест. высота строки не должна быть фиксирована.
Re: Перенос строки в RTF
Добавлено: 07 авг 2015, 08:51
Marisha_P
понятно:( выхода нет:)) спасибо всем за участие!
Re: Перенос строки в RTF
Добавлено: 07 авг 2015, 11:20
edward_K
Выход есть всегда. Вы chr(10) то попробовали между подстроками добавить? На крайняк можно RunForm запустить в программном блоке в этой ячейке
Код: Выделить всё
.AutoForm Check_SocErr(wtabn :longint ; ErrrSTR :string )
.table blank
.fields
wtabn
'/'+ErrrSTR
.endfields
.begin
// logstrtofile('!chksoc_chisl.log','0 '+ErrrSTR)
end.
Таб. @@@@@@@@@@@@@@ ^
.endform
Параметров у нен может быть вагон.
А там где нужно, вставить в программном блоке
RunForm(Check_SocErr,DopLsch.lschet.tabn,wstr) ;
Будете удивлены - в Word это тоже пашет.
Re: Перенос строки в RTF
Добавлено: 11 июл 2019, 11:55
Marisha_P
Снова появился этот же самый вопрос:) Теперь уже вопрос не в таблице, а просто у меня в строке накапливаются данные по распределению сырья. Соответственно если позиций несколько, то каждую новую надо бы начинать с новой строки, chr(10)+chr(13) не помогает:( Есть какие-нибудь способы? нашла, что для rtf есть функция \par. Но как применить не понимаю:(
