السلام عليكم اخواني :
اتمنى احد يفيدني في كود تقسيم نص بين كلمتين مختلفتين :
مثلا اذا كان في TextBox1
\vb1/
\vb2/
\vb3/
اريد الضغط على Button
يعطي نتيجة في TextBox2
vb1
vb2
vb3
مشكورين......
يعني اخي اريد ان يعطي نتيجة الكلام الداخل الرمزين \/ في textbox2 يعني على نمط Split ولكن رمزين مختلفين مو زمر مشترك
الى فهمتو منك
انك عايز تاخد الكلمة الى بين مثلا <ggg>
عايز تاخد الكلمة الى بين <>
هذا ما تريده ؟
اتمنى ان يفيدك هذا
كود :
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
اخي لو يوجد كود اخر افضل من هذا لان عم يصير خطأ عند تكبير النص ومشكور
اخى جرب هذا الكود
كود :
Dim string1 As String = TextBox1.Text
Dim string2 As String = ""
string2 = string1.Split("\")(1).Split("/")(0)
TextBox2.Text = string2
وفكر انت فى شروط مربع النص
اخي الكود تمام بس عند وضع اكتر من رمز او حرف داخل ("/") يتخربط الكلام للأسف يعني لو حطيت
(0)("aa")(1).Split("aa") يتخربط الكلام
almftrs كتب :اخي الكود تمام بس عند وضع اكتر من رمز او حرف داخل ("/") يتخربط الكلام للأسف يعني لو حطيت
(0)("aa")(1).Split("aa") يتخربط الكلام
السلام عليكم ورحمة الله وبركاته
أخي الكريم
حبذا لو تضع لنا مثالا على الجمل التي تريد التعامل معها
لأن الأوامر تختلف باختلاف الجمل وإذا نجح كود ما على جملة ما فقد لا ينجح على جمل أخرى بسبب اختلاف تراكيبها
بالتوفيق