Документация на основе RTF-шаблона
Категория реферата: Рефераты по информатике, программированию
Теги реферата: антикризисное управление, бесплатные ответы
Добавил(а) на сайт: Евдоким.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
Вставляем после m-го тега row скопированную нами подстроку p раз.
Следует отметить, что недостатком предложенного алгоритма является то, что он может копировать любую строку таблицы, кроме первой. Но в большинстве случаев первая строка является "шапкой" документа и копировать ее нет необходимости.
Алгоритм реализован в виде функции In_TStr (pth As String, itbl As Integer, irow As Integer, kol As Integer), где pth - имя RTF-файла, itbl - номер таблицы, irow - номер строки, kol - количество повторов строки.
Заполнение ячейки таблицы
Представим, что требуется найти k-ю ячейку в m-й строке n-й таблицы и вставить в нее текстовую строку данных. Пример таких ячеек:
...{lang1033cgrid0<содержимое 1-й ячейки>
cell<содержимое 2-й ячейки>cell}…
Задача может быть решена по следующему алгоритму.
Читаем последовательно строки входного файла.
Ищем последовательность …row…pard…par…intbl… (не обязательно в одной строке) (n-1) раз. После этого мы находимся перед нужной нам таблицей.
Ищем тег row (m-1) раз. После этого мы находимся в начале нужной строки таблицы.
Ищем k-e вхождение тега cell.
Вставляем перед ним строку данных.
Данный алгоритм реализован в виде функции In_Tcell1(pth As String, itbl As Integer, irow As Integer, icell As Integer, ndata As String), где pth - имя RTF-файла, itbl - номер таблицы, irow - номер строки, icell - номер ячейки, data - строка для занесения в ячейку.
Программа на VisualBasic, демонстрирующая применение такой технологии и функционально идентичная программе, приведенной в начале этой статьи, выглядит так:
' NumStr - кол-во строк в отчете
' NewData (5,NumStr) - массив с данными для заполнения
' таблицы, заранее приведенными к символьному виду
' Itog - сумма, приведенная к символьному виду
' pth - путь к файлу
' Str_ndoc = "BS190"
' Str_name = "Петров И.И."
Dim res As Boolean ' результат выполнения функций
' заполняем "шапку документа" - номер и получатель
' - закладки 'ndoc' и 'name' соответственно
res = In_Zakl1(pth, "ndoc", Str_ndoc)
Рекомендуем скачать другие рефераты по теме: сочинение на тему зима, налоги и налогообложение.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата