سؤال في Text

السلام عليكــم ورحمـة الله وبركاتــه ،،

Dim m, i, str1
k = Trim(Me.Text7)
m = Len(k)
For i = 1 To m
str1 = Mid(k, i, 1)
Print str1
Next i

حيث استخدمت الدالة Trim لحذف الفراغات من النص المدخل

والدالة Len تعيد طول السلسلة المدخلة

واستخدمت loop لقراة السلسلة

والدالة Mid تعيد الاحرف

i موقع الحرف اي تسلسلة

1 وهذا الواحد اي يعيد حرف واحد

والطباعة على الفورم

ارجو ان يكون المطلوب

السلام عليكم اخي الكريم

هذا الكود يعمل جزاك الله خير

لكنني أريط طريقة أخرى

مثال :

التكيست مؤلف من 14 حرف أنا اريد جهل الحرفين الأولين ووضع الأحرف الثمانية الأخرى في تكيست 2 وثم وضع باقي الأحرف في تيكست 3

اقتباس

مثال :

التكيست مؤلف من 14 حرف أنا اريد جهل الحرفين الأولين ووضع الأحرف الثمانية الأخرى في تكيست 2 وثم وضع باقي الأحرف في تيكست 3

فى الكود الذى وضعه الأخ أحمد تجده يستخدم دالة Mid

يمكنك استخدام هذه الدالة لعمل ماتريد

Private Sub Form_Load()
Text1.Text = ".NET is Unlimited World"
Text2.Text = Mid(Text1.Text, 9, 9)
Text3.Text = Mid(Text1.Text, 19)
End Sub

أما إن كنت تريد تفنيد النص إلى مصفوفة حروف فيمكن استخدام هذا الكود

Private Sub Command1_Click()
Dim arr() As String
Dim arrLen As Integer
arrLen = Len(Text2.Text) - 1
ReDim arr(arrLen) As String
Dim i As Integer
For i = 1 To arrLen + 1
arr(i - 1) = Mid(Text2.Text, i, 1)
Next

For Each s In arr
MsgBox s
Next
End Sub

هذا على ما أذكر لأنى هجرت الفيبى6 تماما :wacko:

السلام عليكــم ورحمـة الله وبركاتــه ،،

Dim m, i, str1
Dim str2, str3, str4
k = Trim(Me.Text10)
m = Len(k)
For i = 1 To m
If i < 3 Then GoTo p1:
If i > 10 Then GoTo p2:
str1 = Mid(k, i, 1)
str2 = str2 + str1
Me.Text11 = str2
GoTo p1:
p2:
str3 = Mid(k, i, 1)
str4 = str4 + str3
Me.Text12 = str4
p1:
Next i