ســــــــؤال بخصوص (عملية البحث ) ؟

[ياسرهتهت]

بسم الله الرحمن الرحيم

قائمة اسماء في ليست بكس ( ListBox )
مثلا هذه الاسمــــــــــاء

اسماء علي صالح
زهرة محمود خطاب
علي سفيان مجدلوي
أحمد درغام السيدي

هل يوجد كود يعطي نتيجة للبحث
لو تم كتابة احد هذه الاسماء في انبت ( Input) البحث
للبحث عنه في قائمة البست بكس
بهذا الشكل

أ سماء على صالح ------ لحظ الالف عليها همزة والياء في علي
-------
زهره محمود خطاب --- لحظ النقطتان على الهاء
-------
على سفيان مجدلوى --- ايضا الياء في الاسم واللقب
----
احمد درغام السيدى ------ نفس الشي

هل يوجد كود يقوم بالبحث ولا يتوقف عند هذة الاختلافات

الغريب انك لو لم تكتب حرف الهاء في اخر اسم زهره يعطي نتيجة ولوكتبت الحرف وعليه نقطتان لا يعطي نتيجة

اتمنا ان يكون الطلب واضح واسف لم اتمكن من رفع ملف مفتوح

موفق بإذن الله ... لك مني أجمل تحية .

:abc_152::abc_152:

[عبد الهادي بهاب]

بسرعة......يمكن استعمال دالة الاستبدال

[عبد الهادي بهاب]

بسم الله الرحمن الرحيم

قائمة اسماء في ليست بكس ( ListBox )
مثلا هذه الاسمــــــــــاء

اسماء علي صالح
زهرة محمود خطاب
علي سفيان مجدلوي
أحمد درغام السيدي

هل يوجد كود يعطي نتيجة للبحث
لو تم كتابة احد هذه الاسماء في انبت ( Input) البحث
للبحث عنه في قائمة البست بكس
بهذا الشكل

أ سماء على صالح ------ لحظ الالف عليها همزة والياء في علي
-------
زهره محمود خطاب --- لحظ النقطتان على الهاء
-------
على سفيان مجدلوى --- ايضا الياء في الاسم واللقب
----
احمد درغام السيدى ------ نفس الشي

هل يوجد كود يقوم بالبحث ولا يتوقف عند هذة الاختلافات

الغريب انك لو لم تكتب حرف الهاء في اخر اسم زهره يعطي نتيجة ولوكتبت الحرف وعليه نقطتان لا يعطي نتيجة

اتمنا ان يكون الطلب واضح واسف لم اتمكن من رفع ملف مفتوح

موفق بإذن الله ... لك مني أجمل تحية .

:abc_152::abc_152:


محاولة

ListBox.DeleteItem("ListBox2", LB_ALLITEMS)
serch = Input.GetText("Input1");
----------------البحث عن الهمزة و التاة المربوطة و الزاو المهمزة
name1 = String.Replace(serch, "أ", "ا");
name1 = String.Replace(name1, "إ", "ا");
name1 = String.Replace(name1, "آ", "ا");
name1 = String.Replace(name1, "ؤ", "و");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
---------------البحث عن الباء المقصورة في اواخر الكلمة
if Dlettre == "ى" then name2 = String.Replace(name1, "ى", "ي");
elseif Dlettre == "ه" then name2 = String.Replace(name1, "ه", "ة");
else
name2 = name1;
end
---------------------------------
for i = 1 , ListBox.GetCount("ListBox1") do
txt = ListBox.GetItemText("ListBox1", i);
----------------المقارنة--------------------
if String.Find(txt,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox2", txt , "");
end
-----------------------------------------------
end


ملف مفتوح
https://up.top4top.net/downloadf-606mgnua1-rar.html

[المـهاجر]

الاستبدال
لكن بعد التفكيك لكلمات
لأنك تريد تحويل أحمد الى احمد
لكنك حتما لا تريد تحويل لؤى الى لاى
أو
وائل الى واال

[ثامر أبو بلقيس]

محاولة

ListBox.DeleteItem("ListBox2", LB_ALLITEMS)
serch = Input.GetText("Input1");
----------------البحث عن الهمزة و التاة المربوطة و الزاو المهمزة
name1 = String.Replace(serch, "أ", "ا");
name1 = String.Replace(name1, "إ", "ا");
name1 = String.Replace(name1, "آ", "ا");
name1 = String.Replace(name1, "ؤ", "و");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
---------------البحث عن الباء المقصورة في اواخر الكلمة
if Dlettre == "ى" then name2 = String.Replace(name1, "ى", "ي");
elseif Dlettre == "ه" then name2 = String.Replace(name1, "ه", "ة");
else
name2 = name1;
end
---------------------------------
for i = 1 , ListBox.GetCount("ListBox1") do
txt = ListBox.GetItemText("ListBox1", i);
----------------المقارنة--------------------
if String.Find(txt,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox2", txt , "");
end
-----------------------------------------------
end


ملف مفتوح
https://up.top4top.net/downloadf-606mgnua1-rar.html

أحسنت يا زعيم :abc_139:
مشاركات ذات فايدة

[عبد الهادي بهاب]

أحسنت يا زعيم :abc_139:
مشاركات ذات فايدة

منكم تعلمنا اسنتذ
بارك الله فيكم

[عبد الهادي بهاب]

الاستبدال
لكن بعد التفكيك لكلمات
لأنك تريد تحويل أحمد الى احمد
لكنك حتما لا تريد تحويل لؤى الى لاى
أو
وائل الى واال

وهو المطلوب أ الى ا ..ِ اي نسي كتابة الهمزة او نقطتي الياء في الاخير او نقطني التاء في نهاية الكلمة
و في الاخير هو جهد المقل ... نتعلم من توجيهاتكم

[المـهاجر]

وهو المطلوب أ الى ا ..ِ اي نسي كتابة الهمزة او نقطتي الياء في الاخير او نقطني التاء في نهاية الكلمة
و في الاخير هو جهد المقل ... نتعلم من توجيهاتكم

حسنا
اليك طريقة 100% سهلة و 100% مضمونة

أرح رأسك تماما
لا تشغل بالك بموقع الحرف فى الكلمة

بفرض انك ستسمى المتغير الذى سيحمل الاسم الأصلى OrgName

قم بتعيين متغير بإسم AbsNameSrch
ضع فيه الاسم المراد البحث عنه
قم استبدال كافة المسافات الى ""
و استبدل كل الهمزات الى "x"
إستبدل كل الياءات إلى "Y"
"مصدر هذا النص هو الانبوت"

قم بتعيين متغير بإسم AbsNameOrg
"مصدر هذا النص هو الليست"
ضع فيه النص المراد البحث فيه
طبق عليه نفس المعاملات السابقة

الآن قارن بين AbsNameSrch و AbsNameOrg
طبعا عند العرض ستعرض OrgName

موفق

[ياسرهتهت]

محاولة

ListBox.DeleteItem("ListBox2", LB_ALLITEMS)
serch = Input.GetText("Input1");
----------------البحث عن الهمزة و التاة المربوطة و الزاو المهمزة
name1 = String.Replace(serch, "أ", "ا");
name1 = String.Replace(name1, "إ", "ا");
name1 = String.Replace(name1, "آ", "ا");
name1 = String.Replace(name1, "ؤ", "و");
long = String.Length(name1) ; Dlettre = String.Mid(name1, long , 1) ;
---------------البحث عن الباء المقصورة في اواخر الكلمة
if Dlettre == "ى" then name2 = String.Replace(name1, "ى", "ي");
elseif Dlettre == "ه" then name2 = String.Replace(name1, "ه", "ة");
else
name2 = name1;
end
---------------------------------
for i = 1 , ListBox.GetCount("ListBox1") do
txt = ListBox.GetItemText("ListBox1", i);
----------------المقارنة--------------------
if String.Find(txt,name2 , 1) ~= -1 then
ListBox.AddItem("ListBox2", txt , "");
end
-----------------------------------------------
end


ملف مفتوح
https://up.top4top.net/downloadf-606mgnua1-rar.html

----------------------------------
بسم الله الرحمن الرحيم
:abc_152:ما شاء الله اخي عبد الهادي :abc_152:
كود في غاية الروعة
بارك الله فيك وجازك كل خير
:abc_152::abc_152:
:abc_138:

[عبد الهادي بهاب]

حسنا
اليك طريقة 100% سهلة و 100% مضمونة

أرح رأسك تماما
لا تشغل بالك بموقع الحرف فى الكلمة

بفرض انك ستسمى المتغير الذى سيحمل الاسم الأصلى orgname

قم بتعيين متغير بإسم absnamesrch
ضع فيه الاسم المراد البحث عنه
قم استبدال كافة المسافات الى ""
و استبدل كل الهمزات الى "x"
إستبدل كل الياءات إلى "y"
"مصدر هذا النص هو الانبوت"

قم بتعيين متغير بإسم absnameorg
"مصدر هذا النص هو الليست"
ضع فيه النص المراد البحث فيه
طبق عليه نفس المعاملات السابقة

الآن قارن بين absnamesrch و absnameorg
طبعا عند العرض ستعرض orgname

موفق

شكرا جزيلا ..........تأكد انني احاول ان اجسد الفكرة الى كود .ننتظر افكار الجميع و حلولهم

[عبد الهادي بهاب]

----------------------------------
بسم الله الرحمن الرحيم
:abc_152:ما شاء الله اخي عبد الهادي :abc_152:
كود في غاية الروعة
بارك الله فيك وجازك كل خير
:abc_152::abc_152:
:abc_138:

الحمد لله يسرنا اننا نقدم خدمة بسيطو للاخرين ..و متكم نتعلم

[عبد الهادي بهاب]

حسنا
اليك طريقة 100% سهلة و 100% مضمونة

أرح رأسك تماما
لا تشغل بالك بموقع الحرف فى الكلمة

بفرض انك ستسمى المتغير الذى سيحمل الاسم الأصلى OrgName

قم بتعيين متغير بإسم AbsNameSrch
ضع فيه الاسم المراد البحث عنه
قم استبدال كافة المسافات الى ""
و استبدل كل الهمزات الى "x"
إستبدل كل الياءات إلى "Y"
"مصدر هذا النص هو الانبوت"

قم بتعيين متغير بإسم AbsNameOrg
"مصدر هذا النص هو الليست"
ضع فيه النص المراد البحث فيه
طبق عليه نفس المعاملات السابقة

الآن قارن بين AbsNameSrch و AbsNameOrg
طبعا عند العرض ستعرض OrgName

موفق

محاولة

ListBox.DeleteItem("ListBox2", LB_ALLITEMS)
serch = Input.GetText("Input1");
----------------ÇáÈÍË Úä ÇáåãÒÉ æ ÇáÊÇÉ ÇáãÑÈæØÉ æ ÇáÒÇæ ÇáãåãÒÉ
AbsNameSrch = String.Replace(serch, "Ã", "X");
AbsNameSrch = String.Replace(AbsNameSrch, "Å", "X");
AbsNameSrch = String.Replace(AbsNameSrch, "Â", "X");
AbsNameSrch = String.Replace(AbsNameSrch, "í", "Y");
---------------------------------
for i = 1 , ListBox.GetCount("ListBox1") do
txt = ListBox.GetItemText("ListBox1", i);
AbsNameOrg = String.Replace(txt, "Ã", "X");
AbsNameOrg = String.Replace(AbsNameOrg, "Å", "X");
AbsNameOrg = String.Replace(AbsNameOrg, "Â", "X");
AbsNameOrg = String.Replace(AbsNameOrg, "í", "Y");

----------------ÇáãÞÇÑäÉ--------------------
if String.Find(AbsNameOrg , AbsNameSrch, 1)~= -1 then
ListBox.AddItem("ListBox2", txt , "");
end
-----------------------------------------------
end

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم

متابع ولي رجعة ان شاء الله تعالى