[RaggiTech]

الداله Instr

هذه الداله تعطيك موقع نص خلال نص اخر
بمعنى اننا لو عننا نصنا الحبوب I Love visual basic
وعندنا نص ثانى وهو love حلو الكلام
عن طريق الداله Instr نقدر نعرف موقع النص الثانى الى هو Love موجود فين فى النص الاول
وتعيد هذه الداله قيمة من النوع Integer وفى مثالنا السابق هتعطى رقم 3 لان النص الثانى
موجود فى النص الاول بداية من الحرف الثالث ممكن تطبق هذا الكود علشان تفهم اكثر

كود :

Dim s As String = "I Love visual basic"
Dim s2 As String = "Love"
MsgBox(InStr(s, s2, CompareMethod.Binary))

والداله Instr بتاخد ثلاث وسائط
الاول : وهو النص الى هتبحث فى وفى مثالنا هذا النص الاول
الثانى : النص الى هتبحث عنه
الثالث : طريقة البحث وهناك نوعين الاول text والثانى binary ولو اختارنا binary
هيفرق فى البحث بين الحروف الكبيرة والصغيرة يعنى مثلا كلمة love غير LOVE
اما لو اختارنا text مش هيفرق بين الحروف الكبيرة والحروف الصغيرة

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

تطبيق على الداله
الان هنعمل تطبيق صغير علشان تفهم اكثر
هنستخدم الداله دى فى البحث فى صندوق نص عن النص الى احنا عايزينه
طيب افتح مشروع جديد وضع فيه button و2 text box
اجعل خاصية text للا button تساوى find
واجعل خاصية Multiline للا textbox2 تساوى TRUE
واكتب هذا الكود فى زر الامر

كود :

Dim i As Integer

i = InStr(TextBox2.Text, TextBox1.Text, CompareMethod.Binary)
If i > 0 Then
TextBox2.Select(i - 1, Len(TextBox1.Text))
TextBox2.Focus()
Else
MsgBox("لم يتم العثور على شى")
End If

عند تنفيذ البرنامج اكتب اى نص فى textbox2 وبعد كدا اكتب الكلمة الى انت عايز تبحث عنها
فى textbox2 واضغط على زر الامر اذا كانت موجودة هيعلملك على الكلمة الى انت بتبحث عنها
ولو مالقاش حاجة هيطلعلك رساله مكتوب فيها لم يتم العثور على شى
شرح الكود : فى السطر الاول حجزنا متغير من النوع integer علشان نحط فى نتيجة الداله Instr
فى السطر الثانى اسندنا نتيجة الاله Instr الى هتبحث قى TextBox2 عن النص
الموجود فى TextBox1
فى السطر الثالث بنختبر اذا كان المتغير i يحتوى على قيمة اكبر من 0
اذا تحقق الشرط هيختار من TextBox2 النص بداية من قيمة i ناقص واحد
وطول النص الموجود فى TextBox1
واذا لم يتحقق الشرط هيطلع رساله فيها لم يتم العثور على شى
يتبع >>>>>>>>>>>>>>>>