20-07-14, 08:38 AM
.....
بإمكانك استخدام دالة خاصة بتبديل الأحرف التي تريد مثل الدالة التالية (ويمكن إضافة "ي" مع "ى" وأيضاً "ة" مع "ه")
رأيت برامج تستخدم أسلوب إضافة عمود مطبق عليه مثل هذه الدالة خاص بالبحث ولا يظهر ويكون بجانب العمود التي تظهر بياناته للمستخدم،
ويتم تخزين البيانات فيها بالشكل التالي:
Column1: أحمـــــــــد
SrchCol1: احمد
وهنا يظهر للمستخدم البيانات من العمود Column1 في حين يتم تطبيق البحث على العمود SrchCol1 بعد تطبيق الدالة السابقة في الحفظ والبحث
أي أن العمود SrchCol1 مخصص للبحث فقط.
.....
بإمكانك استخدام دالة خاصة بتبديل الأحرف التي تريد مثل الدالة التالية (ويمكن إضافة "ي" مع "ى" وأيضاً "ة" مع "ه")
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox1.Text = MyLetterParse(Me.TextBox1.Text)
End Sub
Private Function MyLetterParse(ByVal txt As String) As String
txt = txt.Replace("ـ", "") ' حذف المد بين الأحرف
txt = txt.Replace("أ", "ا")
txt = txt.Replace("إ", "ا")
txt = txt.Replace("آ", "ا")
Return txt
End Functionرأيت برامج تستخدم أسلوب إضافة عمود مطبق عليه مثل هذه الدالة خاص بالبحث ولا يظهر ويكون بجانب العمود التي تظهر بياناته للمستخدم،
ويتم تخزين البيانات فيها بالشكل التالي:
Column1: أحمـــــــــد
SrchCol1: احمد
وهنا يظهر للمستخدم البيانات من العمود Column1 في حين يتم تطبيق البحث على العمود SrchCol1 بعد تطبيق الدالة السابقة في الحفظ والبحث
أي أن العمود SrchCol1 مخصص للبحث فقط.
.....



