Frage : Wie man das href Attribut von einer ATOM-Zufuhr erhält, die analysiert wird

O.K.I denken, dass dieses eine ziemlich einfache Frage ist.  Ich lasse einen Schaber schreiben, der ein gegebenes Atom-URL nimmt, analysiere es in ein variables, dann einstelle einzelne Variablen für jeden Nullpunkt.  Alles ist gut außer dem Verbindungsnullpunkt, weil es anders als gebildet.  Kann somone meine Verbindungsvariable bitte beheben, also enthält es das href Attribut? 
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:
6:
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:

<%
Funktion getNews (strurl)

      ObjSXH = createobject („Msxml2.ServerXMLHTTP.3.0“) einstellen
      objXML = createobject („Msxml2.DOMDocument“) einstellen
                  
      URL = strurl
      
      ObjSXH.open „ERHALTEN“, URL, falsch
      'Den Antrag senden
      ObjSXH.send ""

      'Wenn der Antrag folgte
      wenn ObjSXH.status = 200 dann
            'zurückgebrachtes XML als DOMDocument
            ObjXML = ObjSXH.responseXML einstellen
            
            'Produkte vom xml Dokument zurückholen
            auf Störung zunächst wieder.aufnehmen
          
          
            entryNodeList = objXML.getElementsByTagName („Eintragung“) einstellen
            listLength = entryNodeList.length
                  
            für J = 0 zum listLength - 1
               
                  Wenn listLength > 0 dann
                      entryCount = entryCount + 1
				  Beenden wenn
                  
                  entryNode = entryNodeList.Item einstellen (j)
                  
                  'Variablen neu initialisieren
              
              Titel = ""
              Verbindung = ""
              Identifikation = ""
              veröffentlicht = ""
              modernisiert = ""
              Zusammenfassung = ""
           
                für jedes entryAttribute in entryNode.childNodes
                      
                        nodeName = UCASE (entryAttribute.nodeName)      
                              
                  entryNode = entryNodeList.Item einstellen (j)
                  
                  Wenn nodeName = dann „BETITELN“
		  Titel = ersetzen (entryAttribute.Text, „'“, „'' ")
                  ElseIf nodeName = „VERBINDUNG“ dann
                    Verbindung = ersetzen (entryAttribute.Text, „'“, „'' ")
	         ElseIf nodeName = „Identifikation“ dann
                    Identifikation = ersetzen (entryAttribute.Text, „'“, „'' ")
                  ElseIf nodeName = „dann VERÖFFENTLICHT“
                    veröffentlicht = ersetzen (entryAttribute.Text, „'“, „'' ")
                  ElseIf nodeName = „AKTUALISIERTE“ dann
                    modernisiert = ersetzen (entryAttribute.Text, „'“, „'' ")
                  ElseIf nodeName = „ZUSAMMENFASSUNG“ dann
                    Zusammenfassung = ersetzen (entryAttribute.Text, „'“, „'' ")
                  Beenden wenn
                Zunächst
                   wenn entryName = "" dann entryName = verließen (Beschreibung, 400)
       
                 '-- Einsatz in Datenbank
                                            
          Zunächst

      beenden wenn

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

Endenfunktion

Response.write getNews („http://blog.mlive.com/saginawnews_impact/atom.xml ")
%>

Antwort : Wie man das href Attribut von einer ATOM-Zufuhr erhält, die analysiert wird

Hallo North_Side,

Ich ging tief in das Problem und bestand ein Makro, das Rahmen in area per informazioni umwandelt.
Es ist, nicht die 100%-Universalität aber gibt annehmbare Auswirkungen auf Akten, die Sie zur Verfügung stellten.
Sie können dieses Makro in Normal.dot legen und es ist immer vorhanden, indem es Alt+F8 - 2click auf Makronamen betätigt.
Der Prozess ist ziemlich Zeit raubend, also hinzufügte ich Zwischenbericht Statusstab gte.
Bitte versuchen. Ich einsetzte auch Makro im Dokument ch, das Sie zur Verfügung stellten.

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

'---------------------------------------------------------------------------------------
'Verfahren: Frames2TextBoxes
'Autor    : Alexey Egorov, [email protected]
'Datum      : 11-Jul-2010
'Zweck   : Ersetzt alle Rahmen im aktiven Dokument durch die area per informazioni, die Position halten.
'Thema     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'---------------------------------------------------------------------------------------
VorFrames2TextBoxes ()
Schwacher aF () als Word.Frame, f als Word.Frame, t als Word.Shape, i als lang, n als lang
Schwaches stbar, wie Boolesch
Auf Störung Goto- err_
Application.ScreenUpdating = falsch
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (N)
Für i = 1 zu n
    aF einstellen (i) = ActiveDocument.Frames (i)
Zunächst

Für i = 1 zu n
    Application.StatusBar = Format (i, """, das "" ####") u. Format (n, """ von "" ####") umwandelt
    Einstellen f = aF (i)
    f.Range.Select
    Selection.CreateTextbox
    Einstellen 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
    
    Mit t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Ende mit
    t.Line.Visible = msoFalse
Zunächst
exit_here:
Application.ScreenUpdating = ausrichten en
Application.DisplayStatusBar = stbar

Unterseeboot herausnehmen

err_:
MsgBox Err.Description, vbCritical
Zusammenfassung exit_here
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us