تحويل كود من VB.Net الى VB.Access

[kkhalifa1960]

رجاء تحويل هذا الكود من  VB.NET الى  VBA.Access

 

 

' VB.NET

' الطريقة الثالثة والجديدة

If (String.Compare(name1, name2, System.Threading.Thread.CurrentThread.CurrentCulture,CompareOptions.IgnoreSymbols) = 0) Then

    MessageBox.Show("النصوص متماثلة")

Else

    MessageBox.Show("النصوص مختلفة")

End If

 

[ابو جودي]

7 ساعات مضت, kkhalifa1960 said:

رجاء تحويل هذا الكود من  VB.NET الى  VBA.Access

 

 

' VB.NET

' الطريقة الثالثة والجديدة

If (String.Compare(name1, name2, System.Threading.Thread.CurrentThread.CurrentCulture,CompareOptions.IgnoreSymbols) = 0) Then

    MessageBox.Show("النصوص متماثلة")

Else

    MessageBox.Show("النصوص مختلفة")

End If

 

اتفضل

    If StrComp(name1, name2) = 0 Then
        MsgBox ("النصوص متماثلة")
    Else
        MsgBox ("النصوص مختلفة")
    End If

تم تعديل أكتوبر 11, 2021 بواسطه ابا جودى

[kkhalifa1960]

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

باقي السطر وهو   System.Threading.Thread.CurrentThread.CurrentCulture,CompareOptions.IgnoreSymbols 

[ابو جودي]

21 ساعات مضت, kkhalifa1960 said:

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

باقي السطر وهو   System.Threading.Thread.CurrentThread.CurrentCulture,CompareOptions.IgnoreSymbols 

طيب ولا تزعل

اتفضل  

بالتطبيق مثال شامل 

منتظر ردك بعد التجربة وخد بالك دى مجرد أفكار ممكن تلاقى حلول أفضل إن لم ترضيك هذه النتيجة 

لاحظ الأتى 

- قبل المقارنة بين النصوص يتم ازالة كل حركات التشكيل فقط لم أقترب من الهمزات والالف المدود  بلا بلا بلا بلا بلا  يعنى لا تزعق إن تريد التغلب عليها

- فى المويدول فقط قمت بأعادة الكود مرة أخرى مع تغيير اسم الـ Function  فقط حتى استطيع اظهار النتيجة فى الاستعلامات 

 

CompareText.zip

[kkhalifa1960]

 بعد السلام عليكم ........... ممتاز مافعلته

هل ممكن البحث عن كلمة واحدة بدون تشكيل في سطر مشكل كلماته  مثل البحث عن "الرحمن"  في "بِسْمِ اللَّهِ الرَّحْمَنِ الرَّحِيمِ" .

وتلوين الكلمة بعد البحث لتصبح "بِسْمِ اللَّهِ الرَّحْمَنِ الرَّحِيمِ" ولكم جزيل الشكر

تم تعديل أكتوبر 13, 2021 بواسطه kkhalifa1960

[ابو جودي]

13 ساعات مضت, kkhalifa1960 said:

 بعد السلام عليكم ........... ممتاز مافعلته

هل ممكن البحث عن كلمة واحدة بدون تشكيل في سطر مشكل كلماته  مثل البحث عن "الرحمن"  في "بِسْمِ اللَّهِ الرَّحْمَنِ الرَّحِيمِ" .

وتلوين الكلمة بعد البحث لتصبح "بِسْمِ اللَّهِ الرَّحْمَنِ الرَّحِيمِ" ولكم جزيل الشكر

الحمد لله الذى تتم بنعمته الصالحات

اخى الحبيب راعاك الله التمس من سيادتكم مراعاة قواعد وقوانين المنتدى المنظمة للمشاركات 
سؤال واحد فقط فى كل موضوع حتى يسهل الرجوع بعد البحث لكل نقطه على حده 
وهذا من أجل المصلحة العامة للجميع بارك الله فيكم 

[kkhalifa1960]

أولا الشكر الجزيل لك في كل الأحوال

حضرتك عملت البحث عن نص في نص   والبحث عن كلمة لكلمة وانا أطلب ومن البداية  البحث عن كلمة غير مشكلة في نص مشكل مع تجاهل تشكيل النص أما موضوع التلوين الغيه الأن

ودليل كلامي ارسال الكود

رجاء تحويل هذا الكود من  VB.NET الى  VBA.Access

 

 

' VB.NET

' الطريقة الثالثة والجديدة

If (String.Compare(name1, name2, System.Threading.Thread.CurrentThread.CurrentCulture,CompareOptions.IgnoreSymbols) = 0) Then

    MessageBox.Show("النصوص متماثلة")

Else

    MessageBox.Show("النصوص مختلفة")

End If

[ابو جودي]

6 ساعات مضت, kkhalifa1960 said:

حضرتك عملت البحث عن نص في نص   والبحث عن كلمة لكلمة وانا أطلب ومن البداية  البحث عن كلمة غير مشكلة في نص مشكل مع تجاهل تشكيل النص أما موضوع

اخى الحبيب واستاذى الفضيل حضرتك طلبت وخصصت فى الطلب تحويل الدالة String.Compare
هذه الدالة لا تبحث عن كلمة فى سلسلة نصية وانما تقوم بعمل مقارنة سلسلتين نصيتن من حيث طول السلاسل اذا كانو متساوين ام لا وتعيد صفر اذا كانو متساوين و واحد اذا كانو غير متساوين

ولذلك كانت الاجابة المرفقة لسيادتكم سيدى بما يخص الدالة String.Compare 

ابشر ان شاء الله اعمل على تحقيق طلبكم
 

تم تعديل أكتوبر 13, 2021 بواسطه ابا جودى

[kkhalifa1960]

شكراً لاهتمامكم لأن كل خبرتي وأعمالي من خبراتكم من أيام الاساتذة ( أم عهود واحمد الحربي والباقين الى الان ...............)