تعديل على كود للبحث

[ًعبد من عباد الله]

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

إلى الأخوة المبرمجين ارجو المساعدة في الكود المرفق والذى يعمل بالأساس على استبدال بعض الحروف بنظير لها

والتعديل المطلوب إضافته بنفس طريقة عمل الكود هو ان يقوم الكود عند البحث فقط باستبدال بعض الرموز مثل ( ؟ ! : " ) ولكن بلا نظير لموضعها (لا يتم عمل مسافة مكانها بل خلا فقط) أى يقوم بإزالة هذه الرموز من موضعها دون أى أثر أخر عند البحث فقط دون الحقيقة وشكرا

Function ForSearch(Astr As Variant) As Variant
Dim i As Integer
Dim L As Variant, NewStr As Variant

If Nz(Astr, "") = "" Then Exit Function
Astr = CStr(Astr)

For i = 1 To Len(Astr)

L = Mid(Astr, i, 1)

Select Case Asc(L)
Case 194, 195, 197: L = Chr(199)
Case 201: L = Chr(229)

Case Else:   L = L
End Select

NewStr = NewStr & L

Next

ForSearch = NewStr

End Function

تم تعديل أغسطس 13, 2017 بواسطه وائل أبو عبد الرحمن