+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] تقسيم النص الى مجموعات كل واحده 1000 حرف (/showthread.php?tid=27664)
تقسيم النص الى مجموعات كل واحده 1000 حرف - DK-x - 26-11-18
السلام عليكم
شباب عندي نص طوييل جدا
واحتاج ان اقسمه باخذ كل 1000 حرف مجموعه واحده
يعني لو عندي نص عدد الاحرف 2000 حرف انا احتاج ان اقسم ال 2000
الى مجموعتين كل مجموعه 1000 حرف اتمنى وصلت الفكره
واذا ممكن تساعدوني لأن ما عندي اي فكره عن الكود المطلوب
شباب عندي نص طوييل جدا
واحتاج ان اقسمه باخذ كل 1000 حرف مجموعه واحده
يعني لو عندي نص عدد الاحرف 2000 حرف انا احتاج ان اقسم ال 2000
الى مجموعتين كل مجموعه 1000 حرف اتمنى وصلت الفكره
واذا ممكن تساعدوني لأن ما عندي اي فكره عن الكود المطلوب
RE: تقسيم النص الى مجموعات كل واحده 1000 حرف - حريف برمجة - 26-11-18
وعليكم السلام ،،
لنفرض النص موجود في تكست بوكس 2
الكود يكون كالتالي :
كود :
MsgBox(TextBox2.TextLength)
For i = 1 To TextBox2.TextLength
MsgBox(Mid(TextBox2.Text, i, 1000))
i = Val(i) + 999
Next