اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تحويل كود من 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
 
  • Like 1
رابط هذا التعليق
شارك

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
تم تعديل بواسطه ابا جودى
  • Like 3
رابط هذا التعليق
شارك

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

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

  • Haha 1
رابط هذا التعليق
شارك

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

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

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

طيب ولا تزعل :wink2:

اتفضل :fff: 

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

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

لاحظ الأتى 

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

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

 

CompareText.zip

رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه kkhalifa1960
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

رجاء تحويل هذا الكود من  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 

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

تم تعديل بواسطه ابا جودى
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information