البحث عن حرف في النص وتغييره ؟

+============ 5 = الخانة المراد البداية منها

============= 1 = عدد الخانات المراد جلبها

أخي هناك موضوع لي قد يفيدك في توقيعي

لمعرفة الحرف رقم 4 من الجملة :

MsgBox Mid("AASSDDFFAASSDD", 4, 1)

كما قال أخ PROG7 .

طريقة التبديل للحرف رقم 4 بحرف آخر نفترض M:

Private Sub Command1_Click()
Text1 = "AASSDDFFAASSDD"   
Text2 = 4	  
Text3 = "M"			   

Dim uuu As String, f As String

For i = 1 To Len(Text1)
If i = Text2 Then f = Text3 Else f = Mid(Text1, i, 1)
uuu = uuu & f
Next

Text1 = uuu

End Sub

اقتباس

كود يقوم بعمل فلتر بسيط للحروف العربية لتفادة اخطاء الادخال قدر المستطاع SUPER_PRO

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

فعلا توصلت إلى المطلوب بنجاح شكرا للإخوة :

PROG7

Super_Pro

عبد العزيز اليوسفي

haking33 كتب:

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

فعلا توصلت إلى المطلوب بنجاح شكرا للإخوة :

لا شكر على واجب

اخي الكريم