+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=44357)
تقسيم الرقم الى مجموعات - حماده ممدوح البحيرى - 22-11-22
السلام عليكم
لدى تيكست بوكس به 20 رقم
اريد كود يقسم لى الرقم الى مجموعات كل مجموع 4 ارقام
اى 5 مجموعات كل مجموعه بتيكست متسلسل
يعنى اول مجموع فى تيكست 1
وثانى مجموعه تيكست 2 وهكذا
RE: تقسيم الرقم الى مجموعات - asmarsou - 22-11-22
(22-11-22, 02:44 AM)حماده ممدوح البحيرى كتب : السلام عليكمو عليكم السلام و رحمة الله و بركاته
لدى تيكست بوكس به 20 رقم
اريد كود يقسم لى الرقم الى مجموعات كل مجموع 4 ارقام
اى 5 مجموعات كل مجموعه بتيكست متسلسل
يعنى اول مجموع فى تيكست 1
وثانى مجموعه تيكست 2 وهكذا
اذا كانت ال 20 رقم متسلسلة اي بدون فواصل او مطات او ما غيرهما
فهذا سيفي بالغرض و هو يصلح سواءا التكست المراد تقسيمه يحوي ارقام او حروف او حتى كلاهما معا
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox2.Text = TextBox1.Text.Substring(0, 4)
TextBox3.Text = TextBox1.Text.Substring(4, 4)
TextBox4.Text = TextBox1.Text.Substring(8, 4)
TextBox5.Text = TextBox1.Text.Substring(12, 4)
TextBox6.Text = TextBox1.Text.Substring(16, 4)
End Sub