منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - لدي جدول به اسعار اريد السعر من خلال رقم الكلاس مرفق الكود

السلام عليكم ورحمه الله وبركاته
استخدم هذا الكود لجلب قيمة من العمود ولكن هذا الكود يحضر لي اخر قيمة من العمود بالاسفل
انا اريد احصل علي كل رقم مستقل بذاته
اعني textbox1.text = نص اول سعر
textbox2.text = نص تاني سعر
وهكذا

كود :

 For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")

            If Element.GetAttribute("className") = "hprt-price-block " Then

                For Each Element1 As HtmlElement In Element.GetElementsByTagName("div")

                    If Element1.GetAttribute("className") = "bui-price-display__value prco-ltr-center-align-helper prco-font16-helper" Then

                        Dim Variable1 As String = Element1.InnerText

                        TextBox2.Text = Element1.InnerText

                    End If

                Next

            End If

        Next

اليكم جدول الاسعار

PHP كود :

</td>
<td class="hprt-table-cell hprt-table-cell-price">
<div class="hprt-price-block ">
<div class="hprt-price-deal-badge">
</div>
<div class="prco-wrapper bui-price-display prco-sr-default-assembly-wrapper prc-d-sr-wrapper">
<div class="bui-price-display__value prco-ltr-center-align-helper prco-font16-helper" aria-hidden="false">
 100  $$
</div>
<td/>
+++++++++++++++++++++++++++++++++
</td>
<td class="hprt-table-cell hprt-table-cell-price">
<div class="hprt-price-block ">
<div class="hprt-price-deal-badge">
</div>
<div class="prco-wrapper bui-price-display prco-sr-default-assembly-wrapper prc-d-sr-wrapper">
<div class="bui-price-display__value prco-ltr-center-align-helper prco-font16-helper" aria-hidden="false">
 200  $$
</div>
<td/>
++++++++++++++++++++++++++++++++++++
</td>
<td class="hprt-table-cell hprt-table-cell-price">
<div class="hprt-price-block ">
<div class="hprt-price-deal-badge">
</div>
<div class="prco-wrapper bui-price-display prco-sr-default-assembly-wrapper prc-d-sr-wrapper">
<div class="bui-price-display__value prco-ltr-center-align-helper prco-font16-helper" aria-hidden="false">
 300  $$
</div>
<td/> 

اريد جلب كل الاسعار حسب الرقم يعني لو كتبت رقم 1 ياتي سعر ال 100 $$ وهكذا
200 $$
300 $$
الى ما لا نهاية

انتظر مساعده لو سمحتم

السلام عليكم اخي الكريم
اولا انا لا استطيع مساعدتك اذا كان برنامجك Asp.net
ثانيا جدول الاسعار الذي تتحدث عنه هل هو جدول في قاعدة البيانات ام قائمة في ملف؟
ثالثا اذا كان الجدول يحوي على 1000 سعر فكيف ستضع 1000 تكست بوكس؟
رابعا اذا كان جدول الاسعار في قاعدة البيانات يمكنك الاستعلام عن سعر صنف بدلالة البحث عن المعرف او اسم الصنف
خامسا يمكنك جلب كل الاسعار ووضعها في listbox
الرجاء التوضيح اكثر لان السؤال الذي يلفه الغموض لايلق سائله اجابة

شكرا يااخي نجحت الحمد لله في عملها

السلام عليكم اخي الكريم

انت نجحت في عملها اهنئك لكن هناك من اعضاء المنتدى من ينتظر تجربتك في ايجاد الحل ليستفيد

هلا قمت فضلا لا امرا بنشر الحل الذي توصلت له ليتم الرجوع له عندما يبحث اي عضو عن الاجابة

اكيد طبعا الحل بسيط جدا الكود تبعي شغال 100 %
فقط عدلت السطر التالي للكود
من

كود :

                       TextBox2.Text = Element1.InnerText

الي

كود :

TextBox2.Text &= vbCrLf & Element1.InnerText

ليصبح الكود النهائي

كود :

For Each Element As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")

           If Element.GetAttribute("className") = "hprt-price-block " Then

               For Each Element1 As HtmlElement In Element.GetElementsByTagName("div")

                   If Element1.GetAttribute("className") = "bui-price-display__value prco-ltr-center-align-helper prco-font16-helper" Then

                       Dim Variable1 As String = Element1.InnerText

                      TextBox2.Text &= vbCrLf & Element1.InnerText

                   End If

               Next

           End If

       Next

مع التاكد من ان خاصية TextBox2.MultiLine = True

وبما ان القيم الناتجه ثابته فاستخرجت من textbox2 كل القيم اللي محتاجه في تيكست بوكس مستقل لتظهر بشكل مباشر في التيكست
بمعني

[b]TextBox2[/b]
[b]هيرجع بالقيم[/b]

كود :

$$

$$

$$

بدات اخد السطر الاول احطه في تيكست اللي عايزه يظهر فيه مع استبدال علامة $$
لتظهر فقط التيكست الخاص به كسعر بدون عملة كالتالي

من خلال كود لاستبدال علامة الدولار كالتالي

كود :

PricesDetails.stkr.Text = TextBox2.Lines(1).Replace("$$", "")

        PricesDetails.STKB.Text = TextBox2.Lines(2).Replace("$$", "")

        PricesDetails.STKHB.Text = TextBox2.Lines(3).Replace("$$", "")

واعتذر عن التاخير في الرد

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dametucorazon

dametucorazon

ابراهيم ايبو

dametucorazon

ابراهيم ايبو

dametucorazon