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

Тема в разделе "Lotus - Программирование", создана пользователем Kizarek86, 24 июн 2008.

  1. Kizarek86

    Kizarek86 Lotus team
    Lotus team

    Регистрация:
    20 июл 2007
    Сообщения:
    857
    Симпатии:
    5
    Где то видел тему, но никак найти не могу.
    Как на скрипте пробежать по таблице на форме, при этом вытаскивая свойства ячеек(текст, заливку, размер, рамки) и полей которые в ячейках содержатся?
     
  2. Гость

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

    Kizarek86 Lotus team
    Lotus team

    Регистрация:
    20 июл 2007
    Сообщения:
    857
    Симпатии:
    5
    Ерюков Алексей
    Куда хоть смотреть то?)) в какую сторону?)
     
  4. Kizarek86

    Kizarek86 Lotus team
    Lotus team

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

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

    Kizarek86 Lotus team
    Lotus team

    Регистрация:
    20 июл 2007
    Сообщения:
    857
    Симпатии:
    5
    Ерюков Алексей
    Какой именно пример из хелпа смотрел?
     
  7. Constantin A Chervonenko

    Constantin A Chervonenko Well-Known Member

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

    Yakov Гость

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

    Kizarek86 Lotus team
    Lotus team

    Регистрация:
    20 июл 2007
    Сообщения:
    857
    Симпатии:
    5
    Yakov
    Кхм...а как получить документ формы?)
     
  10. Yakov

    Yakov Гость

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

    Kizarek86 Lotus team
    Lotus team

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

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

    Kizarek86 Lotus team
    Lotus team

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

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

Поделиться этой страницей