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    114 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 02.08.2016, 14:51:48 #1
lDarkAngeL MaskeliHacker
Efsane Üye
Status: Çevrimdışı Yorum Sayısı:1,241 Konu Sayısı:510 Üyelik Tarihi:19.03.2016 Rep Puanı: 805

'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ı

İmage










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

Konuyu görüntüleyenler:
1 Misafir