[almftrs]

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

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

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

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

[just.coder]

وضح اكثر حب

[almftrs]

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

[just.coder]

الى فهمتو منك

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

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

هذا ما تريده ؟

[almftrs]

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

[just.coder]

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

كود :

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

[almftrs]

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

[learning.net]

اخى جرب هذا الكود

كود :

Dim string1 As String = TextBox1.Text
        Dim string2 As String = ""
        string2 = string1.Split("\")(1).Split("/")(0)
        TextBox2.Text = string2

وفكر انت فى شروط مربع النص

[almftrs]

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

[sooriaty03]

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

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


بالتوفيق