Pytanie : Dlaczego the href atrybut od ATOM karma parsed

OK I myśl to być całkiem łatwy pytanie.  I mieć cyklina pisać który brać dawać atom url, parses ono w zmienna, wtedy ustawiać indywidualny zmienna dla indywidualny guzek.  Inaczej być dobrze oprócz the kulisowy guzek ponieważ ono tworzyć inaczej.  Móc somone poprawny mój kulisowy zmienna więc ono zawierać the href atrybut? 
(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:

<%
funkcja getNews (strurl)

      ustawiać ObjSXH = createobject ("Msxml2.ServerXMLHTTP.3.0")
      ustawiać objXML = createobject ("Msxml2.DOMDocument")
                  
      url = strurl
      
      ObjSXH.open "DOSTAWAĆ", url, Fałszywy
      'Wysyłać the prośba
      ObjSXH.send ""

      'Jeżeli the prośba udawać się
      jeżeli ObjSXH.status = 200 wtedy
            'wracać XML jako DOMDocument
            ustawiać ObjXML = ObjSXH.responseXML
            
            'odzyskiwać produkt od xml dokument
            na błąd wznawiać następnie
          
          
            ustawiać entryNodeList = objXML.getElementsByTagName ("wejście")
            listLength = entryNodeList.length
                  
            dla j = (0) listLength - (1)
               
                  Jeżeli listLength > (0) Wtedy
                      entryCount = entryCount + (1)
				  Kończyć Jeżeli
                  
                  ustawiać entryNode = entryNodeList.Item (j)
                  
                  'reinitialize zmienna
              
              tytuł = ""
              połączenie = ""
              id = ""
              publikować = ""
              uaktualniony = ""
              streszczenie = ""
           
                dla entryNode.childNodes entryAttribute w entryNode.childNodes
                      
                        nodeName = UCASE (entryAttribute.nodeName)      
                              
                  ustawiać entryNode = entryNodeList.Item (j)
                  
                  Jeżeli nodeName = "TYTUŁOWAĆ" Wtedy
		  tytuł = Zamieniać (entryAttribute.Text, "'", "'' ")
                  ElseIf nodeName = "POŁĄCZENIE" Wtedy
                    połączenie = Zamieniać (entryAttribute.Text, "'", "'' ")
	         ElseIf nodeName = "ID" Wtedy
                    id = Zamieniać (entryAttribute.Text, "'", "'' ")
                  ElseIf nodeName = "PUBLIKOWAĆ" Wtedy
                    publikować = Zamieniać (entryAttribute.Text, "'", "'' ")
                  ElseIf nodeName = "AKTUALIZOWAĆ" Wtedy
                    uaktualniony = Zamieniać (entryAttribute.Text, "'", "'' ")
                  ElseIf nodeName = "STRESZCZENIE" Wtedy
                    streszczenie = Zamieniać (entryAttribute.Text, "'", "'' ")
                  Kończyć Jeżeli
                Następnie
                   jeżeli entryName = "" wtedy entryName = opuszczać (opis, 400)
       
                 '-- wszywka w baza danych
                                            
          Następnie

      kończyć jeżeli

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

końcówka funkcja

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

Odpowiedź : Dlaczego the href atrybut od ATOM karma parsed

Cześć North_Side,

I pójść głęboko w the problem i komponować macro ten konwertyta rama textboxes.
Ono być 100% cecha ogólna ale dawać dopuszczalny rezultat na kartoteka ty provided.
Ty móc ten macro w Normal.dot i ono być zawsze dostępny Alt+F8 - 2click na makro- imię.
The proces być raczej czasochłonny więc I dodawać sprawozdanie z realizacji status bar.
Zadawalać próba. I także wkładać macro w the dokument ty provided.

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
'Autor    : Alexey Egorov, [email protected]
'Data      : 11-Jul-2010
'Purpose   : Zamieniać wszystkie rama w aktywny dokument z textboxes pozycja.
'Temat     : http://www.experts-exchange.com/Microsoft/Applications/Q_26319089.html
'---------------------------------------------------------------------------------------
Okręt podwodny Frames2TextBoxes ()
Ciemnawy aF () Jako Word.Frame, f Jako Word.Frame, t Jako Word.Shape, i Długo, n Długo
Ciemnawy stbar Boolowski
Na Błąd Rozpoczynający err_
Application.ScreenUpdating = Fałszywy
stbar = Application.DisplayStatusBar
n = ActiveDocument.Frames.Count
ReDim aF (n)
Dla i = (1) N
    Set aF (i) = ActiveDocument.Frames (i)
Następnie

Dla i = (1) N
    Application.StatusBar = Format (i, """ "" ####") & Format (n, """ "" ####")
    Set f = aF (i)
    f.Range.Select
    Selection.CreateTextbox
    Set 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
    
    Z t.TextFrame
        .MarginBottom = (0)
        .MarginLeft = (0)
        .MarginRight = (0)
        .MarginTop = (0)
    Końcówka Z
    t.Line.Visible = msoFalse
Następnie
exit_here:
Application.ScreenUpdating = Prawdziwy
Application.DisplayStatusBar = stbar

Wyjście Okręt podwodny

err_:
MsgBox Err.Description, vbCritical
Życiorys exit_here
Końcówka Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us