قراءة حرف من متغير

السلام عليكم

استعمل الاوامر left ,right , mid

left تقرأ من اول النص

right تقرأ من اخر النص

mid تقرأ من اي من اي مكان بالنص

مثلا المتغير x من النوع string

x="hisham"

s=left(x,2)

ترجع hi

s=right(x,3)

ترجع ham

s=mid(x, 2,3)

ترجع من النص x ابتداء من الحرف الثاني 3 حروف اي ish

السلام عليكم

هذا مثال لما طلبت:

غير الامتداد الى rar

half angel.zip

مثلا اذا اردنا ارجاع الحروف حرفا حرفا

dim s(10) as string , x as string
x="hisham"
for i=0 to 5
s(i)=mid(x,i,1)

بنفس الطريقة استعمل الكود التالي لكتابة نص بالمقلوب فقط اضف 2 تكست بوكس و زر للفورم

Private Sub Command1_Click()
Text2.Text = ""
For i = Len(Text1.Text) To 1 Step -1
Text2.Text = Text2.Text & Mid(Text1.Text, i, 1)
Next
End Sub