إعـــــــلان

عبد الهادي بهاب · 29-08-2017, 10:43 AM

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

عبد الهادي بهاب · 29-08-2017, 12:21 PM

المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة

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

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

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

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

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

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

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

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

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

محاولة

كود PHP:


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

**المـهاجر المـهاجر** · 29-08-2017, 12:23 PM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 29-08-2017, 01:41 PM

المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة

محاولة

كود PHP:


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

أحسنت يا زعيم

مشاركات ذات فايدة

عبد الهادي بهاب · 29-08-2017, 04:48 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

أحسنت يا زعيم

مشاركات ذات فايدة

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

عبد الهادي بهاب · 29-08-2017, 04:50 PM

المشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركة

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

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

**المـهاجر المـهاجر** · 29-08-2017, 05:03 PM

المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة

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

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

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

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

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

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

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

موفق

**ياسرهتهت ياسرهتهت** · 29-08-2017, 05:07 PM

المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة

محاولة

كود PHP:


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

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

ما شاء الله اخي عبد الهادي

كود في غاية الروعة
بارك الله فيك وجازك كل خير

عبد الهادي بهاب · 30-08-2017, 12:02 AM

المشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركة

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

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

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

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

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

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

موفق

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

عبد الهادي بهاب · 30-08-2017, 12:03 AM

المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة

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

ما شاء الله اخي عبد الهادي

كود في غاية الروعة
بارك الله فيك وجازك كل خير

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

عبد الهادي بهاب · 30-08-2017, 12:56 AM

المشاركة الأصلية بواسطة المـهاجر مشاهدة المشاركة

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

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

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

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

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

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

موفق

محاولة

كود PHP:


ListBox.DeleteItem("ListBox2", LB_ALLITEMS)

serch = Input.GetText("Input1");

  ----------------&#199;áÈÍË Úä ÇáåãÒÉ æ ÇáÊÇÉ ÇáãÑÈæØÉ æ ÇáÒÇæ ÇáãåãÒÉ

  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"); 

 

      ----------------&#199;áãÞÇÑäÉ--------------------

      if String.Find(AbsNameOrg , AbsNameSrch, 1)~= -1  then

      ListBox.AddItem("ListBox2", txt , "");

      end

      -----------------------------------------------   

 end

محمد بن أحمد أبو حذيفة · 30-08-2017, 01:10 AM

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

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

إعـــــــلان

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك