تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تقسيم وتوزيع متغير علي لاينات بتيكست بوكس
#1
السلام عليكم

عندي متغير يتكون من الاتي
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
الرد
تم الشكر بواسطة:
#2
وعليكم السلام 

PHP كود :
       Dim OutputText As String ""
 
       With "xx-tt-xx-yy-zz".Split("-")
 
           For LineIndex As Integer 0 To .Length 1
                OutputText 
&= LineIndex "-" & .GetValue(LineIndex) & vbNewLine
            Next
        End With
        MsgBox
(OutputText
الرد
تم الشكر بواسطة:
#3
(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 "-" & .GetValue(LineIndex) & vbNewLine
            Next
        End With
        MsgBox
(OutputText

وفقك اللّة لكل خير واعانك علي مساعدت غيرك

تم الحل
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير نص التكست بوكس في كريستال ريبورت Mohammed Nafa 1 29 27-10-20, 10:57 PM
آخر رد: lafi
  سؤال في التشيك بوكس اليوم السابع 3 68 24-10-20, 03:44 AM
آخر رد: kiki
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 2 443 08-10-20, 05:07 AM
آخر رد: Ad Heart
  سؤال بخصوص رتش تكست بوكس abdou 5 242 04-10-20, 01:54 PM
آخر رد: abdou
Heart [سؤال] السلام علام مطلوب طريقة التحقق من كول الكلمة المتكرار في اليسة بوكس وضعها في التيكس ب Ali 2020 0 182 01-10-20, 12:38 AM
آخر رد: Ali 2020
  [VB.NET] الكتابة في أداة تيكس بوكس برمجيا sniperjawadino 6 293 19-09-20, 03:13 AM
آخر رد: sniperjawadino
  [VB.NET] عاوز كود يظهر ماسج بوكس بعد تخطي اعلان ahmed112001 0 144 18-09-20, 03:24 PM
آخر رد: ahmed112001
  مساعدة بالكتابه داخل التكست بوكس eeee2 5 261 17-09-20, 12:39 AM
آخر رد: Anas Mahmoud
  كيف يتم عمل قناع ادخال للتيسكت بوكس في الفيجوال بيسك دوت نت؟ adnan gharbi 2 166 15-09-20, 02:53 PM
آخر رد: adnan gharbi
Rainbow [سؤال] ممكن طريقة عمل زر يذهب الي اخر سطر بتيكس بوكس Ali 2020 9 335 13-09-20, 10:12 PM
آخر رد: Ali 2020

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم