تقطيع من متغير

استعمل الدالة IndexOf للحصول على رقم الكركتر ثم استعمل الدالة SubString لقطع النص من أوله حتى رقم الكركتر. مثال :

 	Dim s As String = "sql/codes"
 	s = s.Substring(0, s.IndexOf("/"))

شكرا لسرعة الرد ولكن لم ينجح معي هذا الحل وذلك للسبب التالي انا اخذ القيمة من متغير وهو موجود في tree هذا هو الكود dim v_name as string v_name = TreeView1.SelectedNode.FullPath Dim s As String = v_name s = s.Substring(0, s.IndexOf("/")) لم ينجح واعطاني الخطأ التالي: Length cannot be less than zero. Parameter name: length

طبعا إذا كان الكركتر "/" غير موجود داخل النص سوف ترجع الدالة IndexOf القيمة -1 التي تتسبب في رفع استثناء عند المناداة على الدالة SubString. يمكنك تصحيح الكود بالشكل التالي :

Dim s As String = "sql/code"
Dim n As integer = s.IndexOf("/")
If n >= 0 Then
s = s.SubString(0, n)
Else
' الكركتر "/" غير موجود
End If

لم تنجح العملية ارفق لك الكود كاملا Dim NS As String NS = TreeView1.SelectedNode.Text If CN.State = ConnectionState.Closed Then CN.Open() End If v_name = TreeView1.SelectedNode.FullPath Dim s As String = v_name Dim n As Integer = s.IndexOf("/") If n

الكود أخي العزيز غير مكتمل و غير منسق.

يا اخي الكريم انا عندي treeview كل نوود تحته مجموعة عناصر اريد معرفة اسم النود يعني مثال sql_codes تحته مجموعة كودات بدي اخذ اسم النوود اللي هوي sql_codes واضعه في متغير هذا هو كل الموضوع

لا أدري إن كنت فهمت سؤالك جيدا و لكن يمكن أن تصل إلى النود المحدد في أي وقت باستعمال الخاصية SelectedNode. مثال :

Dim nodeText As String = TreeView1.SelectedNode.Text

شكرا لك اخي الكريم تم عمل الكود بنجاح ولكن لو سمحت لدي سؤال اخير عن تعبئة تيكست من داتا سيت اريد ان امرر اسم الجدول من متغير يعني بالوضع الطبيعي انا بكتب هيك الكود TextBox2.DataBindings.Add("Text", DataSet1," table_name.code_name") الان اريد ان امرر اسم الجدول ان يكون مكانه متغير وليس اسم الجدول ثابت هل وصلت فكرتي وشكرا لك مرة اخرى

اخوي محمد رضى شكرا لك تم انهاء جميع المشاكل شكرا جزيلا تم التصويت لك للافضل جزاك الله كل خير