منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

السلام عليكم
شباب عندي نص طوييل جدا
واحتاج ان اقسمه باخذ كل 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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

DK-x

حريف برمجة