Forum Mjukvara Programmering och digitalt skapande Tråd Inlägg

Adress till vädret i Lerum på tv4.se?

1
Skriv svar
Permalänk
Medlem
●

Adress till vädret i Lerum på tv4.se?

Försöker få fram sid-adressen.
Den vägrar och vill endast få upp allting i frames.
Prövade även att kopiera av sidan i ett program men det funkade inte.

Vill alltså ta ut infon från vädret och använda i ett script men jag får inte fram adressen!

Visa signatur

Swec @ 2001 / Chalmerist - Javisst!
'Den som har flest prylar när han dör vinner!'

Redigera
Citera flera Citera
Permalänk
Inaktiv
●

Testa om den här från DN.se funkar bättre.
http://www.dn.se/DNet/jsp/polopoly.jsp?queryArt5665=lerum&sea...

Redigera
Citera flera Citera
Permalänk
Medlem
●

http://www.tv4.se/visa/?innehall=/vader/locationForecast.asp!...

Sökte på lerum, fick upp en lista och tog bara den länken.

Redigera
Citera flera Citera
Permalänk
Medlem
●

Tack theboogieman..
pettan: Om det var så lätt skulle jag inte frågat

Visa signatur

Swec @ 2001 / Chalmerist - Javisst!
'Den som har flest prylar när han dör vinner!'

Redigera
Citera flera Citera
Permalänk
Medlem
●

funderingar!

här ligger iaf bilden på väderet! men ja vet inte om de byter till en annan bild adress lr om de bara uppdaterar sammabild, det märks väll!!

http://www.tv4.se/imagesdb/vader/ltv_vaderkartor/golkartXwebt...

resten av sidan är skapad i asp så det är omöjligt att få en uppdatering!

men här är sidan iaf:

<html>
<head>
<title>TV4 Vädret - Artikel</title>
<!-- # INCLUDERA INTE DENNA #-->
<script language="javascript" src="_inc/js/jsLib.js" type="text/javascript"></script>
<!-- END -->
<script language="JavaScript">loadFrames(2)</script>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="http://www.tv4.se/_inc/css/css.css">
<link rel="stylesheet" href="http://www.tv4.se/vadret.css">
</head>
<body bgcolor="#FFFFFF" background="images/bg_moln.gif" topmargin="3" leftmargin="2" marginheight="3" marginwidth="2">

<table>
<tr><td>
</td></tr>
<tr><td>
</td></tr>
<tr><td>
</td></tr>
</table>

<table width="526" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="522" nowrap>
<map name="vadersidhuvud">
<area shape="default" nohref>
</map>
<td valign="top" width="4"></td>
</tr>
<tr><td colspan="2" height="5"> </td></tr>
</table>
<table width="530" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="394"><table width="394" border="0" cellspacing="0" cellpadding="0">
<tr valign="top">
<td width="390">
<table width="394" border="0" cellspacing="0" cellpadding="0" bgcolor="#EEF5F9">
<tr>
<td width="390" bgcolor="#275F87" height="15">  <b><font color="#FFFFFF">Lerum </font></b></td>
<td background="images/bg_shadow_vert.gif" valign="top" width="4"> </td>
</tr>
<tr>
<td width="390" align="center" bgcolor="#003366"><img src="http://www.tv4.se/imagesdb/vader/ltv_vaderkartor/golkartXwebt..." width="388" height="312" vspace="1" hspace="1"></td>
<td background="http://www.tv4.se/vader/images/bg_shadow_vert.gif" valign="top" width="4"> </td>
</tr>
<tr>
<td width="390" bgcolor="#275F87" class="cellpad3">  <a href="http://www.tv4.se/vader/regionForecast.asp?rid=5" style="text-decoration:none"><b><font color="#ffffff"><<
Till Göteborg</font></b></a></td>
<td background="http://www.tv4.se/vader/images/bg_shadow_vert.gif" valign="top" width="4"> </td>
</tr>
<tr>
<td width="390" align="center" valign="top" class="cellpad3"> <br>

<!-- Start right now forecast -->
<table width="384" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="388" colspan="3"><b>Lerum just nu </b></td>
</tr>
<tr>
<td width="222" bgcolor="#FFFFFF">Klart</td>
<td width="81" align="center" bgcolor="#FFFFFF"><img src="http://www.tv4.se/vader/weathersymbols/now/1.gif" width="25" height="20"><br>-4</td>
<td width="81" align="center" bgcolor="#FFFFFF"><img src="http://www.tv4.se/vader/windsymbols/9.gif" width="17" height="17"><br>1 m/s</td>
</tr>
</table><br>

<!-- DelDate: 2004-01-15 --><table width="384" border="0" cellspacing="0" cellpadding="2"><tr><td colspan="2"><b>De kommande fyra dagarna</b></td></tr>
<tr>
<td width="192" align="left"><table width="188" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF" height="100%">
<tr>
<!-- ProgDate: 2004-01-16 12:00:00 --><td width="153"><b>Fredag<br>
</b>Mulet och efterhand troligen snöfall.</td>
<td width="35" align="center" valign="bottom"><img src="http://www.tv4.se/vader/weathersymbols/16.gif" width="25" height="20"><br>0</td>
</tr>
</table>
</td>
<td width="192" align="left"><table width="188" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF" height="100%">
<tr>
<!-- ProgDate: 2004-01-17 12:00:00 --><td width="153"><b>Lördag<br>
</b>Mulet men uppehåll.</td>
<td width="35" align="center" valign="bottom"><img src="http://www.tv4.se/vader/weathersymbols/11.gif" width="25" height="20"><br>-3</td>
</tr>
</table>
</td>
<tr>
<td width="192" align="left"><table width="188" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF" height="100%">
<tr>
<!-- ProgDate: 2004-01-18 12:00:00 --><td width="153"><b>Söndag<br>
</b>Mulet och efterhand byar av snöblandat regn.</td>
<td width="35" align="center" valign="bottom"><img src="http://www.tv4.se/vader/weathersymbols/14.gif" width="25" height="20"><br>3</td>
</tr>
</table>
</td>
<td width="192" align="left"><table width="188" border="0" cellspacing="0" cellpadding="2" bgcolor="#FFFFFF" height="100%">
<tr>
<!-- ProgDate: 2004-01-19 12:00:00 --><td width="153"><b>Måndag<br>
</b>Klart till halvklart och uppehåll.</td>
<td width="35" align="center" valign="bottom"><img src="http://www.tv4.se/vader/weathersymbols/2.gif" width="25" height="20"><br>-5</td>
</tr>
</table>
</td>
</table><br>

</td>
<td background="images/bg_shadow_vert.gif" valign="top" width="4"> </td>
</tr>
<tr>
<td width="354" colspan="2" align="right" valign="top" background="http://www.tv4.se/vader/images/bg_shadow_horiz.gif"><img src="images/corner_rd.gif" width="4" height="4" vspace="0" hspace="0"></td>
</tr>
</table></td>
</tr>
</table>
</td>

<td width="136" align="right" valign="top">

</td>
</tr>
</table>

<table width="132" border="0" cellspacing="0" cellpadding="0">

<tr>
<td height="2"></td>
</tr>

<tr bgcolor="#EEF5F9">
<td width="132">

</td>
</tr>

</table> <table width="132" border="0" cellspacing="0" cellpadding="0">

<tr>
<td height="2"></td>
</tr>

<tr bgcolor="#EEF5F9">
<td width="132">

</td>
</tr>
</table>

</body>
</html>

Visa signatur

Phenylpropanolamine och jag var ute och gick när vi träffade Benzedrine en riktigt jobbig jävel!!!

Redigera
Citera flera Citera
Permalänk
Medlem
●

Mm, jo så långt kom jag med...

Visa signatur

Swec @ 2001 / Chalmerist - Javisst!
'Den som har flest prylar när han dör vinner!'

Redigera
Citera flera Citera
Permalänk
Medlem
●

Du kan med asp/php kolla vad bilden heter och visa den på din sida

Visa signatur

I just love the fact that there is a global integer variable named 'i'. Just think, you will never need to declare your loop variable again!
To avoid collisions where a loop that uses 'i' calls another function that loops with 'i', be sure to stack 'i' and restore it when your function exits.

Redigera
Citera flera Citera
Permalänk
Medlem
●

Jo, men jag vill inte ha bilden, vill ha texten och ska sen använda funktionen i Samurize

Visa signatur

Swec @ 2001 / Chalmerist - Javisst!
'Den som har flest prylar när han dör vinner!'

Redigera
Citera flera Citera
Permalänk
Medlem
●

Okej, använd samma teknik fast skriv det i VBscript istället?

Visa signatur

I just love the fact that there is a global integer variable named 'i'. Just think, you will never need to declare your loop variable again!
To avoid collisions where a loop that uses 'i' calls another function that loops with 'i', be sure to stack 'i' and restore it when your function exits.

Redigera
Citera flera Citera
Permalänk
Medlem
●

Varför, jag vill fortfarande inte ha bilden?

Men jag har fått fram nu(genom en kompis) att man postar helt enkelt staden till listlocations.asp så får man ut en länk.. Men jag behöver hjälp med att få ut den. Kan inte regexp någonting.

Visa signatur

Swec @ 2001 / Chalmerist - Javisst!
'Den som har flest prylar när han dör vinner!'

Redigera
Citera flera Citera
Permalänk
Medlem
●

Hm, jo, jag menade för att få ut texten..
Om det alltid är lika många rader är det riktigt lätt, exprimentera en del med det kanske?

Visa signatur

I just love the fact that there is a global integer variable named 'i'. Just think, you will never need to declare your loop variable again!
To avoid collisions where a loop that uses 'i' calls another function that loops with 'i', be sure to stack 'i' and restore it when your function exits.

Redigera
Citera flera Citera
Permalänk
Medlem
●

Kan bara ingen funktion som kan läsa ut det...
Alltså efter antal rader etc..

Visa signatur

Swec @ 2001 / Chalmerist - Javisst!
'Den som har flest prylar när han dör vinner!'

Redigera
Citera flera Citera
Permalänk
Medlem
●

Ta hem ett script och kolla hur dom har gjort?

Visa signatur

I just love the fact that there is a global integer variable named 'i'. Just think, you will never need to declare your loop variable again!
To avoid collisions where a loop that uses 'i' calls another function that loops with 'i', be sure to stack 'i' and restore it when your function exits.

Redigera
Citera flera Citera
Permalänk
Medlem
●

Skulle använt ett annat script om jag hittar det !
Har ett dock, ett .tcl där han hämtar hem det.. Men jag kan inte läsa det.

package require http

bind pub - !sfsearch pub:sfsearch
bind pub - !fmsearch pub:fmsearch
bind pub - !temp pub:temp
bind pub - !php pub:php
bind pub - !acronym pub:acronym

proc pub:sfsearch {nick handle uhost channel arg} {
    set token [http::geturl "http://sourceforge.net/search/" -query "type_of_search=soft&words=$arg"]
    set data [http::data $token]
    
    regexp -line {Activity</B></FONT></TD></TR>\n<TR BGCOLOR="#FFFFFF"> <TD><A HREF="/projects/(.*)/">} $data whole unixname
    
    putserv "PRIVMSG $channel :http://sourceforge.net/projects/$unixname/"
}

putlog "*** SourceForge-Search Loaded"

proc pub:fmsearch {nick handle uhost channel arg} {
    set token [http::geturl "http://freshmeat.net/search/?q=$arg&section=projects"]
    set data [http::data $token]
    
    regexp -line {<a href="/redir/(.*)/(.*)/url_homepage/(.*)"><img} $data whole unixname id homepage
    
    putserv "PRIVMSG $channel :$unixname: http://freshmeat.net/redir/$unixname/$id/url_homepage/$unixname"
}

putlog "*** Freshmeat-Search Loaded"

proc pub:temp {nick handle uhost channel arg} {
    if { $arg != "" } then {
        regsub -all -- " " $arg "%20" arg
        set token [http::geturl "http://tv4.se/vader/listLocations.asp" -query "searchString=$arg"]
        set data [http::data $token]
        
        regexp -linestop -nocase -- {<a href="(.*)locationForecast.asp\?lid=(.*)">(.*)<img} $data whole foreign id city

        set token [http::geturl "http://tv4.se/vader/${foreign}locationForecast.asp\?lid=$id"]
        set data [http::data $token]

        if { $foreign != "foreign" } then {
            regexp -linestop -- {<img src="weathersymbols/now/(.*).gif" width="25" height="20"><br>(.*)</td>} $data whole icon temp
        } else {
            regexp -linestop -nocase -- {<img src="weathersymbols/(.*).gif" width="25" height="20"><br>(.*)</td>} $data whole icon temp
        }            

        putserv "PRIVMSG $channel :$city: $temp° C"
    } else {
        set token [http::geturl "http://www.y.lst.se/net/L+S+T+Y"]
        set data [http::data $token]
    
        regexp {<DIV ID="Väderobs" (.*)>\n<A CLASS=Bread>(.*)<br><br>\n(.*)<br>\n(.*)<br>\n(.*)<br>\n(.*)<br>\n(.*)<br>\n(.*)<br>\n(.*)<br>} $data whole style updated hsand kfors solleftea ssvall timra ange
        
        set token [http::geturl "http://www.tv4.se/vader/locationForecast.asp?lid=104084"]
        set data [http::data $token]
        regexp -linestop -- {<img src="weathersymbols/now/(.*).gif" width="25" height="20"><br>(.*)</td>} $data whole icon eskilstuna
    
        set token [http::geturl "http://www.tv4.se/vader/locationForecast.asp?lid=114080"]
        set data [http::data $token]
        regexp -linestop -- {<img src="weathersymbols/now/(.*).gif" width="25" height="20"><br>(.*)</td>} $data whole icon goteborg
    
        set token [http::geturl "http://www.tv4.se/vader/locationForecast.asp?lid=114081"]
        set data [http::data $token]
        regexp -linestop -- {<img src="weathersymbols/now/(.*).gif" width="25" height="20"><br>(.*)</td>} $data whole icon molndal
    
        set token [http::geturl "http://www.tv4.se/vader/locationForecast.asp?lid=105080"]
        set data [http::data $token]
        regexp -linestop -- {<img src="weathersymbols/now/(.*).gif" width="25" height="20"><br>(.*)</td>} $data whole icon linkoping

        set token [http::geturl "http://www.tv4.se/vader/locationForecast.asp?lid=107080"]
        set data [http::data $token]
        regexp -linestop -- {<img src="weathersymbols/now/(.*).gif" width="25" height="20"><br>(.*)</td>} $data whole icon vaxjo
    
        putserv "PRIVMSG $channel :$kfors, Mölndal: $molndal° C, Eskilstuna: $eskilstuna° C, Göteborg: $goteborg° C, Linköping: $linkoping° C, Växjö: $vaxjo° C"
    }
}


putlog "*** Tempscript Loaded"

proc pub:php {nick handle uhost channel arg } {
    set token [http::geturl "www.php.net/search.php" -query "lang=en&base=http://www.php.net&pattern=$arg&show=quickref"]
    if {[http::ncode $token] == 302} then {
        upvar #0 $token state
        array set meta [set ${token}(meta)]
        
        set token [http::geturl "www.php.net/$meta(Location)"]
        if {[http::ncode $token] == 302} then {
            upvar #0 $token state
            array set meta [set ${token}(meta)]
            
            putserv "PRIVMSG $channel :$arg: http://www.php.net$meta(Location)"
            return 1
        }
    }
    putserv "PRIVMSG $channel :$arg kunde inte hittas"
}

putlog "*** PHP-manual-search Loaded"

proc pub:acronym {nick handle uhost channel arg } {
    set token [http::geturl "http://www.acronymfinder.com/af-query.asp?String=exact&Acrony..."]
    set data [http::data $token]
    
    regexp -linestop -nocase -- {bgcolor="#FFFFFF"><b>(.*)</b>\n</td>} $data whole acronym
    
    putserv "PRIVMSG $channel :$arg = $acronym"
}

putlog "*** Acronymfinder Loaded"
Visa signatur

Swec @ 2001 / Chalmerist - Javisst!
'Den som har flest prylar när han dör vinner!'

Redigera
Citera flera Citera
1
Skriv svar
Senaste nyheterna
Hårdvara
Mjukvara
Övrigt
Nytt i forumet
Datorkomponenter
System
Ljud, bild och kommunikation
Spel och mjukvara