تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة البحث في مربع النص
#1
السلام عليكم



أحبتي المبرمجين 



لدي على الفورم مربعين نص text1 و text2 



أرغب عندما أكتب في ال text1 جملة معينة , يقوم الكود باستخراج كلمات أقوم بتحديدها له مسبقا من النص الموجود في text1 ويضعها في text2



وشكرا لكم 
الرد }}}
تم الشكر بواسطة:
#2
تفضل اخى 

  السورس + برنامج الاختبار بالمرفقات
الكود بالسورس سيقوم بعمل البحث على النص
واذا تم ايجاد النص سيتم تظليله فى textbox1 وسيتم نسخ جملة البحث فى textbox2

تحياتى لك
وتمنياتى لك التوفيق


الملفات المرفقة
.zip   Pro Test.zip (الحجم : 3.97 ك ب / التحميلات : 28)
.zip   Test.zip (الحجم : 1.52 ك ب / التحميلات : 26)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#3
(15-07-18, 08:45 PM)elgokr كتب :
تفضل اخى الكود
سيقوم بعمل البحث على النص
واذا تم ايجاد النص سيتم تظليله فى textbox1 وسيتم نسخ جملة البحث فى textbox2

كود :
       Dim xx As String
       xx = InputBox("ادخل النص المطلوب البحث عنه:")
       Dim a As Integer
       a = InStr(1, LCase$(TextBox1.Text), LCase$(xx))
       If a > 0 Then
           TextBox1.SetFocus()
           TextBox1.SelStart = a - 1
           TextBox1.SelLength = Len(xx)
           TextBox2.Text = xx
       Else
           MsgBox("لم يتم ايجاد النص المطلوب.")
       End If

تحياتى لك
وتمنياتى لك التوفيق

أشكرك من أعماق قلبي
الرد }}}
تم الشكر بواسطة: elgokr
#4
الشكر لله
وتم عمل سورس + برنامج
يحتوي على الكود كاملاً تجنباً من اى اخطاء

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: dr.mostashar , dr.mostashar , sendbad100



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم