منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] مشكلة الاحرف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] مشكلة الاحرف (/showthread.php?tid=20946)

الصفحات: 1 2 3

مشكلة الاحرف - ali.anwer87 - 06-07-17

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

RE: مشكلة الاحرف - Ahmed_Mansoor - 07-07-17

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

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

RE: مشكلة الاحرف - ali.anwer87 - 08-07-17

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

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

RE: مشكلة الاحرف - sendbad100 - 08-07-17

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

RE: مشكلة الاحرف - ali.anwer87 - 08-07-17

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

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

RE: مشكلة الاحرف - ali.anwer87 - 08-07-17

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

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

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

RE: مشكلة الاحرف - sendbad100 - 08-07-17

(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

RE: مشكلة الاحرف - Ahmed_Mansoor - 09-07-17

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

RE: مشكلة الاحرف - ali.anwer87 - 11-07-17

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

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

RE: مشكلة الاحرف - Ahmed_Mansoor - 12-07-17

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

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