تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال حول الحصول على نص من صحفة ويب داخل Class
#1
السلام عليكم حياكم الله
اريد المساعده في الحصول علي الكلام الموجود داخل الكلاس ساقوم باستخدام WEBbrowser
استخدم vb.net
ها هو المثال الذي ارايد الحصول علي الكلام منه
كود :
<span class="res-details-label bui_font_caption">Check time:</span>
<div class="bui_font_display_one">
                           Thu 8 Aug 2019
                       </div>

اريد الحصول علي كلمة  Thu 8 Aug 2019
استخدمت هذا الكود لكن لا يعمل يظهر كلا اخر موجود في نفس الصفحة
PHP كود :
For Each telement As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
 
           Dim tElementClass As String "bui_font_display_one"
 
           Dim selementclass As String "bui_font_display_one"
 
           If telement.OuterHtml.Contains(tElementClassAndAlso telement.OuterHtml.Contains(selementclassThen
            Dim conStr 
As String telement.GetAttribute("innertext")
 
           Txtget.TextconStr 

            End 
If
 
              Next 

         
الرد }}}
تم الشكر بواسطة: mohamedahmed1
#2
وعليكم السلام اخي الكريم
ان الكود بالفعل يعمل ولا يوجد به مشكلة لقد قمت بتجربته وهو يعمل
وهذا هو المشروع
https://up.top4top.net/downloadf-13158twxm1-rar.html
[صورة مرفقة: p_1583w56341.gif]
الرد }}}
تم الشكر بواسطة: ابو روضة , dametucorazon , ابراهيم ايبو
#3
أو ضع هذا مع ان كودك يعمل جيدا

كود :
 Dim gg As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("div")
       For Each item As HtmlElement In gg
           If item.GetAttribute("className") = ("bui_font_display_one") Then
               Txtget.Text = item.InnerText
           End If
       Next item
الرد }}}
تم الشكر بواسطة: mohamedahmed1 , dametucorazon , ابراهيم ايبو
#4
متشكر جدا ليكم

ولكني عندي سؤال اخر ماذا لو كان لدي اكثر من كلاس بنفس الاسم وكل واحد قيمه مختلفه
الرد }}}
تم الشكر بواسطة:
#5
(08-08-19, 08:56 PM)dametucorazon كتب : متشكر جدا ليكم

ولكني عندي سؤال اخر ماذا لو كان لدي اكثر من كلاس بنفس الاسم وكل واحد قيمه مختلفه

نفس الشي لكن الفرق هو في كيفية عرض النتيجة اذا اردت بنفس مربع النص استخدم خاصية AppendText التابعة لمربع النص فهي تلحق بعد آخر حرف موجود اضف بعدها سطر جديد VbNewLine لكي تنزل النتيجة الجديدة اسفل القديمة.
الرد }}}
#6
ممكن مثال اخي الفاضل اليك الكود كامل هناك اكثر من كلاس بنفس القسم اريد فقط القيمة

PHP كود :
<div class="res-detail-card">
 
       <div class="col-sm-4 res-detail col-3__print">
 
           <div class="row">
 
               <div class="col-xs-7 col-sm-12 col-12__print">
 
                   <div class="bks-item">
 
                       <span class="res-details-label bui_font_caption">Check-in:</span>
 
                       <div class="bui_font_display_one">
 
                           Tue 7 Apr 2020
                        
</div>
 
                   </div>

 
                   <div class="bks-item">
 
                       <span class="res-details-label bui_font_caption">Check-out:</span>
 
                       <div class="bui_font_display_one">
 
                           Wed 8 Apr 2020
                        
</div>
 
                   </div>

 
                   <div class="bks-item">
 
                       <span class="res-details-label bui_font_caption">Length of stay:</span>
 
                       <div class="bui_font_body">1 night</div>
 
                   </div>
 
               </div>

 
               <div class="col-xs-5 col-sm-12 col-12__print">
 
                   <div class="bks-item">
 
                       <span class="res-details-label bui_font_caption">Total guests:</span>
 
                       <span class="bui_font_body">
 
                               2
                        
</span>
 
                   </div>

 
                   <div class="bks-item">
 
                           <span class="res-details-label bui_font_caption">Total rooms:</span>
 
                       <div class="bui_font_body">1</div>
 
                   </div>
 
               </div>
 
           </div> <!-- .row --> 
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#7
استخدم RegEx لقراءة البيانات هكذا
PHP كود :
Dim html WebBrowser1.DocumentText
Dim coll 
As MatchCollection Regex.Matches(html"<div class=""bks-item"">.+?</div>"RegexOptions.Singleline)
Dim CheckInCheckOutLengthOfStayTotalGuestsTotalRooms As String
For Each mt As Match In coll
    
If mt.Value.Contains("Check-in:"Then
        CheckIn 
Regex.Match(mt.Value"<div class=""bui_font_display_one"">(.+?)</div>"RegexOptions.Singleline).Groups(1).Value.Trim
    End 
If
    If 
mt.Value.Contains("Check-out:"Then
        CheckOut 
Regex.Match(mt.Value"<div class=""bui_font_display_one"">(.+?)</div>"RegexOptions.Singleline).Groups(1).Value.Trim
    End 
If
    If 
mt.Value.Contains("Length of stay:"Then
        LengthOfStay 
Regex.Match(mt.Value"<div class=""bui_font_body"">(.+?)</div>"RegexOptions.Singleline).Groups(1).Value.Trim
    End 
If
    If 
mt.Value.Contains("Total guests:"Then
        TotalGuests 
Regex.Match(mt.Value"<span class=""bui_font_body"">(.+?)</span>"RegexOptions.Singleline).Groups(1).Value.Trim
    End 
If
    If 
mt.Value.Contains("Total rooms:"Then
        TotalRooms 
Regex.Match(mt.Value"<div class=""bui_font_body"">(.+?)</div>"RegexOptions.Singleline).Groups(1).Value.Trim
    End 
If
Next

MsgBox
("Check-in:       " vbTab CheckIn vbNewLine _
        
"Check-out:      " vbTab CheckOut vbNewLine _
        
"Length of stay: " vbTab LengthOfStay vbNewLine _
        
"Total guests:   " vbTab TotalGuests vbNewLine _
        
"Total rooms:    " vbTab TotalRooms _
        


إذا لم تستفيد من هذه الطريقة، ضع رابط الموقع لفحصه وإيجاد حل مناسب معه
الرد }}}
#8
شكرا يااخي ربنا يباركلك ولكن لدي جزء اخر لا استطيع جلب البيانت الخاص به حاولت ولم انجح ممكن مساعده
احتاج Guest name Catherine Zinampan

Booking number: 2887539976
البلد ايضا

كود السورس علما بانها صفحة داخل العمل علي شبكة داخليه ليست اون لاين

PHP كود :
<div class="room-info-row js-room-details hidden  visible-always-print" data-room-reservation-id="2541644755">
 
       <div class="row">
 
           <div class="col-md-4 col-2__print">

 
                   <div class="room-details-info-block">
 
                       <span class="res-details-label bui_font_caption">
 
                           Guest name
                        
</span>
 
                       <span class="bui_font_body">
 
                               Catherine Zinampan
                        
</span>
 
             
     
</div>
<
span class="flag_icon flag_r"></span>
<
span class="bui_font_caption">egypt</span>

 <
div class="row">
 
                   <div class="col-sm-12">
 
                       <div class="bks-item bks-accordion-row bks-reference hidden-print" data-id="res_info">
 
                           <span class="res-details-label bui_font_caption">Booking number:</span>
 
                           <span class="bui_font_body">2887539976</span
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#9
انتظر مساعده من حضرتك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
Big Grin [سؤال] سؤال على السريع أبو خالد الشكري 0 176 29-01-24, 08:58 AM
آخر رد: أبو خالد الشكري
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 305 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 477 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA
  حماية عمود داخل ورقة الاكسل العيدروس 3 190 05-01-24, 12:21 AM
آخر رد: HALIM ELEULMA
  سؤال فى عمل تقرير مفصل خالد كامل1 1 271 26-12-23, 04:30 PM
آخر رد: تركي الحلواني
  [سؤال] سؤال محمد العموري 5 368 11-12-23, 10:11 AM
آخر رد: تركي الحلواني
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 461 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  سؤال في تحريك التحديد في datagrideview maher_haddaf 3 435 23-10-23, 08:27 AM
آخر رد: أبو خالد الشكري

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


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