Unutulan Değil iz bırakan OL!
Süper Üye
'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