+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
RE: مشكلة الاحرف - ali.anwer87 - 12-07-17
(12-07-17, 01:59 AM)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
شكرا تعبتك وياية ربي يحفظك ويوفقك
ما ضبطت معي
RE: مشكلة الاحرف - sendbad100 - 12-07-17
السلام عليكم ورحمة الله وبركاته
يعطيك الف عافية
استاذ / أحمد منصور كود جميل جدا الله يفتح عليك ويرزقك ويزيدك علم
اعجبني جدا هذا الكود - كنت استخدم كود طويل وملخبط وغير مجدي
تم تطبيقه على المثال السابق مع زيادة حرفين "ي ى"
RE: مشكلة الاحرف - ali.anwer87 - 18-07-17
(12-07-17, 01:59 AM)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
شكرا على الرد بس هم ماضبطت
تعبتك شكرا على ردك
RE: مشكلة الاحرف - sendbad100 - 18-07-17
وضعت لك مثال في المشاركة رقم 12
جربته او لم تجربه
RE: مشكلة الاحرف - ali.anwer87 - 19-07-17
(18-07-17, 05:44 PM)sendbad100 كتب : وضعت لك مثال في المشاركة رقم 12
جربته او لم تجربه
ما اشتغل جربته
RE: مشكلة الاحرف - ali.anwer87 - 01-08-17
(08-07-17, 03:18 PM)ali.anwer87 كتب :(07-07-17, 12:10 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاتهشكرا على الرد بس ما اشتغل
أهلا أخي الكريم , مرفق مثال بحث يوضح الطريقة , والفكرة أو الحل هو مثلا إذا أردت البحث عن كلمة بها حرف الألف أو حرف التاء المربوطه ولكي تتجاهل الهمره في الألف أو التاء المربوطه مثلا الكلمة تريد البحث عن جملة معينه فيها كلمة "أحمد" أو كلمة "عطية" فا في جملة الإستعلام لابد أن تكون كلمة "أحمد" بهذا الشكل "[أاإآ]حمد" وكلمة عطية بهذا الشكل "عطي[ةه]" لكي يتم البحث عن الكلمة التي تطابق جميع الإحتمالات التي بين الأقواس ال
ممكن انت تشوف الخلل بدون زحمة
المرفقات
(01-08-17, 12:17 PM)ali.anwer87 كتب :تسلم اخي احمد منصور على المجهود(08-07-17, 03:18 PM)ali.anwer87 كتب :(07-07-17, 12:10 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاتهشكرا على الرد بس ما اشتغل
أهلا أخي الكريم , مرفق مثال بحث يوضح الطريقة , والفكرة أو الحل هو مثلا إذا أردت البحث عن كلمة بها حرف الألف أو حرف التاء المربوطه ولكي تتجاهل الهمره في الألف أو التاء المربوطه مثلا الكلمة تريد البحث عن جملة معينه فيها كلمة "أحمد" أو كلمة "عطية" فا في جملة الإستعلام لابد أن تكون كلمة "أحمد" بهذا الشكل "[أاإآ]حمد" وكلمة عطية بهذا الشكل "عطي[ةه]" لكي يتم البحث عن الكلمة التي تطابق جميع الإحتمالات التي بين الأقواس ال
ممكن انت تشوف الخلل بدون زحمة
ال
بس عندي مشكلة عدم تحريك عجلة الموس في ال datagride هل يوجد طريقة
RE: مشكلة الاحرف - اسلام الكبابى - 02-06-20
أستاذنا الكبيييييييييييير
وكيف يمكن البحث البحث مع تجاهل هذه الهمزات بحيث لو وضعت أى جزء من بداية اسم الشخص يظهر لى السجل
ففى مثالك المرفق
أريد لو كتبت"أحمد محمد" تظهر لى نفس السجلات الأربعة التى تظهر ان كتبت"أحمد محمد عطيه"
ولكن طبعآ لو كتبت"محمد عطيه" لا يظهر منهم أى سجل
ولكم ألف شكر
RE: مشكلة الاحرف - اسلام الكبابى - 02-06-20
أنا أعرف أن جملة البحث التى أطلبها(لو بدون تجاهل هذه الهمزات) ستكون هكذا
"zSQL = "Select * From Table1 Where instr(Name, " & Trim$(Text1.Text) & ") = 1
ولكن المشكلة أنه مع تجاهل هذه الهمزات لم يصلح هذا الكود
فكيف يمكن ذلك ؟
ولكم ألف شكر
ولكم ألف شكر
RE: مشكلة الاحرف - Ahmed_Mansoor - 03-06-20
أهلا بك أخي الكريم , إذا أردت البحث مع تجاهل هذه الهمزات بحيث لو وضعت أى جزء من بداية اسم الشخص إستخدم علامة أو رمز النسبة المئوية قبل علامة التنصيص المفرد التي تكون في آخر نص الإسم المراد البحث عنه و إذا أردت البحث بأى جزء إستخدم علامة النسبة المئوية بعد علامة التنصيص المفرد التي تكون في أول نص الإسم المراد البحث عنه وقبل علامة التنصيص المفرد التي تكون في آخر نص الإسم المراد البحث عنه :
PHP كود :
zSQL = "Select * From Table1 Where Name LIKE '" & Fix_SearchText(Trim$(Text1.Text)) & "%'"
أو
PHP كود :
zSQL = "Select * From Table1 Where Name LIKE '%" & Fix_SearchText(Trim$(Text1.Text)) & "%'"
بالتوفيق .
RE: مشكلة الاحرف - اسلام الكبابى - 03-06-20
[b]أستاذنا الكبيييييييييييير[/b]
ولكن هذه الأكواد تبحث عن أى جزء فى اسم الشخص
وليس عن أى جزء من بدايته
ففى مثالك المرفق
لو كتبت"محمد عطيه" يظهر السجل "أحمد محمد عطيه" وباقى السجلات المحتوية على"محمد عطيه"
إقتباس : أريد لو كتبت"أحمد محمد" تظهر لى نفس السجلات الأربعة التى تظهر ان كتبت"أحمد محمد عطيه"
ولكن طبعآ لو كتبت"محمد عطيه" لا يظهر منهم أى سجل
ولكم ألف شكر