Questione : Come ottenere l'attributo del href da un'alimentazione dell'ATOMO che è analizzata

L'APPROVAZIONE I pensa che questa sia una domanda ragionevolmente facile.  Faccio scrivere una ruspa spianatrice che prende un URL dato dell'atomo, lo analizzo in un variabile, quindi fisso le diverse variabili per ogni nodo.  Tutto è bene tranne il nodo di collegamento perché è formato diversamente.  Può il somone correggere prego la mia variabile di collegamento in modo da conterrà l'attributo del href? class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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 " del id= " codeSnippet794097 " del 
 0 allora
                      entryCount = entryCount + 1
				  Concluder se
                  
                  regolare il entryNode = entryNodeList.Item (j)
                  
                  'reinitialize le variabili
              
              titolo = ""
              collegamento = ""
              identificazione = ""
              pubblicato = ""
              aggiornato = ""
              sommario = ""
           
                per ogni entryAttribute in entryNode.childNodes
                      
                        nodeName = UCASE (entryAttribute.nodeName)      
                              
                  regolare il entryNode = entryNodeList.Item (j)
                  
                  Se il nodeName = “allora INTITOLA„
		  il titolo = sostituisce (entryAttribute.Text, “'„, “'' ")
                  nodeName di ElseIf = “COLLEGAMENTO„ allora
                    il collegamento = sostituisce (entryAttribute.Text, “'„, “'' ")
	         nodeName di ElseIf = “identificazione„ allora
                    l'identificazione = sostituisce (entryAttribute.Text, “'„, “'' ")
                  nodeName di ElseIf = “allora PUBBLICATO„
                    pubblicato = sostituire (entryAttribute.Text, “'„, “'' ")
                  Il nodeName di ElseIf = “allora HA AGGIORNATO„
                    aggiornato = sostituire (entryAttribute.Text, “'„, “'' ")
                  nodeName di ElseIf = “SOMMARIO„ allora
                    il sommario = sostituisce (entryAttribute.Text, “'„, “'' ")
                  Concluder se
                Dopo
                   se il entryName = il entryName del "" allora = vadano (descrizione, 400)
       
                 '-- inserto in base di dati
                                            
          Dopo

      concluder se

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

funzione di conclusione

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

Risposta : Come ottenere l'attributo del href da un'alimentazione dell'ATOMO che è analizzata

Ciao North_Side,

Sono andato profondamente nel problema ed ho composto una macro che converte le strutture in caselle di testo.
Non è universale di 100% ma dà i risultati accettabili sulle lime che avete fornito.
Potete disporre questa macro in Normal.dot e sarà sempre disponibile premendo Alt+F8 - 2click sul nome macro.
Il processo è piuttosto che richiede tempo in modo da ho aggiunto la relazione sullo stato di avanzamento alla barra di stato.
Provare prego. Inoltre ho inserito la macro nel documento che avete fornito.

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:

'---------------------------------------------------------------------------------------
'Procedura: Frames2TextBoxes
'Autore    : Alexey Egorov, [email protected]
'Data      : 11-Jul-2010
'Scopo   : Sostituisce tutte le strutture nel documento attivo con le caselle di testo che mantengono la posizione.
'Soggetto     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'---------------------------------------------------------------------------------------
Frames2TextBoxes secondario ()
aF fioco () come Word.Frame, f come Word.Frame, t come Word.Shape, i come lungamente, n come lungamente
Stbar fioco come booleano
Sul err_ di avanzamento di errore
Application.ScreenUpdating = falso
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
Per i = 1 a n
    Regolare il aF (i) = ActiveDocument.Frames (i)
Dopo

Per i = 1 a n
    Application.StatusBar = disposizione (i, """ che converte il ####") del "" & disposizione (n, """ del ####") del ""
    Regolar f = aF (i)
    f.Range.Select
    Selection.CreateTextbox
    Regolar 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
    
    Con t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Estremità con
    t.Line.Visible = msoFalse
Dopo
exit_here:
Application.ScreenUpdating = allineano
Application.DisplayStatusBar = stbar

Uscire il sommergibile

err_:
MsgBox Err.Description, vbCritical
Exit_here del riassunto
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us