منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
السلام عليكم محتاج افهم شئ صغير - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=33111)

السلام عليكم محتاج افهم شئ صغير - اليوم السابع - 24-01-20

عندي الكلمه دي abc.def.abz123/pop/77885552 في تكست بوكس 
محتاج احذف abc.def.abz123 بالكود وهذه الكلمه متغير 
احذفها كيف

RE: السلام عليكم محتاج افهم شئ صغير - abubasilIraq - 24-01-20

اخي هذا ما يصير الا اذا كان هذا الجزء ثابت /pop/77885552 واذا كان ثابت ومعلوم عندك  ما هي الحاجة للكود بعد ذلك ؟ وفي حال كان هذا الجزء متغير بالنص لكن ثابت من ناحية عدد الحروف فتحتاج الى كود يعكس النص اولا ويحسب العدد المطلوب ويحذف الباقي
وعلى كل حال بناء على كلامك هذا كود متعدد الخطوات للتوضيح والتعليم ينجز ما تريد

كود :
  Dim str, str1, str2 As String
       str = TextBox1.Text
       str1 = "/pop/77885552"
       str2 = Replace(str, str1, "")
       TextBox1.Text = Replace(str, str2, "")


RE: السلام عليكم محتاج افهم شئ صغير - جميل5 - 24-01-20

باستخدام Regex
PHP كود :
Dim v=Regex.Match(Textbox1.Text,".+(/pop/\d+)").Groups(1).value 


RE: السلام عليكم محتاج افهم شئ صغير - ابو روضة - 24-01-20

زيادة على كود الأخ جميل لو أحببت تأخذ الرقم الأخير فقط

PHP كود :
Dim v = Regex.Match(TextBox1.Text, ".+(/\d+)").Groups(1).Value
        TextBox2.Text = v.Replace("/", "") 

النتيجة ستكون  77885552