الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود يعمل على تضليل الكلمة الدي ببحث عنها داخل النص

مغلق
بدأه عاصم+عبدالله في 23 أبريل 2007 · 5 رد · 1,064 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا عملت برنامج بالفيجوال بيسك 6

فكرة البرنامج مشابهة لفكرة محركات البحث الموجودة ببرامج الاوفيس مثل الورد

الهدف منة ان اكتب نص

و بعد دلك اعمل بحث على كلمة معينة

فادا كانت الكلمة موجودة بيطلع لك رقم الموقع الكلمة الموجودة بالنص

بس انا كنت عايز ان كمان الكلمة الموجودة داخل النص تضلل

المطلوب:

عايز منكم مساعدة و هو كيفية جعل الكلمة الدي بحث عنها بالنص تضلل بالاسود او تتللون

فلو تعرفو الكود بالفيجوال لو سمحتم اعطونا و بكون شاكر

بس بليز انا مستعجل علية جدا

Private Sub Cmdrun_Click()
i = 0
If Option1(0).Value = True Then
icount = 1

s = UCase(Text1.Text)
s = LCase(Text1.Text)

n1 = Len(Text1.Text)
infound = InStr(icount, s, " ")
While icount < n1 And infound <> 0
infound = InStr(icount, s, " ")
icount = infound + 1
i = i + 1
Wend
Picture1.Print i
End If
If Option1(1).Value = True Then
icount = 1
's = Text1.Text

s = UCase(Text1.Text)
s = LCase(Text1.Text)

n1 = Len(Text1.Text)
infound = InStr(icount, s, UCase(Text2))
infound = InStr(icount, s, LCase(Text2))
If infound <> 0 Then
Picture1.Print infound
Else
Picture1.Print "not found"
End If
End If

If Option1(2).Value = True Then
Picture1.Cls
Text3.Visible = True
Text3.SetFocus

s = UCase(Text1.Text)
s = LCase(Text1.Text)

's = Text1.Text
icount = 1
i = 0
n1 = Len(Text1.Text)
infound = InStr(icount, s, UCase(Text3))
infound = InStr(icount, s, LCase(Text3))
While infound <> 0 And icount < n1
i = i + 1
icount = infound + 1
infound = InStr(icount, s, UCase(Text3))
infound = InStr(icount, s, LCase(Text3))
Wend
If i = 0 Then
Picture1.Print "not found"
Else
Picture1.Print "Total occur="; i
End If
End If
End Sub

Private Sub Form_Load()
Text2.Visible = False
Text3.Visible = False
For h = 0 To 2
Option1(h).Value = False
Next h
End Sub
#2

أستعمل Text1.SelStart لتحديد بداية التظليل و Text1.SelLength لتحديد طوله.

إقرأ معى:

melal.jpg

----

المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا

ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).

المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)

#3

ممكن توضيح اكثر اخي

#4

اليك الكود الاتي اتمنى ان يفيدك

Private Sub Command1_Click()
Dim i
Dim str As String

i = InStr(1, Text2.Text, Text1.Text, vbTextCompare)
If i <> 0 Then
'لتحديد النص
  Text2.SetFocus
  Text2.SelStart = 1
  Text2.SelLength = 2
  str = Text2.SelText
'.............
Else
   MsgBox " not found"
End If

End Sub
#5

اخي راجع هذا الملف : :كيفية البحث في ملف نصي بالتتابع

بالتوفيق ............

A7med_prof

تم تعديل هذه المشاركة بواسطة A7med_prof في 24 أبريل 2007 في 07:50

اقتباس

آسف الدخول متقطع هذه القتره

اقتباس

[يمين]

.[/يمين]

A7med_prof-4-2007.jpg

اخر مواضيعي 2007

االمثال مطبق على موقع بورصه سعودي

.

.

مواضيع مهمه ومطلوبه بكثره VB6

.

بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,

.

أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .

.

</
#6

شكرا لكم اخواني

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…