29 March 2008, 12:00 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Asp. net ile hava durumu vb alma
Asp. net ile hava durumu vb alma Gethtml fonksiyonuyla html sayfasi veya xml dosyanin içerigini getirir <%@ page language="VB" %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Net" %> <%@ Import Namespace="System.IO" %> <script language="VB" runat="server"> Private Sub downloadButton_OnClick(ByVal sender As Object, ByVal e As System.EventArgs) Dim url As String = "http://xml.progen.com.tr/havadurumu....istanbul" Dim bilgicek As String = GetHTML(url) Dim ds As String = InStr(1, bilgicek, "<durum>" Dim de As String = InStr(1, bilgicek, "</durum>" Dim durum As String = Mid(bilgicek, ds, de - ds) Dim ss As String = InStr(1, bilgicek, "<sicaklik>" Dim se As String = InStr(1, bilgicek, "</sicaklik>" Dim sicaklik As String = Mid(bilgicek, ss, se - ss) Response.Write("Durum: " & durum & "<br>Sycaklyk: " & sicaklik) End Sub Private Function GetHTML(ByVal strURL As String) As String Dim objResponse As WebResponse = Nothing Dim strHTML As String Try Dim objUri As Uri = New Uri(strURL) Dim objRequest As WebRequest = WebRequest.Create(objUri) objResponse = objRequest.GetResponse Dim objStream As Stream = objResponse.GetResponseStream Dim encode As Encoding = System.Text.Encoding.UTF8 Dim objReader As StreamReader = New StreamReader(objStream, encode) strHTML = objReader.ReadToEnd Catch ex As Exception Return ex.ToString Finally objResponse.Close() End Try Return strHTML End Function </script> <form id="Form1" runat="server"> <asp:button id="downloadButton" runat="server" text="Download" tabindex="2" onclick = "downloadButton_OnClick"></asp:button> </form> |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Seçenekler | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Şu anda Forum'un durumu | agasar | Serbest Atış | 0 | 15 January 2009 16:39 |
KAFİRLERİN,BULUĞ ÇAĞINDAN ÖNCE VEFAT EDEN ÇOCUKLARIN AHİRETTEKİ DURUMU | umut | Haşir | 0 | 12 June 2008 13:36 |
Sayinin kübünü alma | tamerr89 | C++ | 0 | 29 March 2008 17:39 |
3 gunluk hava durumu | tamerr89 | WML | 0 | 08 February 2008 13:52 |
TIRNAKLARINI OJE İLE BOYAYAN BİR KADININ DURUMU NASILDIR. | mevlutgunes | Hadis ve Ayetler | 0 | 27 March 2006 08:58 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |