جلب احد الاسطر من التكست بوكس - نسخة قابلة للطباعة

جلب احد الاسطر من التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : جلب احد الاسطر من التكست بوكس (/showthread.php?tid=28511)

جلب احد الاسطر من التكست بوكس - anes - 07-02-19

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

اتمنى ان يكون الجميع بخير

ابحث على كود لجلب احد الاسطر المكررة

لديا تكست به نص

النص به سطرين متشابهين مثل الي بالصورة

اريد جلب الجزء المحدد لتكست بوكس

شكرا مسبقا

RE: جلب احد الاسطر من التكست بوكس - ابراهيم ايبو - 07-02-19

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

الصورة غير ظاهرة ولم اعرف ماتطلب تماما

RE: جلب احد الاسطر من التكست بوكس - anes - 07-02-19

(07-02-19, 04:54 PM)ابراهيم ايبو كتب :
السلام عليكم اخي انس

الصورة غير ظاهرة ولم اعرف ماتطلب تماما

لديا TextBox1 به هذا النص الي بالصورة

النص به سطرين متشابهان مثل الصورة

اريد جلب احد هما وبالظبط الجزء المحدد الى TextBox2

RE: جلب احد الاسطر من التكست بوكس - fouadhdfouad - 10-02-19

اخي الكريم استعمل regex فهيا افصل في جلب النصوص

PHP كود :
 TextBox2.Clear()
        Try
            Dim get_me As MatchCollection = Regex.Matches(TextBox1.Text, "(\/yahoo)(.*)(\d+)(?="")")
            For i = 0 To get_me.Count - 1
                TextBox2.AppendText(get_me(i).Value)
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 