تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيفية عرض نص موجود على الانترنت داخل اداة مربع نص (الحصول على بيانات من صفحة ويب)
#1
السلام عليكم و رحمة الله و بركاته

اخواني اعرف طريقة الحصول على بيانات من جدول في صفحة ويب و بقية الادوات و الوسوم و العقد
لكن واجهتني صفحة أقرب إلى ملف نصي منها إلى صفحة الويب و محتويات الصفحة كالتالي:

{"Name1": "Value1", "Name2": "Value2", "Name3": "Value3"}

كيف يمكن الحصول على القيم من هذه الصفحة و هي لا تحتوي على اي وسوم و جسم او عنوان او اي كود مصدري
فقط تحتوي على السطر السابق
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , يمكنك الحصول على محتوى الصفحة من خلال الأمر :

PHP كود :
WebBrowser1.document.body.outerText 
الرد
تم الشكر بواسطة: عبد العزيز البسكري , Amir_Alzubidy
#3
الف شكر اخي احمد على التفاعل و الرد
المشكلة ان الاداة WebBrowser لا تعرض الصفحة بل تقوم بعرض مربع حوار التحميل لتنزيل الملف
الرابط لجلب اسعار الذهب قد تستفيد منه
"http://www.goldsilverapps.com/gs/lp/v1/lp/1"
انا اتعامل مع الصفحة بالكود
MSHTML.HTMLDocument
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#4
اخي سعود
الفكرة هي تحويل برنامج اندرويد ليعمل على ويندوز
اي حل لعرض اول رقم في الصفحة و هو سعر الاونصة داخل مربع نص اكون شاكر لتعاونكم
الصفحة التي في الزابط مجهزة ليتعامل معها برنامج اندرويد و هي تحتوي فقط على مصفوفة
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#5
السلام عليكم و رحمة الله و بركاته
أخي الكريم:
في المثال المرفق تم الحصول على المطلوب بعد تحميل الصفحة على القرص
كان الهدف جلب القيمة مباشرة دون الحاجة لحفظ الملف على القرص
لأن البرنامج يحدث القيمة بشكل مستمر خلال فترة قصيرة


الملفات المرفقة
.rar   Gold Price.rar (الحجم : 6.65 ك ب / التحميلات : 36)
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#6
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , تم تعديل المثال .


الملفات المرفقة
.rar   GoldPrice_1.rar (الحجم : 4.23 ك ب / التحميلات : 41)
الرد
#7
(10-09-17, 01:28 PM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , تم تعديل المثال .
جزاك الله خيرا أخي الكريم أحمد
كفيت و وفيت
ألف شكر
الرد
تم الشكر بواسطة: سعود , Ahmed_Mansoor
#8
اخواني الكرام الفضول شدد علي بالمشاركة بالموضوعSmile
اول شي انظرو لصورة التطبيق:

واجهة vb6.0 ترسل رابط الصفحة وترسل كلمة المفتاح كما هو واضح بالصورة.

كود :
Private Sub Command1_Click()
Dim ob As Object
Set ob = CreateObject("GetStringsFromHtmlSource.GetStrings")
Text1.Text = ob.gstr("http://www.goldsilverapps.com/gs/lp/v1/lp/1", k.Text)
End Sub


وملف dll يحمل الصفحة ويرجع قيمة المفتاح.

من جهة الدوت نت عملت كلاس ليبراري
GetStringsFromHtmlSource.dll

و هذا هو محتواه:
كود :
Imports System.Text.RegularExpressions
Public Class GetStrings
   Public Function gstr(ByVal url As String, ByVal k As String) As String
       Dim lstkeys As New List(Of String)
       Dim lstvalues As New List(Of String)
       Dim html As String = ""
       Dim wc As New Net.WebClient
       html = wc.DownloadString(url)
       For Each h As String In html.Split(",")
           Dim str As String = """(.*?)"":.*?""(.*?)"""
           Dim reg As New Regex(str, RegexOptions.IgnoreCase)
           For Each ma As Match In reg.Matches(h)
               lstkeys.Add(ma.Groups(1).Value)
               lstvalues.Add(ma.Groups(2).Value)
           Next
       Next
       Return lstvalues(lstkeys.IndexOf(k))
   End Function
End Class
هذا من باب الفضول ليس الا Smile
و هذا لا يعني اني لا اريد تقديم المعلومة لكن اذا جاء الفضول متاخراSad
الله يكتب اجر الجميع.


الملفات المرفقة
.zip   GetStringsFromHtmlSource.zip (الحجم : 49.04 ك ب / التحميلات : 27)
.zip   vb6App.zip (الحجم : 11.08 ك ب / التحميلات : 31)
إخوانا الكرام أخواتنا الكريمات اقسام المشاريع ليست لطلبها بل لتقديمها وربما مناقشتها ان احب صاحب المشروع.
الرد
#9
السلام عليكم
ألف شكر اخواني على التفاعل
و لتعم الفائدة أرفقت مثال جديد لتبسيط المسالة


الملفات المرفقة
.rar   Gold Price 2.rar (الحجم : 6.51 ك ب / التحميلات : 37)
الرد
تم الشكر بواسطة: سعود , Amir_Alzubidy , أبو نوره , Ahmed_Mansoor
#10
مرحبا اخى

اذا استخدمت (Mid(StrSource, 9, 7 ستواجه مشكله لو نقص طول الرقم عن سبعه

الافضل تستخدم RegEx وهذه طريقتها

اضف المرجع التالى Microsoft VBScript Regular Expressions 5.5
وهذا تعديل الكود
PHP كود :
Private Sub cmdGetPrice_Click()

 
   cmdGetPrice.Enabled False
    
    Dim StrSource 
As String
    StrSource 
GetHTMLSource("http://www.goldsilverapps.com/gs/lp/v1/lp/1")
 
   
    
'Reference: Microsoft VBScript Regular Expressions 5.5'
 
   
    Dim myRegExp 
As RegExp
    Set myRegExp 
= New RegExp
    myRegExp
.Pattern "(\d+\.?\d+)"
 
   Dim myMatches As MatchCollection
    Set myMatches 
myRegExp.Execute(StrSource)
 
   If myMatches.Count 0 Then
        lblPrice
.Caption myMatches(0).Value
    End 
If
 
   
    cmdGetPrice
.Enabled True
End Sub 
الرد
تم الشكر بواسطة: Mohamad Anan , Amir_Alzubidy , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في اضافة اداة btn enh ahmed210 0 90 11-04-20, 12:23 AM
آخر رد: ahmed210
  نقل مجميع صفحة abde6726 5 220 08-04-20, 01:44 PM
آخر رد: abde6726
  سؤال يتعلق بتعديل صفحة الاكتيف ربورت abde6726 2 173 31-03-20, 09:04 PM
آخر رد: abde6726
  نسخ بيانات من جدول إلى جدول بشرط مصمم هاوي 3 218 24-03-20, 11:01 PM
آخر رد: مصمم هاوي
  [vb6.0] برجاء الافادة عن كيفية جمع عدد ساعات MEDHAT_R_S 1 129 22-03-20, 12:14 AM
آخر رد: Amir_Alzubidy
  [سؤال] سؤال عن تلوين مربع نص mhareek 16 603 21-03-20, 02:43 AM
آخر رد: سعود
  [سؤال] كيفية منع تكرار رقم الفاتورة او العقد tlbreem 3 209 20-03-20, 03:04 PM
آخر رد: Amir_Alzubidy
  [vb6.0] طريقة الاتصال بقاعدة بيانات اكسس 2003 محمية برقم سري لتشغيل تقرير معمول بالاكيف ريبو وادي العوضي 1 140 06-03-20, 09:38 PM
آخر رد: وادي العوضي
  [vb6.0] المساعدة في طباعة شريط وزن لقاعدة بيانات محمية بكلمة مرور وادي العوضي 4 225 29-02-20, 12:36 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] المساعدة في طريقة الاتصال بقاعدة بيانات محمية بكلمة مرور وادي العوضي 4 247 22-02-20, 10:47 PM
آخر رد: وادي العوضي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم