+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تقسيم وتوزيع متغير علي لاينات بتيكست بوكس (/showthread.php?tid=23358)
تقسيم وتوزيع متغير علي لاينات بتيكست بوكس - محمد اسماعيل - 16-01-18
السلام عليكم
عندي متغير يتكون من الاتي
xx-tt-xx-yy-zz
ولاينات بداخل التيكست بوكس كلاتي
1-nn1
2-nn2
3-nn3
4-nn4
5-nn5
6-nn6
بعد كدة جزء نصي لا يتاثر بالعملية
1- اريد الاتي تقسيم المتغير xx-tt-xx-yy-zz علي اللاين الخاص بية بالتيكست بمعني كل مقطع بعد - يعتبر مقطع منفصل يبقي xx-tt-xx-yy-zz عددهم 5 مقاطع
الاين هنا بالتيكست اكتر من 5 يبقي يحذف الاين 6 فقط كلة فقط لاغير
2 - كل مقطع ينتقل الي جزء رقمة يعني xx تذهب الي 1- nn1 وتبصبح xx-1 يعني استبدلنا الجزء nn1 ب xx
يبقي الالينات بالتيكست تصبح كالاتي مع حذف الزائد فقط وهو 6
1-xx
2-tt
3-xx
4-vv
5
RE: تقسيم وتوزيع متغير علي لاينات بتيكست بوكس - عبدالله الدوسري - 16-01-18
وعليكم السلام
PHP كود :
Dim OutputText As String = ""
With "xx-tt-xx-yy-zz".Split("-")
For LineIndex As Integer = 0 To .Length - 1
OutputText &= LineIndex + 1 & "-" & .GetValue(LineIndex) & vbNewLine
Next
End With
MsgBox(OutputText)
RE: تقسيم وتوزيع متغير علي لاينات بتيكست بوكس - محمد اسماعيل - 17-01-18
(16-01-18, 11:12 PM)عبدالله الدوسري كتب : وعليكم السلام
PHP كود :
Dim OutputText As String = ""
With "xx-tt-xx-yy-zz".Split("-")
For LineIndex As Integer = 0 To .Length - 1
OutputText &= LineIndex + 1 & "-" & .GetValue(LineIndex) & vbNewLine
Next
End With
MsgBox(OutputText)
وفقك اللّة لكل خير واعانك علي مساعدت غيرك
تم الحل