[ali.anwer87]

السلام عليكم 
نهديكم اطيب التحيات
هل يوجد حل لمشكلة الاحرف 
مثال 
عندي قاعدة بيانات بيها كلمات من ضمنها (الحديثة) وبيه ( الحديثه )
عند البحث عن( الحديثة )تطلع كلمة وحدة مو اثنينهن 
اريد بالبحث تطلع ال (ه) و ال (ة)
ارجوا من حضراتكم حل المشكلة 
شكرا ربي يحفظكم يا احلى منتدى

[Ahmed_Mansoor]

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

أهلا أخي الكريم , مرفق مثال بحث يوضح الطريقة , والفكرة أو الحل هو مثلا إذا أردت البحث عن كلمة بها حرف الألف أو حرف التاء المربوطه ولكي تتجاهل الهمره في الألف أو التاء المربوطه مثلا الكلمة تريد البحث عن جملة معينه فيها كلمة "أحمد" أو كلمة "عطية" فا في جملة الإستعلام لابد أن تكون كلمة "أحمد" بهذا الشكل "[أاإآ]حمد" وكلمة عطية بهذا الشكل "عطي[ةه]" لكي يتم البحث عن الكلمة التي تطابق جميع الإحتمالات التي بين الأقواس المربعه.

[ali.anwer87]

(07-07-17, 12:10 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا أخي الكريم , مرفق مثال بحث يوضح الطريقة , والفكرة أو الحل هو مثلا إذا أردت البحث عن كلمة بها حرف الألف أو حرف التاء المربوطه ولكي تتجاهل الهمره في الألف أو التاء المربوطه مثلا الكلمة تريد البحث عن جملة معينه فيها كلمة "أحمد" أو كلمة "عطية" فا في جملة الإستعلام لابد أن تكون كلمة "أحمد" بهذا الشكل "[أاإآ]حمد" وكلمة عطية بهذا الشكل "عطي[ةه]" لكي يتم البحث عن الكلمة التي تطابق جميع الإحتمالات التي بين الأقواس ال

شكرا على الرد بس ما اشتغل 
ممكن انت تشوف الخلل بدون زحمة 
المرفقات

[sendbad100]

السلام عليكم
المثال المرفق من الاستاذ/ احمد منصور
يعدل الاستعلام الحرف الاول من كل كلمة واخر حرف من كل كلمة ويتجاهل الاحرف التي بالوسط.

[ali.anwer87]

(08-07-17, 05:43 PM)sendbad100 كتب : السلام عليكم
المثال المرفق من الاستاذ/ احمد منصور
يعدل  الاستعلام الحرف الاول  من كل كلمة  واخر حرف من كل كلمة  ويتجاهل الاحرف التي بالوسط.

اي هو اني اريد يتجاهل الي بالوسط 
بس ما عرفت اضبطه زين

[ali.anwer87]

(08-07-17, 06:21 PM)ali.anwer87 كتب :

(08-07-17, 05:43 PM)sendbad100 كتب : السلام عليكم
المثال المرفق من الاستاذ/ احمد منصور
يعدل  الاستعلام الحرف الاول  من كل كلمة  واخر حرف من كل كلمة  ويتجاهل الاحرف التي بالوسط.

اي هو اني اريد يتجاهل الي بالوسط 
بس ما عرفت اضبطه زين

وعند اكمال اي برنامج فيجوال بيسك 6  وجعله تنفيذي 
يعمل على حاسبتي فقط لا يعمل على الحاسبات الباقية 
هل توجد اضافة

[sendbad100]

(08-07-17, 08:17 PM)ali.anwer87 كتب :

(08-07-17, 06:21 PM)ali.anwer87 كتب :

(08-07-17, 05:43 PM)sendbad100 كتب : السلام عليكم
المثال المرفق من الاستاذ/ احمد منصور
يعدل  الاستعلام الحرف الاول  من كل كلمة  واخر حرف من كل كلمة  ويتجاهل الاحرف التي بالوسط.

اي هو اني اريد يتجاهل الي بالوسط 
بس ما عرفت اضبطه زين

وعند اكمال اي برنامج فيجوال بيسك 6  وجعله تنفيذي 
يعمل على حاسبتي فقط لا يعمل على الحاسبات الباقية 
هل توجد اضافة

اتبع الرابط التالي لتحزيم البرنامج 

http://vb4arb.com/vb/showthread.php?tid=20971

[Ahmed_Mansoor]

أهلا أخي الكريم , تم تعديل المثال , والبحث يعمل بشكل جيد .

[ali.anwer87]

(09-07-17, 02:25 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم , تم تعديل المثال , والبحث يعمل بشكل جيد .

عاشت ايدك شغال بس الحروف الي بالوسط لايعمل عليها

[Ahmed_Mansoor]

أهلا أخي الكريم , تم تعديل الدالة وتسهيلها بشكل يقوم بتجاهل جميع الحروف سواء في البداية أو الوسط أو النهاية أو في أي مكان , قم بحذف الدالة التي وضعتها في المثال المعدل في ردي السابق بهذه الداله :

PHP كود :

Private Function Fix_SearchText(SearchText As String) As String

If Trim$(SearchText) = "" Then Exit Function

SearchText = Replace$(SearchText, "أ", "<(-A-)>")
SearchText = Replace$(SearchText, "إ", "<(-B-)>")
SearchText = Replace$(SearchText, "ا", "<(-C-)>")
SearchText = Replace$(SearchText, "ه", "<(-D-)>")
SearchText = Replace$(SearchText, "ة", "<(-E-)>")

SearchText = Replace$(SearchText, "<(-A-)>", "[" & "أإا" & "]")
SearchText = Replace$(SearchText, "<(-B-)>", "[" & "أإا" & "]")
SearchText = Replace$(SearchText, "<(-C-)>", "[" & "أإا" & "]")
SearchText = Replace$(SearchText, "<(-D-)>", "[" & "ةه" & "]")
SearchText = Replace$(SearchText, "<(-E-)>", "[" & "ةه" & "]")

Fix_SearchText = SearchText

End Function