Vraag : Hoe te om de hrefattributen van een voer die van het ATOOM te krijgen worden ontleed

O.K. denk ik dit een vrij gemakkelijke vraag is.  Ik heb een geschreven schraper die een bepaald atoom url neemt, het in veranderlijk ontleedt, dan individuele variabelen voor elke knoop plaatst.  Allen is goed behalve de verbindingsknoop omdat het verschillend wordt gevormd.  Kan somone mijn verbindings alstublieft verbeteren variabele zodat zal het de hrefattributen bevatten?
" codeBody " 
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:

<%
functie getNews (strurl)

      vastgestelde ObjSXH = createobject („Msxml2.ServerXMLHTTP.3.0“)
      reeks objXML = createobject („Msxml2.DOMDocument“)
                  
      url = strurl
      
      ObjSXH.open „KRIJGEN“, url, Vals
      'Verzend het verzoek
      ObjSXH.send ""

      'Als het verzoek slaagde
      als ObjSXH.status = 200 toen
            'teruggekeerde XML als DOMDocument
            vastgestelde ObjXML = ObjSXH.responseXML
            
            'win producten van xmldocument terug
            op fout hervat daarna
          
          
            plaats entryNodeList = objXML.getElementsByTagName („ingang“)
            listLength = entryNodeList.length
                  
            voor j = 0 aan listLength - 1
               
                  Als listLength > 0 toen
                      entryCount = entryCount + 1
				  Eind als
                  
                  reeks entryNode = entryNodeList.Item (j)
                  
                  'reinitialize variabelen
              
              titel = ""
              verbinding = ""
              identiteitskaart = ""
              gepubliceerd = ""
              bijgewerkt = ""
              samenvatting = ""
           
                voor elke entryAttribute in entryNode.childNodes
                      
                        nodeName = UCASE (entryAttribute.nodeName)      
                              
                  reeks entryNode = entryNodeList.Item (j)
                  
                  Als nodeName = „TITEL“ toen
		  de titel = vervangt (entryAttribute.Text, „'“, „''“)
                  ElseIf nodeName = „VERBINDT dan“
                    de verbinding = vervangt (entryAttribute.Text, „'“, „''“)
	         ElseIf nodeName = „identiteitskaart“ toen
                    identiteitskaart = vervang (entryAttribute.Text, „'“, „''“)
                  ElseIf nodeName = „PUBLICEERDE toen“
                    gepubliceerd = vervang (entryAttribute.Text, „'“, „''“)
                  ElseIf nodeName = „WERKTE toen bij“
                    bijgewerkt = vervang (entryAttribute.Text, „'“, „''“)
                  ElseIf nodeName = „SAMENVATTING“ toen
                    de samenvatting = vervangt (entryAttribute.Text, „'“, „''“)
                  Beëindig als
                Daarna
                   als entryName = "" toen entryName = wegging (beschrijving, 400)
       
                 '-- tussenvoegsel in gegevensbestand
                                            
          Daarna

      beëindig als

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

eind functie

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

Antwoord : Hoe te om de hrefattributen van een voer die van het ATOOM te krijgen worden ontleed

Hallo North_Side,

Ik ging diep in het probleem en stelde een macro samen die kaders in textboxes omzet.
Het is 100% geen algemeen begrip maar geeft aanvaardbare resultaten op dossiers u verstrekte.
U kunt deze macro in Normal.dot plaatsen en het zal altijd beschikbaar door Alt+F8 te drukken - 2click op macronaam zijn.
Het proces is eerder tijdrovend zodat voegde ik voortgangsrapport aan statusbar toe.
Gelieve te proberen. Ik nam ook macro in het document op u verstrekte.

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:

'
'Procedure: Frames2TextBoxes
'Auteur    : Alexey Egorov, [email protected]
'Datum      : 11-juli-2010
'Doel   : Vervangt alle kaders in actief document met textboxes die positie houden.
'Onderwerp     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'
Sub Frames2TextBoxes ()
Schemerige aF () als Word.Frame, F als Word.Frame, t als Word.Shape, I zoals lang, n zoals lang
Schemerige stbar zoals Van Boole
Op Fout GoTo err_
Application.ScreenUpdating = Vals
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
Voor I = 1 aan n
    Vastgestelde aF (I) = ActiveDocument.Frames (I)
Daarna

Voor I = 1 aan n
    Application.StatusBar = Formaat (I, """ die "" #### omzetten ") & Formaat (n, """ van "" #### ")
    Vastgesteld F = aF (I)
    f.Range.Select
    Selection.CreateTextbox
    Vastgesteld 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
    
    Met t.TextFrame
        .MarginBottom = 0
        .MarginLeft = 0
        .MarginRight = 0
        .MarginTop = 0
    Eind met
    t.Line.Visible = msoFalse
Daarna
exit_here:
Application.ScreenUpdating = Waar
Application.DisplayStatusBar = stbar

Sub van de uitgang

err_:
vbCritical MsgBox Err.Description,
Hervat exit_here
Beëindig Sub
Andere oplossingen  
 
programming4us programming4us