hava durumu çok acil

**msecure** · 12.11.2003 12:55

<%
'XMLHTTP Open
private Function GETHTTP(adres)
Set StrHTTP = server.CreateObject("Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
'XMLHTTP Close
URL = "http://www.tr.net"
haberim = GETHTTP(URL)
haberim = Replace(haberim,"Ankara" , "Ankara" )
If Err.Number <> 0 Then
Response.Write "Bağlantı Başarısız... "
Response.End
End If
dim baslangic , bitis
baslangic = "<table border=0 cellpadding=0 cellcpacing=0>"
bitis = "</table>"
dim x , abc
x = 0
abc = 0
dim lale
lale = ""
Do Until abc = 2
x = x + 1
If Mid(haberim,x,Len(bitis)) = bitis and abc = 1 Then
abc = abc + 1
End If
If Mid(haberim,x,Len(baslangic)) = baslangic Then
abc = abc + 1
Else
If abc = 1 Then
lale = lale + Mid(haberim,x,1)
End If
End If
Loop
Function seklesok(hammadde)
Dim gecicigeyik
gecicigeyik = hammadde
gecicigeyik = Replace(gecicigeyik, "" , "" , 1, -1, 1)
gecicigeyik = Replace(gecicigeyik, "" , "" & vbCrLf, 1, -1, 1)
seklesok = gecicigeyik
End Function
Response.Write "<"
Response.Write seklesok(lale)
Response.Write "</table>"
%>

Şöyle bir kod var hava durumunu getiriyor ama ben 3 ilin değil sadefce mesela ankaranin gelmesini istiyorum ayrıca background ayarlarını da yapmak istiyorum öneriniz var mı? Çok acil

**absconder** · 12.11.2003 14:27

acil olduğu için; geliştirilebilir;

not : http://forum.zoque.net/showthread.php?t=13770 bakmanı tavsiye ederim...

Kod:

<meta http-equiv="Content-Type" content="text/HTML; charset=windows-1254">
<% 
Class H 
	dim ilAdi, sicaklikAlt, sicaklikUst, resim
end Class

dim iller() 
for i=1 to 3 
	redim preserve iller(i) : set iller(i) = new H 
next

iller(1).ilAdi = "Ankara" :  iller(2).ilAdi = "İstanbul" : iller(3).ilAdi = "İzmir"

private Function GETHTTP(adres) 
	Set StrHTTP = server.CreateObject("Microsoft.XMLHTTP" ) 
	StrHTTP.Open "GET" , adres, false 
	StrHTTP.sEnd 
	GETHTTP = StrHTTP.Responsetext 
	Set StrHTTP = Nothing 
End Function 

URL = "http://www.tr.net" 
strHTML = GETHTTP(URL) 

If Err.Number <> 0 Then 
	Response.Write "Bağlantı Başarısız... " 
	Response.End 
End If 

function havaDurumu(il)
	ilNo = ilGetir(il)
	x = split(strHTML,"<table border=0 cellpadding=0 cellcpacing=0>")
	y = split(x(1),"</table>")
	z = split(y(0),chr(10))
	q = split(temizle(replace(z(ilNo),"""","")),",")
	w = split(q(3)," ")
	q(2) = left(q(2),len(q(2)) - 1)
	s = split(q(2),"/")
	set havadurumu = new H
	havaDurumu.ilAdi = il
	havaDurumu.sicaklikAlt = s(0)
	havaDurumu.sicaklikUst = s(1)
	havaDurumu.resim = w(0)
end function

function temizle(args)
	tmp = replace(args,"<tr><td style=font-size:10px;font-weight:bold;font-family:verdana;>",",")
	tmp = replace(tmp,"</td><td style=font-size:10px;font-weight:bold;font-family:verdana; align=center>",",")
	tmp = replace(tmp,"C</td><td><img src=",",")
	temizle = tmp
end function

function ilGetir(args)
	tmp = 0
	for i= 1 to 3
		if args = iller(i).ilAdi then tmp = i
	next
	ilGetir = tmp
end function

response.write "--- Örnek Gösterimler ---<br>"
response.write havaDurumu("Ankara").ilAdi & "<br>" & havaDurumu("İstanbul").sicaklikAlt & "<br>" & havaDurumu("İzmir").sicaklikUst & "<br>" &  havaDurumu("İzmir").resim

response.write "<br><br><br>herhangi bir il için<br><br>"
response.write "<table><tr><td>" & havaDurumu("Ankara").ilAdi & " ilimizde beklenen sıcaklıklar :</td><td>en düşük</td><td>" & havaDurumu("Ankara").sicaklikAlt  & "</td><td><td>enyüksek</td><td bgcolor=red>" & havaDurumu("Ankara").sicaklikUst & "</td><td><img src="& havaDurumu("Ankara").resim &"></td></tr></table>"
%>

**msecure** · 12.11.2003 15:53

<%
if request.ServerVariables("QUERY_STRING")<>"" then
il=request("il")
if il="YOK" then
il="Ankara"
end if
else
il="ANKARA"
end if
%>

<body bgcolor="#7B8EA5" leftmargin="0" topmargin="0" >
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="161"> <div align="center"><font color="#000000" size="2" face="Arial">
<%
private Function GETHTTP(adres)
Set StrHTTP = server.CreateObject("Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.send
GETHTTP = StrHTTP.responsetext
Set StrHTTP = Nothing
end Function
URL = "http://www.meteor.gov.tr/pages/"&il&".htm"
bilgicek = GETHTTP(URL)

cekilen=mid(bilgicek,1,1961)
bilgicek= Replace(bilgicek, cekilen, "", 1, -1, 0)
bitis=InStr(1,bilgicek,"</h1>" )
sehir=mid(bilgicek,1,bitis-1)
bilgicek= Replace(bilgicek, sehir, "", 1, -1, 0)

cekilen=mid(bilgicek,1,320+len(sehir))
bilgicek=Replace(bilgicek,cekilen,"", 1,-1,0)
bitis=Instr(1,bilgicek,".")
saat=mid(bilgicek,bitis-2,bitis+1)
bitis=Instr(1,bilgicek,"<")
tarih=mid(bilgicek,1,bitis-1)
bilgicek=Replace(bilgicek,tarih,"",1,-1,0)
bitis=InStr(1,bilgicek,"<br>" )

cekilen=mid(bilgicek,1,bitis+3)
bilgicek=replace(bilgicek,cekilen,"",1,-1,0)
bitis=Instr(1,bilgicek,"<")
drm=mid(bilgicek,1,bitis-1)
bilgicek=replace(bilgicek,drm,"",1,-1,0)
cekilen=mid(bilgicek,1,74)
bilgicek= Replace(bilgicek, cekilen, "", 1, -1, 0)
bitis=Instr(1,bilgicek,"<")
isi=mid(bilgicek,1,bitis-3)
bitis=Instr(1,bilgicek,"Nem")
bitis=bitis+25
cekilen=mid(bilgicek,1,bitis)
bilgicek=replace(bilgicek,cekilen,"",1,-1,0)
bitis=Instr(1,bilgicek,"<")
nem=mid(bilgicek,1,bitis-1)
bilgicek=replace(bilgicek,nem,"",1,-1,0)
%>
<font color="#FFFFFF">Anlara Sıcaklık <%=isi%> °C</font></font></div></td>
</tr>
</table>
</body>

Bu kod ile aslında meteorolojiden geliyor fakat hata çok alıyorum onun nedenini anlayamadım.
Senin kodunda gerekli olan yer sadece sicaklık yani text ankara önüne sıcaklık gelicek o kadar bana lazım olan yer, senin koduda ayıkladım ama çalışmadı

**absconder** · 12.11.2003 16:04

en son satırdaki

Kod:

response.write "<table><tr><td>" & havaDurumu("Ankara").ilAdi & " ilimizde beklenen sıcaklıklar :</td><td>en düşük</td><td>" & havaDurumu("Ankara").sicaklikAlt  & "</td><td><td>enyüksek</td><td bgcolor=red>" & havaDurumu("Ankara").sicaklikUst & "</td><td><img src="& havaDurumu("Ankara").resim &"></td></tr></table>"

satırını kaldır. diğer kodları sayfanın içine yerleştir. sonrada ilin ismini yazacağın yere

<%=havaDurumu("Ankara").ilAdi %>

en düşük sıcaklığı yazan yere

<%=havaDurumu("Ankara").sicaklikAlt%>

en yüksek sıcaklığı yazacağın yere

<%=havaDurumu("Ankara").sicaklikUst%> yaz, çalışacaktır. bende bir hata yok,.

eğer biraz daha beklersen, kendi sitemde bu üç ilin sıcaklıklarını XML olarak yerleştireceğim, ordan da kullanabilirsin.

**absconder** · 12.11.2003 16:08

bu arada verdiğin, mesela,

http://www.meteor.gov.tr/pages/ANKARA.htm

sayfası güncellenmiyor. haberin olsun. onun yerine

http://www.meteor.gov.tr/2003/iller/ANKARA.htm

adresi güncel bir adrestir. ama içerik text değil image...

**msecure** · 12.11.2003 16:51

yarın da zamanım var bu iş için bana haber verirsen sevinirim

**absconder** · 12.11.2003 17:41

aşağıda kendi sitemdeki kullandığımı veriyorum, aşağıdaki kodlar yardımı ile kullanabilirsin. bu JavaScript versiyondur. tr.net çalıştığı sürece doğru sonuçlar verecektir.

HTML Kodu:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/HTML; charset=windows-1254">
<script src="http://www.sipidik.com/material/havadurumu.ASP?usage=JavaScript" language="JavaScript"></script>
</head>

<body>
il1 = Ankara<br>
il2 = İstanbul<br>
il3 = İzmir<br><br>
<script>document.write(il2.ilAdi + " : " + il2.sicaklikAlt + "/" + il2.sicaklikUst +" °C");</script>
</body>
</HTML>

eğer XML olarak kullanmak istersen : http://www.sipidik.com/material/hava....asp?usage=XML

**msecure** · 14.11.2003 10:43

bunlar çalışmıyor ?

**absconder** · 14.11.2003 11:52

bu kodlar bende [=localde] ve internette çalışıyor. eğer ASP olarak çalıştıramıyorsa http://forum.zoque.net/showthread.php?t=13831 'de anlattığım şekilde JavaScript yada XML olarak kullanabilirsin. www.tr.net e bağlanacağına benim siteme bağlanıp burdan verileri alabilirsin.

<%
Class H
dim ilAdi, sicaklikAlt, sicaklikUst, resim
end Class

dim iller()
for i=1 to 3
redim preserve iller(i) : set iller(i) = new H
next

iller(1).ilAdi = "Ankara" : iller(2).ilAdi = "İstanbul" : iller(3).ilAdi = "İzmir"

private Function GETHTTP(adres)
Set StrHTTP = server.CreateObject("Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function

URL = "http://www.tr.net"
strHTML = GETHTTP(URL)

If Err.Number <> 0 Then
Response.Write "Bağlantı Başarısız... "
Response.End
End If

function havaDurumu(il)
ilNo = ilGetir(il)
x = split(strHTML,"<table border=0 cellpadding=0 cellcpacing=0>")
y = split(x(1),"</table>")
z = split(y(0),chr(10))
q = split(temizle(replace(z(ilNo),"""","")),",")
w = split(q(3)," ")
q(2) = left(q(2),len(q(2)) - 1)
s = split(q(2),"/")
set havadurumu = new H
havaDurumu.ilAdi = il
havaDurumu.sicaklikAlt = s(0)
havaDurumu.sicaklikUst = s(1)
havaDurumu.resim = w(0)
end function

function temizle(args)
tmp = replace(args,"<tr><td style=font-size:10px;font-weight:bold;font-family:verdana;>",",")
tmp = replace(tmp,"</td><td style=font-size:10px;font-weight:bold;font-family:verdana; align=center>",",")
tmp = replace(tmp,"C</td><td><img src=",",")
temizle = tmp
end function

function ilGetir(args)
tmp = 0
for i= 1 to 3
if args = iller(i).ilAdi then tmp = i
next
ilGetir = tmp
end function
%>
<table><tr><td><%=havaDurumu("Ankara").ilAdi%>&nbs p; <%=havaDurumu("Ankara").sicaklikAlt%>/<%=havaDurumu("Ankara").sicaklikUst%> <img src="<%=havaDurumu("Ankara").resim%>"></td></tr></table>

**msecure** · 15.11.2003 09:37

Yardımın için teşekkür ederim. Halloldu sayende

Konu Başlığı: hava durumu çok acil

Konuyu Paylaş

Seçenekler

hava durumu çok acil

Bu konu başlığı için etiketler

Mesaj Seçenekleri