اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by ابو عارف,

الردود الموصى بها

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

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

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

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

1.jpg

كهرباء.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 تنزيلات

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

رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

Untitled.jpg

رابط هذا التعليق
شارك

ابشر أخي محمد

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

بتوفيق

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information