السلام عليكم
اريد كود لاحضار سعر بيع و شراء الدولار من موقع البنك الي شبكة الجريد فيو .
مع خالص الشكر
السلام عليكم
ضع رابط الموقع المراد احضار المعلومة منه.
السلام عليكم
كل موقع له تركيبة تختلف عن غيره
تفضل الكود
كود :
'سعر الشراء
Dim BuyPrice As Double
'سعر البيع
Dim SellPrice As Double
'البنك الأهلي المصري
Dim NationalBankOfEgyptUrl As String = "http://www.nbe.com.eg/ExchangeRate.aspx"
Dim NationalBankOfEgyptPtr As String = "(?<=value=')[\d+\.?]+?(?=' id=""txtBanKNote)"
'البنك المركزي المصري
Dim CentralBankEgyptUrl As String = "http://www.cbe.org.eg/ar/EconomicResearch/Statistics/Pages/ExchangeRatesListing.aspx"
Dim CentralBankEgyptPtr As String = "(?<=<td>)[\d+\.?]+?(?=</td>)"
'بنك القاهرة
Dim BanqueDuCaireUrl As String = "http://www.banqueducaire.com/Arabic/MarketUpdates/Pages/CurrencyExchange.aspx"
Dim BanqueDuCairePtr As String = "(?<=<td class=""ms-vb"">)[\d+\.?]+?(?=</td>)"
Function GetData(url As String, ptr As String) As Boolean
Try
Using wc As New Net.WebClient() With {.Encoding = System.Text.Encoding.UTF8}
Dim s As String = wc.DownloadString(url)
Dim ms As MatchCollection = Regex.Matches(s, ptr)
If ms.Count Then
BuyPrice = ms(0).Value
SellPrice = ms(1).Value
End If
End Using
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
وطريقة التعامل مع الكود
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If GetData(NationalBankOfEgyptUrl, NationalBankOfEgyptPtr) Then
TextBox1.Text = BuyPrice
TextBox2.Text = SellPrice
End If
End Sub
كما ترى لكل بنك له Url وPtr تستطيع التغيير بينها في الكود
على سبيل المثال
غير NationalBankOfEgyptUrl إلى CentralBankEgyptUrl مع تغيير NationalBankOfEgyptPtr إلى CentralBankEgyptPtr
مشكور يا اخي يعطيك العافيه بس كنت اتمني لو تشرح جزء التركيبة بتاعت الموقع علشان لو عاوز اطبقها على مواقع اخري مع جزيل الشكر
ولو كود أحضار البيانات كلها داخل داتا جريد فيو DataGridView
مع تاريح ووقت اخر تحديث قي الصفحه ايضاَ
مثل فى البنك الاهلى
أخر تحديث للأسعار بتاريخ : 13/03/2017 10:17:57
ألف شكر لك أخ مساعدة على الكود الرائع والمميز، لكن لدي سؤال لو تكرمت:
ماذا لو كان في الصفحة عدة جداول؛ مثل هذه الصفحة:
حيث الكلاس الخاص بالجدول الأول هو : table table-hover local-cur
وهنالك كلاس أسعار الذهب: table table-hover gold
وكلاس أسعار العملات الأجنبية: table table-hover global-cur
ولنفرض أنني أريد القيم من جدول أسعار الذهب فقط فكيف أعدل على الجزئية الخاصة بالرابط:
PHP كود :
Dim SpTodayPtr As String = "(?<=<strong>)[\d+\.?]+?(?=</strong>)"
وشكراً لك 