Работа с таблицами

[Kizarek86]

Где то видел тему, но никак найти не могу.
Как на скрипте пробежать по таблице на форме, при этом вытаскивая свойства ячеек(текст, заливку, размер, рамки) и полей которые в ячейках содержатся?

 

[Guest]

Там в хелпе есть пример, где перебираются все ячейки таблицы. В дебагере его прогоните, там должны быть эти свойства у ячеек

 

[Kizarek86]

Ерюков Алексей
Куда хоть смотреть то?)) в какую сторону?)

 

[Kizarek86]

Нашел только пример для анализ таблиц помещенных в РТ поле, возможно ли вообще сделать без него? или в любом случае сначала документ кидать в Рт поле, потом там анализировать таблицу?

 

[Guest]

блин у меня пример куда то подевался. не надо никуда ничего засовывать там через навигатор ричтекста ходишь по ячейкам. Создавать таблицу точно получалось, задавая ширину ячейки и еще что то там. Вот только где это барахло валяется, не могу найти... Неужели в дебугере, когда определяешь ячейку ничего похожего не видно в переменных?

 

[Kizarek86]

Ерюков Алексей
Какой именно пример из хелпа смотрел?

 

[Constantin A Chervonenko]

К стати: по таблице ФОРМЫ фиг по-бегаешь (разве что по полям, в неё натыканным). А вот по таблице, вкляченной в rtitem...

 

[Yakov]

К стати: по таблице ФОРМЫ фиг по-бегаешь

А если так: получить документ формы, взять поле "$Body", исследовать его...

 

[Kizarek86]

Yakov
Кхм...а как получить документ формы?)

 

[Yakov]

kizarek
Посмотрите в справке NotesNoteCollection class .
Может, для вашей задачи подойдет NotesDXLExporter.

 

[Kizarek86]

Yakov
Да уже с РТ полями во всю заморачиваюсь. Возможно ли вообще достучаться в РТ до цвета,размера ячеек? до таблицы и параметров текста в этих ячейках без проблем)

 

[Guest]

естественно бегать по таблице, которай запихана в ричтекст. по таблице формы похоже нельзя бегать. пример смотрел вот этот:

%INCLUDE "lsconst.lss"

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
REM Create new document with rich text item
Dim doc As New NotesDocument(db)
Call doc.AppendItemValue("From", session.UserName)
Call doc.AppendItemValue("Form", "Main Form")
Call doc.AppendItemValue _
("Subject", Inputbox("Subject?"))
Dim rti As New NotesRichTextItem(doc, "Body")
Call rti.AppendText("Paragraph of text")
Call rti.AddNewLine(2)
REM Create a table
Dim rows As Integer, columns As Integer
rows = 4
columns = 3
Dim tabs() As String
If Messagebox("Do you want a tabbed table?", _
MB_YESNO + MB_ICONQUESTION, "Tabbed?") = IDNO Then
Call rti.AppendTable(rows, columns)
Else
Redim tabs(1 To rows)
For i = 1 To rows
tabs(i) = "Row " & i
Next
Call rti.AppendTable(rows, columns, tabs)
End If
REM Save the document
Call doc.Save(True, False)
REM Get the table
Dim rtnav As NotesRichTextNavigator
Set rtnav = rti.CreateNavigator
If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then
Messagebox "Could not find table",, "Fatal error"
Exit Sub
End If
Dim rtt As NotesRichTextTable
Set rtt = rtnav.GetElement
labelString = ""
Forall label In rtt.RowLabels
If label <> "" Then labelString = labelString & Chr(13) & _
" " & label
End Forall
If labelString = "" Then labelString = "No labels"
Messagebox "Columns = " & rtt.ColumnCount & Chr(13) & _
"Rows = " & rtt.RowCount & Chr(13) & _
"Labels = " & labelString & Chr(13) & _
Style = " & rtt.Style & Chr(13) & _
"Color = " & rtt.Color.NotesColor & Chr(13) & _
"AlternateColor = " & rtt.AlternateColor.NotesColor _
,, "NotesRichTextTable"
End Sub

 

[Kizarek86]

Yakov
Задача в общем то состоит в том, чтобы в Excel перегнать таблицу из RT поля с максимальный сохранение формата)
Можно и NotesDXLExporter, но я боюсь начинать писать анализатор такой))

Ерюков Алексей
Это тоже уже смотрелось) Нету там указания размеров ячеек, и цветов ячеек...
Там в целом про таблицу...