Question : Comment obtenir l'attribut de href d'une alimentation d'ATOME étant analysée

L'OK I pensent que c'est une question assez facile.  Je fais écrire un racleur qui prend un URL donné d'atome, l'analyse dans un variable, puis place différentes variables pour chaque noeud.  Tout est bien excepté le noeud de lien parce qu'il est formé différemment.  Le somone peut-il svp corriger ma variable de lien ainsi contiendra-t-il l'attribut de href ? class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :
62 :
63 :
64 :
65 :
66 :
67 :
68 :
69 :
70 :
71 :
72 :
73 :
74 :
75 :
76 :
class= ><% " notpretty " de l'id= " codeSnippet794097 " de 
 0 puis
                      entryCount = entryCount + 1
				  Finir si
                  
                  placer l'entryNode = l'entryNodeList.Item (j)
                  
                  'réinitialiser les variables
              
              titre = ""
              lien = ""
              identification = ""
              édité = ""
              mis à jour = ""
              résumé = ""
           
                pour chaque entryAttribute dans entryNode.childNodes
                      
                        nodeName = UCASE (entryAttribute.nodeName)      
                              
                  placer l'entryNode = l'entryNodeList.Item (j)
                  
                  Si le nodeName = « INTITULENT » alors
		  le titre = remplacent (entryAttribute.Text, « ' », « '' ")
                  nodeName d'ElseIf = « LIEN » puis
                    le lien = remplacent (entryAttribute.Text, « ' », « '' ")
	         nodeName d'ElseIf = « identification » puis
                    l'identification = remplacent (entryAttribute.Text, « ' », « '' ")
                  nodeName d'ElseIf = « ÉDITÉ » alors
                    édité = remplacer (entryAttribute.Text, « ' », « '' ")
                  Le nodeName d'ElseIf = « A MIS À JOUR » alors
                    mis à jour = remplacer (entryAttribute.Text, « ' », « '' ")
                  nodeName d'ElseIf = « RÉSUMÉ » puis
                    le résumé = remplacent (entryAttribute.Text, « ' », « '' ")
                  Finir si
                Après
                   si l'entryName = l'entryName de "" puis = partaient (description, 400)
       
                 '-- insertion dans la base de données
                                            
          Après

      finir si

      getNews = title& "|" &link& "|" &id& "|" &published& "|" &updated& "|" &summary
      

fonction de fin

getNews de Response.write (« http://blog.mlive.com/saginawnews_impact/atom.xml ")
%>
class= de

Réponse : Comment obtenir l'attribut de href d'une alimentation d'ATOME étant analysée

Salut North_Side,

Je suis entré profondément dans le problème et ai composé un macro qui convertit des armatures en boîtes à textes.
Ce n'est pas universel de 100% mais donne des résultats acceptables sur des dossiers que vous avez fournis.
Vous pouvez placer ce macro dans Normal.dot et il sera toujours disponible en pressant Alt+F8 - 2click sur le macro nom.
Le processus est plutôt long ainsi j'ai ajouté le rapport sur l'état d'avancement à la barre de statut.
Essayer svp. J'ai également inséré le macro dans le document que vous avez fourni.

Alex
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 :
49 :
50 :

'---------------------------------------------------------------------------------------
'Procédé : Frames2TextBoxes
'Auteur    : Alexey Egorov, [email protected]
'Date      : 11-Jul-2010
'But   : Remplace toutes les armatures dans le document actif par des boîtes à textes gardant la position.
'Matière     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'---------------------------------------------------------------------------------------
Frames2TextBoxes secondaire ()
Faible aF () comme Word.Frame, f comme Word.Frame, t comme Word.Shape, I en tant que longtemps, n en tant que longtemps
Faible stbar comme booléen
Sur l'err_ GoTo d'erreur
Application.ScreenUpdating = faux
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
Pour I = 1 à n
    Placer l'aF (i) = ActiveDocument.Frames (i)
Après

Pour I = 1 à n
    Application.StatusBar = format (I, """ convertissant ####") de "" et format (n, """ de ####") de ""
    Placer f = aF (i)
    f.Range.Select
    Selection.CreateTextbox
    Placer t = Selection.ShapeRange (1)
    t.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    t.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    t.Width = f.Width
    t.Height = f.Height
    t.Left = f.HorizontalPosition
    t.Top = f.VerticalPosition
    
    Avec t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Extrémité avec
    t.Line.Visible = msoFalse
Après
exit_here :
Application.ScreenUpdating = rectifient
Application.DisplayStatusBar = stbar

Sortir le sous-marin

err_ :
MsgBox Err.Description, vbCritical
Exit_here de résumé
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