Цвет границ таблицы. Проблемы с Notesrichtextnavigator

[Omh]

NickProstoNick
Я так и не понял, что за глюк.
Можешь скриншоты приложить?

 

[NickProstoNick]

Вот скрины. Не пугайтесь - это тестовая форма
Это до рисования таблицы

Это после

Артефакт не страшный, но тем не менее хочется от него избавиться

 

[NickProstoNick]

пытаю разобрать DXL. Но вот как-то не очень получается
вот такой простейший код. Но не работает. Правда если сюда Call exporter.SetInput( rtItem ) скормить документ - то работает. А как скормить ричтекстполе?

	Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim stream As NotesStream
Dim exporter As NotesDXLExporter
Dim doc As NotesDocument
Dim rtItem As NotesRichTextItem

Set stream = session.CreateStream
Set exporter = session.CreateDXLExporter
'** get a NotesDocument somehow, then...
Set doc = ws.CurrentDocument.Document

Set rtItem = doc.GetFirstItem( "Body" )	
If Not ( rtItem.Type = RICHTEXT ) Then
Messagebox "Bad!"
Exit Sub
End If

fileName$ = "C:\" & doc.NoteID & ".dxl"
If stream.Open(fileName$) Then
Call stream.Truncate

Call exporter.SetInput( rtItem )
Call exporter.SetOutput(stream)
Call exporter.Process
Call stream.Close
Else
Print "Could not open " & fileName$
End If

 

[NickProstoNick]

Куда делись сторонники DXL???? Есть вопросы
Так... пока получается экспортить в XML весь документ, а потом импортить нужную его часть... т.е. поле с шаблоном таблицы
Только дело в том, что эту таблицу надо дописывать! Как это делать? А самое интересное не просто дописывать, а дописывать в нужное место?
Как посчитать кол-во столбцов?
Как добраться до тегов?

 

[amigolinx]

а зачем количество столбцов считать? их же имена/заголовки в шаблон забиты, по ним и ориентируйся.
строки пишутся последовательно, то есть вторая строка у тебя будет где то так выглядеть:
<tablerow>
<tablecell>
<par def='4'>Row 1, Column 1</par></tablecell>
<tablecell>
<par def='5'>Row 1, Column 2</par></tablecell>
</tablerow>

 

[NickProstoNick]

amigolinx
аха... это я все понимаю... меня интересует как дописать строки в нужное мне место? потому как добавлять строки мне нужно не всегда в конец таблицы.
это надо как-то разобрать, а для начала получить теги самой таблицы-шаблона.
Экспортировать XML в файл а потом разбирать его - не очень хочется. Мне не нужны файлы-посредники
Так что не все так прозрачно.

 

[amigolinx]

не знаю, мож это и не есть совсем правильно, но я делаю так: пользую NotesStream, обрезаю xml файл так, чтоб осталось одно только рабочее поле, потом делаю Split по нужным мне тегам (тут наверна подойдет <tablerow>) - получается массив. а там уж и до определения нужного места рукой подать через вычисление, напр., индекса нужного элемента массива. патом все обратно в Join и на возврат через dxlimporter

 

[NickProstoNick]

т.е. по сути ты пересобираешь документ по новой?
Почему тут Call exporter.SetInput( rtItem ) не получается скормить просто поле? зачем экспортировать весь документ?
Причем это Call exporter.SetOutput( rtItem ) тоже не работает
а в хелпе написано что должно работать

 

[amigolinx]

ну по большому счету можно сказать пересобираю, что ж паделать, раз индусы не дописали... самая наименьшая сущность, которую мне удавалось скормить в DXL - это документ целиком, поле тоже пробовал - давится что в инпут, что в аутпут . видать карма такая, хорошо хоть не в Notepad программим и на том спасибо

 

[NickProstoNick]

в аутпут я победил! Надо создавать ричтекст поле, а не брать существующее! тогда работает

 

[amigolinx]

шаман, однако . бум знать

 

[NickProstoNick]

Так... продолжаем тему
Есть необходимость добавлять строку в таблицу после шапки.
Саму таблицу рисую DXL'ем, а дописываю стандартным методом RichTextTable
Вот в чем проблема - если дописывать строку после шапки - то наследуется форматирование текста как в шапке, а этого мне не надо. Строки имеют свое форматирование

Совсем забыл... в таблице есть аттачи... это еще больше усложняет жизнь