Вопрос : Вопрос о алгоритма DOM

Мне нужно разработать алгоритм принимает физический экран координат, ширин, и высот коробки, всего DIVs, и разрабатывает иерархию предмета основанную на «содержит» вид relationship.

The вопроса, котор мне нужно сделать, после того как я дал спичку на некоторой части текста в документе, мне нужно спросить вопрос: что DIV содержит его? что DIV содержит тот DIV? etc. Все основанные на совершенно coordinates.

I интересовали если были стандартный алгоритм для строить такую иерархию от такой плоской структуры совершенно координат и sizes. class=

Ответ : Вопрос о алгоритма DOM

Попытайтесь это
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Sub основа ()
SetupToPrint «ВСЕ сбывания»
SetupToPrint «новые сбывания»
SetupToPrint «старые сбывания»
Подводная лодка конца

Приватное Sub SetupToPrint (sh как шнур)
    
    Листы (sh). Активируйте
    Вызовите SetPrintAreaToPivotTable
    Вызовите SetPageBreakToXNumberOfRows

Закончите подводную лодку

Приватное Sub SetPrintAreaToPivotTable ()

    С ActiveSheet
        lPTcells = .PivotTables («PivotTable1») .DataBodyRange.Cells.Count
        Установите rngTopLeft = .PivotTables («PivotTable1») .RowRange.Cells (1)
        Установите rngBotRight = .PivotTables («PivotTable1») .DataBodyRange.Cells (lPTcells)
        strPTAddress = rngTopLeft.Address & «: » & адрес strPT rngBotRight.Address 'не существует!
        .PageSetup.PrintArea = strAddress
    Конец с

Подводная лодка конца

Приватное Sub SetPageBreakToXNumberOfRows ()

    Тусклое Lastrow как длиной
        Тусклое Row_Index как длиной
        Тусклый RW как длиной
    
        'Сколько рядки вы хотите между каждой разбивкой по страницам
        RW = 48
        
        С ActiveSheet
            'Извлекайте все PageBreaks
            .ResetAllPageBreaks
            
            'Ищите для последнего рядка с данными в колонке d
            Lastrow =. Клетки (Rows.Count, «d»). Конец (xlUp). Рядок
            
            Для Row_Index = RW + 2 к шагу RW Lastrow
                .HPageBreaks.Add раньше: =.Cells (Row_Index, 1)
            Затем
    Конец с

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us