Cuestión : Pregunta del algoritmo de los DOM

Necesito resolver un algoritmo que tome una pantalla física de los coordenadas, de las anchuras, y de las alturas de la caja, todo el DIVs, y resuelva una jerarquía del objeto basada en “contenga” la clase de relationship.

The de pregunta que necesito hacer soy, dado un fósforo en cierto pedazo de texto en el documento, necesito hacer la pregunta: ¿qué DIV la contiene? ¿qué DIV contiene ese DIV? etc. Todos basados en coordinates.

I se preguntaban si había un algoritmo estándar para construir tal jerarquía de una estructura tan plana de coordenadas absolutos y sizes. class= del

Respuesta : Pregunta del algoritmo de los DOM

Intentar esto
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 la cañería ()
SetupToPrint “TODAS LAS ventas”
SetupToPrint “nuevas ventas”
SetupToPrint “viejas ventas”
Submarino del extremo

SetupToPrint secundario privado (sh como secuencia)
    
    Hojas (sh). Activar
    Llamar SetPrintAreaToPivotTable
    Llamar SetPageBreakToXNumberOfRows

Terminar el submarino

SetPrintAreaToPivotTable secundario privado ()

    Con ActiveSheet
        lPTcells = .PivotTables (“PivotTable1”) .DataBodyRange.Cells.Count
        Fijar el rngTopLeft = .PivotTables (“PivotTable1”) .RowRange.Cells (1)
        Fijar el rngBotRight = .PivotTables (“PivotTable1”) .DataBodyRange.Cells (los lPTcells)
        strPTAddress = rngTopLeft.Address y “: ¡” y dirección del strPT de rngBotRight.Address la 'no existe!
        .PageSetup.PrintArea = strAddress
    Extremo con

Submarino del extremo

SetPageBreakToXNumberOfRows secundario privado ()

    Lastrow dévil como de largo
        Row_Index dévil como de largo
        RW dévil como de largo
    
        'Cuántas filas usted quiere entre cada rotura de página
        RW = 48
        
        Con ActiveSheet
            'Quitar todo el PageBreaks
            .ResetAllPageBreaks
            
            'Buscar para la fila pasada con datos en la columna D
            Lastrow =. Células (Rows.Count, “D”). Extremo (xlUp). Fila
            
            Para Row_Index = RW + 2 al paso RW de Lastrow
                .HPageBreaks.Add antes: =.Cells (Row_Index, 1)
            Después
    Extremo con

Submarino del extremo
Otras soluciones  
 
programming4us programming4us