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

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

الصفحات: 1 2


تقسيم نص بين كلمتين مختلفتين في TextBox - almftrs - 23-03-13

السلام عليكم اخواني :
اتمنى احد يفيدني في كود تقسيم نص بين كلمتين مختلفتين :
مثلا اذا كان في TextBox1
\vb1/
\vb2/
\vb3/

اريد الضغط على Button

يعطي نتيجة في TextBox2
vb1
vb2
vb3

مشكورين......


تقسيم نص بين كلمتين مختلفتين في TextBox - just.coder - 23-03-13

وضح اكثر حب


تقسيم نص بين كلمتين مختلفتين في TextBox - almftrs - 23-03-13

يعني اخي اريد ان يعطي نتيجة الكلام الداخل الرمزين \/ في textbox2 يعني على نمط Split ولكن رمزين مختلفين مو زمر مشترك


تقسيم نص بين كلمتين مختلفتين في TextBox - just.coder - 23-03-13

الى فهمتو منك

انك عايز تاخد الكلمة الى بين مثلا <ggg>

عايز تاخد الكلمة الى بين <>

هذا ما تريده ؟


تقسيم نص بين كلمتين مختلفتين في TextBox - almftrs - 23-03-13

نعم اخي هذا ما اريده


تقسيم نص بين كلمتين مختلفتين في TextBox - just.coder - 23-03-13

اتمنى ان يفيدك هذا

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ioo() As String
        ioo = TextBox1.Text.Split(vbCrLf)
        For i As Integer = 0 To ioo.Length - 1
            Dim itm, n, x, itm2 As String
            itm = ioo(i)
            n = InStr(LCase$(itm), "\")

            x = InStr(LCase$(itm), "/")
            itm2 = Mid(itm, n + 1, x - n - 1)
            TextBox2.Text += itm2 & vbCrLf
        Next
    End Sub



تقسيم نص بين كلمتين مختلفتين في TextBox - almftrs - 23-03-13

اخي لو يوجد كود اخر افضل من هذا لان عم يصير خطأ عند تكبير النص ومشكور


تقسيم نص بين كلمتين مختلفتين في TextBox - learning.net - 23-03-13

اخى جرب هذا الكود
كود :
Dim string1 As String = TextBox1.Text
        Dim string2 As String = ""
        string2 = string1.Split("\")(1).Split("/")(0)
        TextBox2.Text = string2
وفكر انت فى شروط مربع النص


تقسيم نص بين كلمتين مختلفتين في TextBox - almftrs - 23-03-13

اخي الكود تمام بس عند وضع اكتر من رمز او حرف داخل ("/") يتخربط الكلام للأسف يعني لو حطيت
(0)("aa")(1).Split("aa") يتخربط الكلام Sad


تقسيم نص بين كلمتين مختلفتين في TextBox - sooriaty03 - 24-03-13

almftrs كتب :اخي الكود تمام بس عند وضع اكتر من رمز او حرف داخل ("/") يتخربط الكلام للأسف يعني لو حطيت
(0)("aa")(1).Split("aa") يتخربط الكلام Sad

السلام عليكم ورحمة الله وبركاته
أخي الكريم
حبذا لو تضع لنا مثالا على الجمل التي تريد التعامل معها
لأن الأوامر تختلف باختلاف الجمل وإذا نجح كود ما على جملة ما فقد لا ينجح على جمل أخرى بسبب اختلاف تراكيبها


بالتوفيق