Fråga : Hur man får hrefattribut från en ATOMmatning som är parseds

Den REKO I-funderare detta är ett ganska lätt ifrågasätter.  Jag har en skriftlig skrapa, som tar en given atomurl, parses den in i en variabel, därefter uppsättningindividvariabler för varje knutpunkt.  Allt är väl bortsett från anknytaknutpunkten, därför att det bildas olikt.  Kan somonen behaga korrekt mitt anknyter variabel, så den ska innehåller hrefattribut? > för 
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:
" codeBody " class= " notpretty " ><% för 0 därefter entryCount = entryCount + 1 Avsluta om fastställd entryNode = entryNodeList.Item (j) 'reinitialize variabler titel = "", anknyta = "", ID = "", publicerat = "", uppdaterat = "", summariskt = "", för varje entryAttribute i entryNode.childNodes nodeName = UCASE (entryAttribute.nodeName) fastställd entryNode = entryNodeList.Item (j) Om nodeName = ”BETITLAR” därefter titeln = byter ut (entryAttribute.Text, ”'”, ”''”) ElseIf nodeName = ”ANKNYTER” därefter anknyta = byt ut (entryAttribute.Text, ”'”, ”''”) ElseIf nodeName = ”LEGITIMATION” därefter ID = byter ut (entryAttribute.Text, ”'”, ”''”) ElseIf nodeName = ”PUBLICERAT” därefter publicerat = byt ut (entryAttribute.Text, ”'”, ”''”) ElseIf nodeName = ”UPPDATERAT” därefter uppdaterat = byt ut (entryAttribute.Text, ”'”, ”''”) ElseIf nodeName = ”SUMMARISKT” därefter summariskt = byt ut (entryAttribute.Text, ”'”, ”''”) Avsluta om Därefter om entryName = entryName för "" därefter = lämnade (beskrivning, 400) ',-- mellanlägg in i databas Därefter avsluta om getNews = title& ",|" &link& ",|" &id& ",|" &published& ",|" &updated& ",|" &summary avsluta fungerar Response.write-getNews (”http://blog.mlive.com/saginawnews_impact/atom.xml”) %>
" klar "

Svar : Hur man får hrefattribut från en ATOMmatning som är parseds

Hi North_Side,

Jag gick djupt i problemet och komponerade en makro som konverterar inramar till textboxes.
Det är inte universalen 100% utan ger godtagbara resultat sparar på dig g.
Du kan förlägga denna makro i Normal.dot, och den ska är alltid tillgänglig vid tränga Alt+F8 - 2click på den kända makroen.
Det processaa är ganska tidskrävande, så jag tillfogade framstegrapporten till status bommar för.
Behaga försök. Jag satte också in makro i dokumentet som du g.

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:

',---------------------------------------------------------------------------------------
'Tillvägagångssätt: Frames2TextBoxes
'Författare    : Alexey Egorov, [email protected]
'Datera      : 11-Jul-2010
'Ämna   : Byter ut alla inramar i aktivdokument med textboxes som att hålla placerar.
'Ämne     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
',---------------------------------------------------------------------------------------
UnderFrames2TextBoxes ()
Dunkel aF () som Word.Frame, f som Word.Frame, t som Word.Shape, I som Long, n som Long
Dunkelt stbar som Boolean
På GoTo err_ för fel
Application.ScreenUpdating = falskt
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
För I = 1 till n
    Uppsättning aF (I) = ActiveDocument.Frames (I)
Därefter

För I = 1 till n
    Application.StatusBar = formaterar (I, """ som konverterar "" #### ") & formaterar (n, """ av "" #### ")
    Uppsättning f = aF (I)
    f.Range.Select
    Selection.CreateTextbox
    Uppsättning 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
    
    Med t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Avsluta med
    t.Line.Visible = msoFalse
Därefter
exit_here:
Application.ScreenUpdating = True
Application.DisplayStatusBar = stbar

Gå ut suben

err_:
MsgBox Err.Description som är vbCritical
Meritförteckningexit_here
Avsluta suben
Andra lösningar  
 
programming4us programming4us