Question : Question d'algorithme des DOM

Je dois établir un algorithme qui prend un écran physique des coordonnées, des largeurs, et des tailles de boîte, tout le DIVs, et établit une hiérarchie d'objet basée sur « contient » le genre de relationship.

The de question que je dois faire est, donné une allumette sur un certain morceau de texte dans le document, je dois poser la question : quelle division la contient ? quelle division contient cette division ? etc. Tous basés sur coordinates.

I se sont demandés s'il y avait un algorithme standard pour construire une telle hiérarchie d'une structure si plate des coordonnées absolues et de sizes. class= de

Réponse : Question d'algorithme des DOM

Essayer ceci
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 :

Substrater la force ()
SetupToPrint « TOUTES LES ventes »
SetupToPrint « nouvelles ventes »
SetupToPrint « vieilles ventes »
Sous-marin d'extrémité

SetupToPrint secondaire privé (SH comme corde)
    
    Feuilles (SH). Activer
    Appeler SetPrintAreaToPivotTable
    Appeler SetPageBreakToXNumberOfRows

Finir le sous-marin

SetPrintAreaToPivotTable secondaire privé ()

    Avec ActiveSheet
        lPTcells = .PivotTables (« PivotTable1 ») .DataBodyRange.Cells.Count
        Placer le rngTopLeft = le .PivotTables (« PivotTable1 ») .RowRange.Cells (1)
        Placer le rngBotRight = le .PivotTables (« PivotTable1 ») .DataBodyRange.Cells (les lPTcells)
        strPTAddress = rngTopLeft.Address et « :  » et adresse de strPT de rngBotRight.Address la 'n'existent pas !
        .PageSetup.PrintArea = strAddress
    Extrémité avec

Sous-marin d'extrémité

SetPageBreakToXNumberOfRows secondaire privé ()

    Faible Lastrow en tant que longtemps
        Faible Row_Index en tant que longtemps
        Le faible RW en tant que longtemps
    
        'Combien de rangées vous voulez entre chaque saut de page
        Le RW = 48
        
        Avec ActiveSheet
            'Enlever tout le PageBreaks
            .ResetAllPageBreaks
            
            'Rechercher la dernière rangée avec des données dans la colonne D
            Lastrow =. Cellules (Rows.Count, « D »). Extrémité (xlUp). Rangée
            
            Pour Row_Index = le RW + 2 à l'étape RW de Lastrow
                .HPageBreaks.Add avant : =.Cells (Row_Index, 1)
            Après
    Extrémité avec

Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us