Trim fonksiyonuyla html sayfasından veri çekmek


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: lDarkAngeL    0 Yorum    127 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 02.08.2016, 14:51:48 #1
lDarkAngeL ClavoR
Efsane Üye
Status: Çevrimdışı Yorumları:1,325 Konuları:505 Kayıt Tarihi:19.03.2016 Rep Puanı: 831

'inet nesnesiyle veri çekeceğimeiz kaynağa bağlanıp String formatında ham veriyi elde ettikten sonra Trim fonksiyonuyla istediğimiz yerleri alarak kullanabiliriz.
'örnek olarak merkez bankasının html sitesinden döviz bilgilerini alan bir fonksiyon :

PrivateFunction DovizKurCek()
Dim strkur AsString
strkur = Inet1.OpenURL("http://www.tcmb.gov.tr/kurlar/today.html")
lblDovizUSD = Trim(Mid(strkur, InStr(strkur, "USD") + 39, 10))
lblDovizEUR = Trim(Mid(strkur, InStr(strkur, "EUR") + 39, 10))
lblDovizUSDsatis = Trim(Mid(strkur, InStr(strkur, "USD") + 55, 10))
lblDovizEURsatis = Trim(Mid(strkur, InStr(strkur, "EUR") + 55, 10))
lblDovizGBP = Trim(Mid(strkur, InStr(strkur, "GBP") + 39, 10))
lblDovizGBPsatis = Trim(Mid(strkur, InStr(strkur, "GBP") + 55, 10))
EndFunction 

Kullanıcı İmzası
Resim http://i.hizliresim.com/A3jRQr.gif










Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi