Предыдущая страница реферата | 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 | Следующая страница реферата