جعل النص غير مشكل ليتم البحث به
Private Function fsNoTshkel(ByVal s As String) As String
s = s.Replace("ْ", "") ' ْ
s = s.Replace("َ", "") ' َ
s = s.Replace("ِ", "") ' ِ
s = s.Replace("ّ", "") ' ّ
s = s.Replace("ُ", "") ' ُ
s = s.Replace("ً", "") ' ً
s = s.Replace("ٍ", "") ' ٍ
s = s.Replace("ّ", "") ' ~
s = s.Replace("ٌ", "") ' ٌ
Return s
End Functionسبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); هل هذه الطريقة تصلح على vb6 فيجوال بيسك 6 أم لا,,
وهل تستخدم مع SQL
to vb6
Public Function fsNoTshkel(s As String) As String s = Replace(s,"ْ", "") ' ْ s = Replace(s,"َ", "") ' َ s = Replace(s,"ِ", "") ' ِ s = Replace(s,"ّ", "") ' ّ s = Replace(s,"ُ", "") ' ُ s = Replace(s,"ً", "") ' ً s = Replace(s,"ٍ", "") ' ٍ s = Replace(s,"ّ", "") ' ~ s = Replace(s,"ٌ", "") ' ٌ fsNoTshkel = s End Function
تم تعديل هذه المشاركة بواسطة KARIMSOFT في 17 أكتوبر 2006 في 19:13
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); هذا الموضوع مغلق.