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

Paylaşım Tarihi: 02.08.2016, 14:51:48 #1
lDarkAngeL İçerdemiyiz ?
Efsane Üye
Status: Çevrimiçi Yorum Sayısı:1,199 Konu Sayısı:508 Üyelik Tarihi:19.03.2016 Rep Puanı: 778

'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ı
  MemoryHackers @DwordTeam2016-2017



İmage









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

Konuyu görüntüleyenler:
1 Misafir