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

Kizarek86

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

Guest

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

Kizarek86

Lotus team
20.07.2007
864
4
#3
Ерюков Алексей
Куда хоть смотреть то?)) в какую сторону?)
 

Kizarek86

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

Guest

#5
блин у меня пример куда то подевался. не надо никуда ничего засовывать :) там через навигатор ричтекста ходишь по ячейкам. Создавать таблицу точно получалось, задавая ширину ячейки и еще что то там. Вот только где это барахло валяется, не могу найти... :( Неужели в дебугере, когда определяешь ячейку ничего похожего не видно в переменных?
 
30.05.2006
1 345
11
#7
К стати: по таблице ФОРМЫ фиг по-бегаешь (разве что по полям, в неё натыканным). А вот по таблице, вкляченной в rtitem...
 
Y

Yakov

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

Kizarek86

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

Guest

#12
естественно бегать по таблице, которай запихана в ричтекст. по таблице формы похоже нельзя бегать. пример смотрел вот этот:
Код:
%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

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

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