تكسير text

بسم الله الرحمن الرحيم

طبعا عزيزي شمس فيه طريقة و هي كالآتي

السطر1

Dim Words() As String

أعلان مصفوفة فارغة و دون أبعاد

السطر الثاني

ReDim Words(Len(Text1))

أعطاء المصفوفة أبعاد تناسب طول النص الذي سنتعامل معه

For i = 1 To Len(Text1)
Words(i) = Mid(Text1, i, 1)
MsgBox Words(i)
Next

هنا جملة تكرارية تضع كل حرف من النص الذي سنشتغل عليه في الصفوفة

و ستظهر لك كل حرف على حدا في مسج منفصل

أتمنى أن يكون هذا هو المطلوب

و شكرا :rolleyes:

اضافة لتقطيع النص الى كلمات او بناء على متغير معروف يمكنك استخدام

dim vWordArray() as string

vWordArray =split( text1.text," ")
or
vWordArray =split( text1.text,"#")

الف شكر يا جماعة على هذا الرد الجميل

بارك الله فيكم

وأنار الله طريقكم للخير والصواب

تحية وبعد

ورب الكعبة ان في ناس مميزين في المنتدى

قوه :angry:

ياسلااااااااااااااااااام عليكم

الى الامام

المبرمج الطيب :)