Można to zrobić i na specjalnie Twoje życzenie podpinam pod wilgotność opady. Z tym że nie jestem w stanie zmienić jednostek z % na mm ani nie da się wyświetlić np 7,2 ucina końcówkę i widać tylko 7 :(
//Weather Interia.pl
// v 1.1
// September 2006
main
{
debug_log;
pointer weatherStart
{
go_start;
skip_to_text("#bddfff", false);
};
pointer weatherEnd
{
skip_to_text("napisz do", true);
};
map skyMap
{
key_value("d/3/1000", "2");
key_value("d/2/1000", "2");
key_value("n/3/1000", "17");
key_value("n/2/1000", "17");
key_value("n/3/1100", "18");
key_value("n/2/1100", "18");
key_value("d/3/1100", "3");
key_value("d/2/1100", "3");
key_value("d/3/1111", "3");
key_value("d/2/1111", "3");
key_value("n/3/1111", "18");
key_value("n/2/1111", "18");
key_value("d/3/1112", "14");
key_value("d/2/1112", "14");
key_value("n/3/1112", "28");
key_value("n/2/1112", "28");
key_value("d/3/1200", "4");
key_value("d/2/1200", "4");
key_value("n/3/1200", "19");
key_value("n/2/1200", "19");
key_value("d/3/1211", "3");
key_value("d/2/1211", "3");
key_value("n/3/1211", "18");
key_value("n/2/1211", "18");
key_value("d/3/1212", "14");
key_value("d/2/1212", "14");
key_value("n/3/1212", "28");
key_value("n/2/1212", "28");
key_value("n/3/1300", "20");
key_value("n/2/1300", "20");
key_value("d/3/1300", "5");
key_value("d/2/1300", "5");
key_value("d/3/1311", "7");
key_value("d/2/1311", "7");
key_value("n/3/1311", "21");
key_value("n/2/1311", "21");
key_value("d/3/1312", "7");
key_value("d/2/1312", "7");
key_value("n/3/1312", "21");
key_value("n/2/1312", "21");
key_value("n/2/1313", "22");
key_value("n/3/1313", "22");
key_value("d/2/1313", "8");
key_value("d/3/1313", "8");
key_value("d/3/1332", "9");
key_value("d/2/1332", "9");
key_value("n/3/1332", "23");
key_value("n/2/1332", "23");
};
//open url
open_url("
http://pogoda.interia.pl/miasta?id=" + CityCode, "GET");
go_start;
select_area(weatherStart, weatherEnd);
string sky = "";
string windDirection = "";
string windSpeedUnits= "kph";
string tmprUnits ="C";
string pressureUnits = "hPa";
string hour = "";
string dayOfMonth = "";
string dayIndex = "";
string WTempMax = "";
string WTempMin = "";
string WPress = "";
string WWindSpeed = "";
string WWindDir = "";
string WSky = "";
string WHour = "";
string amount = "";
string humidity = "";
string WHumidity = "";
//Current conditions
go_start;
skip_to_text(" ", false);
//Day of Month
skip_to_text("</b>- ", false);
begin_var;
skip_chars("0-9");
string dayOfMonth = end_var;
//Hour
skip_to_text("od godz. ", false);
begin_var;
skip_chars("0-9");
string hour = end_var;
//WHour
skip_to_text("od godz. ", false);
begin_var;
skip_chars("0-9");
string WHour = end_var;
//wind speed
skip_to_text("Wiatr: ", true);
begin_var;
skip_chars("0-9");
string windSpeed = end_var;
//wind direction
skip_to_text(" ", false);
begin_var;
skip_to_chars("<");
string windDirection = end_var;
//icon
sky = "0";
skip_to_text("/img/ikony/", true);
begin_var;
skip_to_chars(".");
sky = end_var;
if (sky) sky = skyMap[sky];
//WWind speed
skip_to_text("Wiatr: ", true);
begin_var;
skip_chars("0-9");
string WWindSpeed = end_var;
//Wwind direction
skip_to_text(" ", false);
begin_var;
skip_to_chars("<");
string WWindDir = end_var;
//Wicon
WSky = "0";
skip_to_text("/img/ikony/", true);
begin_var;
skip_to_chars(".");
WSky = end_var;
if (WSky) WSky = skyMap[WSky];
//temp min
skip_to_text(" <b>", true);
begin_var;
skip_to_chars("<");
string tmprLo = end_var;
//temp max
skip_to_text("tex3B", true);
skip_to_text(">", true);
begin_var;
skip_to_chars("<");
string tmprHi = end_var;
//Wtemp min
skip_to_text(" <b>", true);
begin_var;
skip_to_chars("<");
string WTempMin = end_var;
//Wtemp max
skip_to_text("tex3B", true);
skip_to_text(">", true);
begin_var;
skip_to_chars("<");
string WTempMax = end_var;
//pressure
skip_to_text(" ", true);
skip_to_text("<b>", true);
begin_var;
skip_chars("0-9");
string pressure = end_var;
//Rain
skip_to_text("Deszcz: <b>", true);
begin_var;
skip_to_chars(" ");
string humidity = end_var;
//Wpressure
skip_to_text(" ", true);
skip_to_text("<b>", true);
begin_var;
skip_chars("0-9");
string WPress = end_var;
//WRain
skip_to_text("Deszcz: <b>", true);
begin_var;
skip_to_chars(" ");
string WHumidity = end_var;
add_day;
if (WHour $ "00")
{
hour = WHour;
sky = WSky;
tmprLo = WTempMin;
tmprHi = WTempMax;
pressure = WPress;
windSpeed = WWindSpeed;
windDirection = WWindDir;
humidity = WHumidity
add_day;
}
//rest of Today
amount = "";
if (WHour ~ "12") amount = ".";
if (WHour $ "18") if (WHour $ "00")
{
skip_to_text("ludzkiego odczucia", true);
while (amount $ "..")
{
//hour
skip_to_text("<br> ", true);
begin_var;
skip_to_chars("-");
string hour = end_var;
//icon
sky = "0";
skip_to_text("/img/ikony/", true);
begin_var;
skip_to_chars(".");
sky = end_var;
if (sky) sky = skyMap[sky];
//temp min
skip_to_text(" <b>", true);
begin_var;
skip_to_chars("<");
string tmprLo = end_var;
//temp max
skip_to_text("tex3B", true);
skip_to_text(">", true);
begin_var;
skip_to_chars("<");
string tmprHi = end_var;
//pressure
skip_to_text(" ", true);
skip_to_text("<b>", true);
begin_var;
skip_chars("0-9");
string pressure = end_var;
//wind speed
skip_to_text("Wiatr: <b>", true);
begin_var;
skip_chars("0-9");
string windSpeed = end_var;
//wind direction
skip_to_text(" ", true);
begin_var;
skip_to_chars("<");
string windDirection = end_var;
//Rain
skip_to_text("Deszcz: <b>", true);
begin_var;
skip_to_chars("<");
string humidity = end_var;
add_day;
amount = amount + ".";
}
}
amount = "";
dayIndex = "";
//next days
while (dayIndex $ "......")
{
//Day of Month
skip_to_text("#bddfff", true);
skip_to_text(" <b>", true);
skip_to_text("</b>- ", true);
begin_var;
skip_to_chars(".");
string dayOfMonth = end_var;
if (dayIndex ~ "")
{
if (WHour ~ "00")
{
hour = WHour;
sky = WSky;
tmprLo = WTempMin;
tmprHi = WTempMax;
pressure = WPress;
windSpeed = WWindSpeed;
windDirection = WWindDir;
humidity = WHumidity;
add_day;
}
}
while (amount $ "....")
{
//hour
skip_to_text("<br> ", true);
begin_var;
skip_to_chars("-");
string hour = end_var;
if (hour ~ "7") hour = "14";
//icon
sky = "0";
skip_to_text("/img/ikony/", true);
begin_var;
skip_to_chars(".");
sky = end_var;
if (sky) sky = skyMap[sky];
// temp min
skip_to_text(" <b>", true);
begin_var;
skip_to_chars("<");
string tmprLo = end_var;
// temp max
skip_to_text("tex3B", true);
skip_to_text(">", true);
begin_var;
skip_to_chars("<");
string tmprHi = end_var;
//pressure
skip_to_text(" ", true);
skip_to_text("<b>", true);
begin_var;
skip_chars("0-9");
string pressure = end_var;
//wind speed
skip_to_text("Wiatr: <b>", true);
begin_var;
skip_chars("0-9");
string windSpeed = end_var;
//wind direction
skip_to_text(" ", true);
begin_var;
skip_to_chars("<");
string windDirection = end_var;
//Rain
skip_to_text("Deszcz: <b>", true);
begin_var;
skip_to_chars("<");
string humidity = end_var;
add_day;
//amount = amount + "."
if (hour ~ "18") amount = "....";
if (hour ~ "19") amount = "....";
}
skip_to_text("#bddfff", true);
dayIndex = dayIndex + ".";
amount = "";
}
}