السلام عليكم
قابلتني هذه المعلومة و ودت ان اشارككم بها
الاوامر left right mid تقوم بارجاع جزء من نص من اليسار و اليمين و الوسط على التوالي و يوجد الكثير من الامثلة في المنتدى عن هذه الاوامر
و لكن الجديد هو عند البحث عن نص داخل نص نستعمل الامر instr مثلا
Private Sub Command1_Click() Print InStr(1, Text1.Text, "ca") End Sub
تقوم بالبحث عن موضع الكلمة ca في text1 و ترجع موضعه و ان لم تجده ترجع صفر
من قال لا إله إلا الله صادقا دخل الجنة
موقعي للتعارف و تبادل الأخبار http://www.xybond.com
اريد ان اضيف شي ، حيث انك تستطيع تحديد الكلمة داخل النص بالطريقة التالية بعد البحث عنها وارجاع بدايه وجودها .
Private Sub Command1_Click()
p = InStr(1, Text1.Text, "ca")
text1.selstart = p -1
text1.SelLength = len("ca")
text1.setfocus
End Subحيث يمكن اخذ قيمة البحث من صندوق نص اخر بدل الكلمة الثابتة "CA"
تحياتي لكم
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
هذا الموضوع مغلق.