[dametucorazon]

السلام عليكم
ارجو من الله تكونوا في اتم صحة وحال
لدي هذا الكود لجلب قيمة من كلاس معين بصفحة ويب وياتي بالمطلوب بنجاح  داخل
txtGuestname.Text
وهو بالفعل multiline= True

كود :

           ' guest name
           For Each Elemento As HtmlElement In WebBrowser1.Document.GetElementsByTagName("div")
               If Elemento.GetAttribute("className") = "bks-item bks-accordion-row" Then
                   For Each Element1o As HtmlElement In Elemento.GetElementsByTagName("span")
                       If Element1o.GetAttribute("className") = "bui_font_display_one bhpb_guest_name_float" Then
                           Dim Variable1 As String = Element1o.InnerText
                           txtGuestname.Text &= vbCrLf & Element1o.InnerText
                       End If
                   Next
               End If
           Next

هنا تم جلب القيمة المطلوبة ووضعها في  line number 1  داخل txtGuestname.Text
   
ثم اقوم بتقسيم القيمة المطلوبة لي من خلال الكود الي سطرين عن طريق هذا الكود

كود :

       txtGuestname.Text = txtGuestname.Text.Split(" "c)(0) & vbCrLf & txtGuestname.Text.Substring(txtGuestname.Text.IndexOf(" "c) + 1, txtGuestname.Text.Length - txtGuestname.Text.Split(" "c)(0).Length - 1)

عل سبيل المثال لو الاسم المعروض ahmed hosam mostafa
بعد تنفيذ الكود هتصبح
ahmed
hosam mostafa
ثم اقوم بعرض القيم كما اريد السطر الاول والسطر الثاني
كالتالي

كود :

showall.txtFirstname.Text = txtGuestname.Lines(1)
       showall.txtLastname.Text = txtGuestname.Lines(2)

هنا سؤالي:
بعد تنفيذ كود تقسيم النص ستصبح
 ahmed hosam mostafa تكون في  line 1 داخل txtGuestname
المفروض
ahmed في line 1
  hosam mostafa في line 2
   
ولكن ما يحدث يتم تحريك القيمة المطلوبة كلها
ahmed hosam mostafa وتتحرك الي line 2
وعند تنفيذ جلب النص حسب رقم السطر يتم جلب
ahmed داخل  line 2 
   
ما السبب انها تتحرك لاسفل ولا تنفذ الكود
ارجو اكون وفقت في الشرح

[fouadhdfouad]

اولا ضع النص في مصفوفة
dim str as string= texbox1.texte
dim list()as string=str.split(# #)
textbox1.texte=list(1)+vbcf+list(2)+
espace(2)+list(3)

لقد وضعت لك الرد من الهاتف ارجو تقبل
الاخطا الاملائيه

[dametucorazon]

(05-09-19, 07:02 PM)fouadhdfouad كتب : اولا ضع النص في مصفوفة
dim str as string= texbox1.texte
dim list()as string=str.split(# #)
textbox1.texte=list(1)+vbcf+list(2)+
espace(2)+list(3)

لقد وضعت لك الرد من الهاتف ارجو تقبل
الاخطا الاملائيه

شكرا للمساعدة اخي الكود الخاص بك يعمل في حالة واحدة لو انا اعرف عدد القيم المخرجة اذا كانت اكتر من المحدد يظهر ايرور
الكود الخاص بي يعمل ممتاز لكن اريد اعرف سبب ما يحدث