كيف أقسم النصوص

في حال كنت تقصد ان يقوم بتقسيم كل جملة في حال وجد 123 ؟

اولا لاتستخدم 123 لانها من الممكن ان تكون ضمن النص واختار حرف لايمكن استخدامه ضمن النص بالعادة مثل # او } , ▀ وبعدين قم بفتح الملف بشكل ثنائي وقم بتمريدي على حلقة من اول الملف حتى نهايته وعند ايجاد الحرف الخاص يقوم باقتطاع عدد من الحروف والتي انت خزنة عدد ارقامها عند الحلقة وهكذا

تعقيب الحروف الخاصة يمكنك الحصول عليها من جدول ASCII ويمكنك الحصول على هذه الحروف عن طريق رقمها او لاظهاراها اضغط الزر alt ومن ثم رقم الرمز واترك ALT وسوف تجد الرقم طبع

مثلا

▀

يساوي

223

جربها

ولكي تغير الفواصل كما في مثالك 123 استخدم الامر replace في فيجوال بيسك

الطريقة التي ذكرها الأخ/محمد بدوي صحيحة .. ولكنها ليس المثلى حيث يوفر الاصدار السادس الدالة Split التي تنفذ الأمر بصورة مباشرة.

Private Sub Command1_Click()
    Dim sArr$(), sTxt$
    sTxt = "الفريق العربي123كيف الحال123فيجول بيسك123بخير"
    sArr = Split(sTxt, "123")
    'sArr وللحصول على القيم استخرجها من المصفوفة
    For i = 0 To UBound(sArr)
        If sArr(i) <> "" Then MsgBox sArr(i)
    Next i
End Sub