+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : قراءة البيانات من موقع الكتروني (/showthread.php?tid=23189)
قراءة البيانات من موقع الكتروني - Rabeea Qbaha - 03-01-18
السلام عليكم شباب
كان لي مشروع يستخدم خدمات ياهو للحصول على اسعار العملاتلكن تم اغلاقه لا اعرف ما السبب
و الان اريد بديل للحصول على اسعار العملات.
هنا يوجد موقع يوفر اسعار العملات على شكل قائمه : https://openexchangerates.org/api/latest.json?app_id=your_id
كيف استطيع ان اقوم بقراءة بيانات معينة من الصفحه.
فمثلا سعر الدينار او سعر الريال .... الى اخ
RE: قراءة البيانات من موقع الكتروني - طالب برمجة - 03-01-18
استخدم مكتبة Json.NET
بعد فك الضغط عنها ستجد مجلدات لكل Framework على حدة مثل net20 وnet35 وnet40 وnet45 و...
اختر المجلد الذي يناسب Framework لديك واستخدم المكتبة التي بداخله
هذا كود قراءة البيانات
PHP كود :
Dim wc As New Net.WebClient()
Dim json As String = wc.DownloadString("https://openexchangerates.org/api/latest.json?app_id=dadae4e3acbb40bcaed5881c9f40f015")
Dim jResults As JObject = JsonConvert.DeserializeObject(json)
MsgBox(jResults("rates")("USD"))
RE: قراءة البيانات من موقع الكتروني - zinom - 03-01-18
ماشاء الله عليك اخي الكريم
النتيجه سليمه 100%
لكن لم البطئ في الرد من قبل الرابط ؟!
[attachment=16586]
RE: قراءة البيانات من موقع الكتروني - طالب برمجة - 03-01-18
البطئ يكون من النت أو بسبب الضغط على الموقع.
ولتحويل وقت تحديث الأسعار الموجود في timestamp
PHP كود :
MsgBox(New Date(jResults("timestamp")))