[DK-x]

السلام عليكم
شباب عندي نص طوييل جدا
واحتاج ان اقسمه باخذ كل 1000 حرف مجموعه واحده
يعني لو عندي نص عدد الاحرف 2000 حرف انا احتاج ان اقسم ال 2000
الى مجموعتين كل مجموعه 1000 حرف اتمنى وصلت الفكره
واذا ممكن تساعدوني لأن ما عندي اي فكره عن الكود المطلوب

[حريف برمجة]

وعليكم السلام ،،

لنفرض النص موجود في تكست بوكس 2

الكود يكون كالتالي :

كود :

MsgBox(TextBox2.TextLength)
       For i = 1 To TextBox2.TextLength
           MsgBox(Mid(TextBox2.Text, i, 1000))
           i = Val(i) + 999
       Next