Søg
Avatar billede ingeman Seniormester
20. januar 2007 - 09:37 Der er 12 kommentarer og
1 løsning

Hvordan for jeg taget data udfra den her side ?

<html>
    <script>
      var xmlDoc = null ;
 
      function load() {
        if (typeof window.ActiveXObject != 'undefined' ) {
          xmlDoc = new ActiveXObject("Microsoft.XMLHTTP");
          xmlDoc.onreadystatechange = process ;
        }
        else {
          xmlDoc = new XMLHttpRequest();
          xmlDoc.onload = process ;
        }
        xmlDoc.open( "GET", "http://www.wunderground.com/global/stations/06024.html", true );
        xmlDoc.send( null );
      }
 
      function process() {
        if ( xmlDoc.readyState != 4 ) return ;
        document.getElementById("output").value = xmlDoc.responseText ;
      }
 
      function empty() {
        document.getElementById("output").value = '<empty>' ;
      }
    </script>
 
    <body>
      <textarea id="output" cols='300' rows='40'><empty></textarea>
      <br></br>
      <button onclick="load()">Load</button> &nbsp;
      <button onclick="empty()">Clear</button>
    </body>
  </html>
Avatar billede ingeman Seniormester
20. januar 2007 - 09:38 #1
altså den her side
http://www.wunderground.com/global/stations/06024.html
Avatar billede roenving Novice
20. januar 2007 - 12:07 #2
Hvorfor tager du ikke rss-feeden: http://www.wunderground.com/auto/rss_full/global/stations/06024.xml?units=both ?-)
Avatar billede ingeman Seniormester
20. januar 2007 - 15:36 #3
Ja den skal jeg også bruge - hvordan læser man så lige ind fra den
jeg skal også læse ind fra Ical

http://www.wunderground.com/auto/ical/global/stations/06024.ics?units=both

Jeg har selv det her kode - hvordan masker mand så de info ud man skal bruge ?

<html>
    <script>
      var xmlDoc = null ;
 
      function load() {
        if (typeof window.ActiveXObject != 'undefined' ) {
          xmlDoc = new ActiveXObject("Microsoft.XMLHTTP");
          xmlDoc.onreadystatechange = process ;
        }
        else {
          xmlDoc = new XMLHttpRequest();
          xmlDoc.onload = process ;
        }
//      xmlDoc.open( "GET", "http://www.wunderground.com/global/stations/06024.html", true );
       
    //    xmlDoc.open( "GET", "http://www.wunderground.com/global/DN.html", true );
        xmlDoc.open( "GET", "http://www.wunderground.com/auto/rss_full/global/stations/06024.xml?units=both", true );
    //        xmlDoc.open( "GET", "http://www.wunderground.com/auto/ical/global/stations/06024.ics?units=both", true );       
        xmlDoc.send( null );
      }
 
      function process() {
        if ( xmlDoc.readyState != 4 ) return ;
        document.getElementById("output").value = xmlDoc.responseText ;
      }
 
      function empty() {
        document.getElementById("output").value = '<empty>' ;
      }
    </script>
 
    <body>
      <textarea id="output" cols='300' rows='40'><empty></textarea>
      <br></br>
      <button onclick="load()">Load</button> &nbsp;
      <button onclick="empty()">Clear</button>
    </body>
  </html>
Avatar billede roenving Novice
20. januar 2007 - 16:03 #4
Prøv at kaste det ind i et element, og analysér dig frem til hvad du skal bruge !-)
Avatar billede ingeman Seniormester
20. januar 2007 - 16:19 #5
Hvordan gør så det ?
Avatar billede ingeman Seniormester
21. januar 2007 - 10:14 #6
<%

dim URLToRSS,MaxNumberOfItems,MainTemplateHeader,MainTemplateFooter,ItemTemplate,ErrorMessage,xmlHttp,RSSXML,xmlDOM
  dim RSSItems,RSSItemsCount,j,i,RSSItem,child,RSStitle,RSSlink,RSSdescription,ItemContent
 
  ' =========== RSS2HTML.ASP for ASP/ASP.NET ==========
' copyright 2005 (c) www.Bytescout.com
' ===============================================

' =========== configuration =====================
' ##### URL to RSS Feed to display #########
URLToRSS = "http://www.wunderground.com/auto/rss_full/global/stations/06024.xml?units=both"          'RSS Feed
' URLToRSS = "http://www.wunderground.com/auto/ical/global/stations/06024.ics?units=both"                'iCal Feed   
' ##### max number of displayed items #####
MaxNumberOfItems = 7

' ##### Main template constants
MainTemplateHeader = "<table>"
MainTemplateFooter = "</table>"
' #####

' ##### Item template.
' ##### {LINK} will be replaced with item link
' ##### {TITLE} will be replaced with item title
' ##### {DESCRIPTION} will be replaced with item description
ItemTemplate = "<tr><td><b><font size=1><a href=" & """{LINK}""" & ">{TITLE}</a><BR>{DESCRIPTION}</td></tr>"

' ##### Error message that will be displayed if not items etc
ErrorMessage = "Error has occured while trying to process " &URLToRSS & "<BR>Please contact web-master"

' ================================================

Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", URLToRSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText

Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = false
xmlDOM.LoadXml(RSSXML)

Set xmlHttp = Nothing ' clear HTTP object

Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS
Set xmlDOM = Nothing ' clear XML

RSSItemsCount = RSSItems.Length-1

' writing Header
if RSSItemsCount > 0 then
  Response.Write MainTemplateHeader
End If

j = -1

For i = 0 To RSSItemsCount
Set RSSItem = RSSItems.Item(i)

  for each child in RSSItem.childNodes
  Select case lcase(child.nodeName)
    case "title"
          RSStitle = child.text
    case "link"
          RSSlink = child.text
    case "description"
          RSSdescription = child.text
  End Select
  next

  j = J+1

  if J<MaxNumberOfItems then
  ItemContent = Replace(ItemTemplate,"{LINK}",RSSlink)
  ItemContent = Replace(ItemContent,"{TITLE}",RSSTitle)
  Response.Write Replace(ItemContent,"{DESCRIPTION}",RSSDescription)
  ItemContent = ""
  End if

Next

' writing Footer
if RSSItemsCount > 0 then
  Response.Write MainTemplateFooter
else
  Response.Write ErrorMessage
End If

%>

Har fundet det her stykke ASP som returner RSS Feed - men hvordan skal koden se hvis den skal returner iCal Feed - link er indsat i koden.
Avatar billede roenving Novice
21. januar 2007 - 10:34 #7
En post ser således ud:

BEGIN:VEVENT
SEQUENCE:1
CLASS:PUBLIC
CREATED:20070121T000000Z
LAST-MODIFIED:20070121T000000Z
GEO:57.06999969;8.69999981
UID:1169726400-4-383938304
DTSTAMP:20070125T120000Z
DTSTART;VALUE=DATE:20070125
ORGANIZER;CN=Weather Underground:MAILTO:aaron@wunderground.com
DESCRIPTION:Thursday - Scattered Clouds.        High 37 F  / 3 C  Wind WSW  6 mph. / 10 km/h.        \nThursday Night - Chance of Rain. Low 32 F  / 0 C  Wind SW                29 mph. /  46 km/h. Chance of precipitation 30%.
LOCATION:Thisted\, Denmark
STATUS:CONFIRMED
SUMMARY:Scattered Clouds 37F / 32F | 3C / 0C
TRANSP:TRANSPARENT
END:VEVENT

-- så du skal læse linje for linje, til du møder en BEGIN, derefter vil jeg tro, at du har brug for CREATED (her 21/1-2007 kl. 0:00), DTSTAMP (her 25/1-2007 kl. 12), DESCRIPTION og SUMMARY !-)
Avatar billede ingeman Seniormester
21. januar 2007 - 10:46 #8
Hvad skal rettes i asp koden så man kan læsse poster ?
Avatar billede ingeman Seniormester
21. januar 2007 - 10:49 #9
jeg har brug for DESCRIPTION,LOCATION og SUMMARY
Avatar billede roenving Novice
21. januar 2007 - 10:56 #10
Jeg kender næsten ikke noget til VBScript-syntaksen, så de specifikke krøller må du få et andet sted, men noget i denne stil:

While NOT EOF
iCalLine = ReadLine(fil)
if iCalLine {indeholder/starter med} "BEGIN" then Response.Write "<tr>"
if iCalLine {indeholder/starter med} "END" then Response.Write "</tr>"
if iCalLine {indeholder/starter med} "DESCRIPTION" then Response.Write "<td>" + Mid(iCalLine,13) + "</td>"
if iCalLine {indeholder/starter med} "LOCATION" then Response.Write "<td>" +  Mid(iCalLine,10) + "</td>"
if iCalLine {indeholder/starter med} "SUMMARY" then Response.Write "<td>" +  Mid(iCalLine,9) + "</td>"
Loop
Avatar billede ingeman Seniormester
21. januar 2007 - 10:59 #11
Ok tak for hjælpen så langt - åbn svar.
Avatar billede roenving Novice
21. januar 2007 - 11:01 #12
Velbekomme '-)
Avatar billede roenving Novice
21. januar 2007 - 11:28 #13
-- og tak for point ;~}
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Webudvikling kurser
Vi tilbyder markedets bedste kurser inden for webudvikling
Se alle Webudvikling kurser

Flere spørgsmål fra HTML kategorien

Titel Indlæg Oprettet Seneste aktivitet
Hjælp med HTML og CSS Af Nojsa i HTML 18 10/09/202515:07 17/09/202515:11
CSS 2 x firkanter + tekst på samme linje Af nemlig i HTML 3 19/03/202522:16 20/03/202513:04
Se og ændre html på en webside Af magger i HTML 4 11/03/202513:55 12/03/202506:56
Få input felt, der er med fed skrift og formatteres på linje Af KurtG i HTML 5 02/03/202520:05 04/03/202515:40
Variabler som ikke virker Af Frits Jensen i HTML 3 30/10/202409:37 01/01/202515:27
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 11:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
20/0714:16 Smartwatch med faldalarm og sos Af hkv i Fitness & Smartwatches
White papers
Flere white papers »