الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب تعديل كود

مغلقمُجاب
بدأه ابراهيم مراد في 27 مارس 2014 · 1 رد · 515 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخوانى ممكن طلب بسيط تعديل الكود هذا
For i As Integer = 0 To TextBox1.Lines.Count - 1
TextBox2.Text = TextBox1.Text
Next
For x = 0 To TextBox2.Lines.Count - 1
Dim str As String = TextBox2.Lines(x).ToString
Dim str1 = str.Split(",")(0).ToString
Dim str2 = str.Split(",")(1).ToString

Next
ع سبيل المثال
1,+1=2
2,+2=4
5,+5=10
اريد ادخال مجموعة حسابات شرط ياخد سطر سطر مايخدش كل الاسطر ويجمعها
اريد يدخل السطر الاول 
وبعد ما يجمع ويتاكد من النتيجه 
يدخل السطر الثانى ويقوم بحذف السطر الاول
ويجمع السطر الثانى ويدخل لسطر الثالث ويحذف السطر الثانى
ويعطينى نتيجة كل سطر فى مسج بوكس ولو صعب اريد التكست بوكس ياخد سطر سطر مش يرميهم كلهم فى التكست التانى يعنى ينفذ السطر الاول ويحذفه ويرجع ياخد الثانى وينفذه ويحذف وهكذا ارجو مشاركة المنحترفين

تم تعديل هذه المشاركة بواسطة ابراهيم مراد في 27 مارس 2014 في 02:01

#2 أفضل إجابة

جرب هذا الكود

 For i As Integer = 0 To TextBox1.Lines.Count - 1
            TextBox2.Text = TextBox1.Lines(i).ToString()
            Dim str As String = TextBox2.Text.ToString
            Dim str1 = str.Split("=")(0).ToString
            MsgBox(str1)
            Dim str2 = str.Split("=")(1).ToString
            MsgBox(str2)
        Next

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

هذا الموضوع مغلق.

مواضيع مشابهة