للتعلم كيف انقل قيمة من صفحة انترنت الى النموذج

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته

فى هذا النموذج بالضغط على حرف F يعرض  فاتورة الكهرباء

أريد نقل  القراءة الحالية فى اول فاتورة الى خلية الموبايل 

وجزاكم الله خيرا 

كهرباء.mdb

[ابو البشر]

 

في ١٦‏/٥‏/٢٠٢٠ at 12:24, صالح حمادي said:

التعامل مع بيانات الويب من خلال FTP:  إستقبال بيانات من موقع معين

سوف نقوم في هذا الدرس إن شاء الله بشرح طريقة جلب بيانات من الويب من دون اللجوء إلى المتصفح

تنبيه: في هذا المجال ليس لدي أي خبرة و قد أعتمدت على البحث في الويب لجمع المعلومات. فلربما أخطئ في ذكر أحد المصطلحات لذلك من لديه دراية بهذا الموضوع و راني أخطئ فالرجاء أن يصوبني.

بروتوكول FTP:

 FTP هي اختصار لمجموعة كلمات File Transfer Protocol، وهي تعني بروتوكول نقل الملفات، وهذه الخدمة هي إحدى تطبيقات TCP/IP التي تجعل من الممكن نقل الملفات بين أجهزة الحاسب الآلي المختلفة و المرتبطة بشبكة الإنترنت.

ينقسم نقل الملفات إلى نوعين:

1 ـ تنزيل الملفات Download: وهو جلب الملفات من الكمبيوتر المضيف Host إلى جهازك المحلي Local. و نستخدم الأمر Get

2 ـ رفع الملفات Uplaod: وهو إرسال الملفات من جهازك المحلي Local إلى الجهاز الخادم Host. و نستخدم الأمر Put

- كل طلب يرسل Request يتم من خلاله استقبال رد Response

أوامر FTP:

هذه بعض الأوامر المستخدمة في بروتوكول FTP و التي سنحتاجها أو سنعمل عليها.

1-Post: يستخدم لارسال معلومات من المستخدم مثال: إنشاء موضوع جديد أو تسجيل الدخول كل هذا عبر Post Request

2-Get: يستخدم هذا الأمر لتنزيل ملف ما من جهاز الخادم أو عرض صورة أو صفحة. مثال: أقوم بإرسال طلب و استقبل ردًا Response يحتوي على أكواد html للصفحة

3-Put: يستخدم لرفع الملفات إلى جهاز الخادم

4-Open: يستخدم لإنشاء إتصال جديد مع الخادم

6-Close: يستخدم لإنهاء الإتصال مع جهاز الخادم

مثال تطبيقي:

سوف نستخدم هذا الموقع: https://uk.investing.com/rates-bonds/financial-futures

سوف نقوم بإستيراد بيانات جدول من هذه الصفحة إلى جدول موجود في الملف و قد ربطه بمربعات نص لنلاحظ تنزيل البيانات

هذا الكود المستخدم:

Dim html As HTMLDocument, hTable As HTMLTable
    Dim Url As String
    Url = "https://uk.investing.com/rates-bonds/financial-futures"
    
    Set html = New HTMLDocument
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", Url, False
        .send
        html.body.innerHTML = .responseText
    End With

    Set hTable = html.getElementById("cr1")
    For i = 1 To hTable.rows.length - 1
        DoCmd.GoToRecord , , acNewRec
        Me.id = hTable.rows(i).cells(1).innerText
        Me.dd = hTable.rows(i).cells(2).innerText
        Me.t1 = hTable.rows(i).cells(3).innerText
        Me.t2 = hTable.rows(i).cells(4).innerText
        Me.t3 = hTable.rows(i).cells(5).innerText
        Me.t4 = hTable.rows(i).cells(6).innerText
        Me.t5 = hTable.rows(i).cells(7).innerText
        Me.t6 = hTable.rows(i).cells(8).innerText
   Next i

شرح الكود:

تعريف كائنات html

Dim html As HTMLDocument, hTable As HTMLTable

إنشاء إتصال جديد عبر السرفر MSXML2.XMLHTTP و إرسال الطلب:

With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", Url, False
        .send

إستقبال الرد على شكل صفحة html:

 html.body.innerHTML = .responseText

استخراج البيانات من الجدول الموجود في الرد الذي استقبلناه وقد قمنا بشرح التعامل مع الجداول في الجزء الأول بالتفصيل:

Set hTable = html.getElementById("cr1")
    For i = 1 To hTable.rows.length - 1
        DoCmd.GoToRecord , , acNewRec
        Me.id = hTable.rows(i).cells(1).innerText
        Me.dd = hTable.rows(i).cells(2).innerText
        Me.t1 = hTable.rows(i).cells(3).innerText
        Me.t2 = hTable.rows(i).cells(4).innerText
        Me.t3 = hTable.rows(i).cells(5).innerText
        Me.t4 = hTable.rows(i).cells(6).innerText
        Me.t5 = hTable.rows(i).cells(7).innerText
        Me.t6 = hTable.rows(i).cells(8).innerText
   Next i

 

استخدام ftp.rar 33.03 kB · 18 تنزيلات

تابع مع الاستاذ @صالح حمادي

[محمد احمد لطفى]

شكرا استاذى @ابو البشر

محتاج بس نقل اول قراءة حالية فى اول فاتورة علشان مش هاعرف انفذها
من خلال صفحة الفاتورة

وجزاكم الله خيرا 

 

[محمد احمد لطفى]

للرفع ولكى يتتضح الامر مطلوب نقل القراءة الحالية لخانة الموبايل

تم تعديل يوليو 16, 2020 بواسطه محمد احمد لطفى

[ابو عارف]

تفضل أخي محمد بعد ضغط على زر "بحث" و عرض فواتير اضغط على زر جديد في اعلى يسار نموذج 

كهرباء.mdb

[محمد احمد لطفى]

جزاك الله خيرا أستاذى @ابو عارف

[ابو عارف]

وياك اخي محمد 

[محمد احمد لطفى]

أستاذى @ابو عارف

اذا كان الخلية المراد نقلها 
تنقسم الى اكتر من خلية مثل الصورة المرفقة 
عند استخدام  ="mobile-info"
يتنقل كلى البيانات بالخط الاحمر فى خلية واحدة 
كيف يمكن نقل رقم الموبايل 
<h1 itemprop="name">0123456</h1> فى خلية
السنة <h2>2020</h2> فى خلية 
النوع <h2>Work</h2> فى خلية

و جزاك الله خيرا

[ابو عارف]

ابشر أخي محمد

document.getElementById("mobile-info").getElementsByTagName("h1")(0).innerHTML

document.getElementById("mobile-info").getElementsByTagName("h2")(0).innerHTML

document.getElementById("mobile-info").getElementsByTagName("h3")(0).innerHTML

شرط يكون اول عناصر <h1> <h2><h3> في ديف mobile-info

بتوفيق