منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] حذف جزء من سطر - نسخة قابلة للطباعة

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



حذف جزء من سطر - dell - 31-08-19

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

كيفكم أخواني .. أنا لدي سطر في Textbox
كود :
C:\Users\ِAl3zabe\AppData\Local\Temp\a_1441_01_01_07_38_54.jpg
أريد فقط أسم الملف وإمتداده


a_1441_01_01_07_38_54.jpg


ولكم أطيب التماني  Heart


RE: حذف جزء من سطر - ابراهيم ايبو - 31-08-19

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

هذا
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyFile() As String = TextBox1.Text.Split("\") ' انشاء مصفوفة من النص الموجود في تكست بوكس1 مع التقطيع بدلالة الباك سلاش
       TextBox2.Text = MyFile(MyFile.Length - 1) ' جلب العنصر ذو الاندكس طول المصفوفة -1  اي العنصر الاخير
   End Sub
او هذا
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim MyFile() As String = TextBox1.Text.Split("\") ' انشاء مصفوفة من النص الموجود في تكست بوكس1 مع التقطيع بدلالة الباك سلاش
       TextBox2.Text = MyFile.Last ' جلب من المصفوفة آخر عنصر
   End Sub



RE: حذف جزء من سطر - dell - 31-08-19

الف شكر لك سيتم التجربة وابلاغك بالنتيجة