السلام عليكم ورحمة الله وبركاته
كيف أقوم بأستبدال بعض النصوص بنصوص أخرى في التكست بوكس مع عدم مراعاة حالة الأحرف و كيف أقوم بقراءة كل سطر و كل حرف في التكست بوكس على حدى
مثلا : اريد قراءة السطر الثاني وإذا كان في السطر الثاني رمز مثل ";" أقوم بوضع "** " بعدها ولكن إن كانت موضوعة فلا أعدل عليها نهائيا أي ";** "
أرجو مساعدتي وشكرا لكم مقدما
السلام عليكم
أخي بالنسبة لإستبدال الرمز ";" بالرمز "** "
إستعمل الدالة Replace
مثلا إذا كان النص موجود في text1 هذه هي الطريقة
text1.text = replace(text1.text, "; ", ";** ")
الطريقة واضحة من المثال
هكذا لن يتم وضع النجمتين إذا كانتا موجودتين أصلا لأن البرنامج لن يعثر على "; "
أما بالنسبة لرقم السطر
إذا كان النص موجود في ملف نصي أو في مساحة نص textarea فالأمر يختلف
أنا أعرف الأولى و لكن الثانية لم أجرب:)
وضح ماذا تريد أن تستعمل و سوف أحاول الإجابة إن شاء الله
شكرا لك
وعليكم السلام ورحمة الله وبركاته
شكرا لك أخي 3ml على الكود صراحتا هذا ما كنت أبحث عنه
وشكرا لك أخي حسين على البرنامج بالفعل معلومات قيمة
شكرا لكم مجددا
أين الخطاء في هذا البرنامج المطلوب من الكود عمل بحث في النصوص الموجودة في صندوق النص عن محتويات المصفوفة nScan وإذا وجد الكلمات يقوم بإستبدالها بما يقابلها في المصفوفة dScan
الخطأ انه عند البحث عن احد عناصر المصفوفة الاولى واستبدالها بما يقابلها من عناصر المصفوفة الثانية يقوم بتنفيذ المطلوب , ولكن عند الإنتقال الى العنصر الذي يليه والبحث عنه واستبداله فإنه يتعامل مع النص القديم في التيكست بوكس وليس النص الناتج من عملية الإستبدال القديمة , لذلك فإن كل عملية إستبدال تلغيها العملية التي تليها لذلك العنصر الوحيد الذي سينجح البرنامج بإستبداله هو آخر عنصر في المصفوفة الا وهو علامة يساوي "="
لا تقلق من كبر شرح الخطأ , لان حله بسيط جداً
الا وهو :
1- التصريح عن متغير نصي جديد
2- مساواة قيمة المتغيرة النصي بقيمة ما يوجد بـ Text1 وهذا قبل البدأ في الحلقة التكرارية
3- داخل الحلقة التكرارية نجعل كود الإستبدال يتعامل مع المتغير النصي وبذلك كل دورة من دورات الحلقة التكرارية سيتعامل كود الإستبدال مع المتغير بعد تعديل قيمته الناتجة من عملية الإستبدال السابقة
4- في النهاية بعد انتهاء الحلقة التكرارية من استبدال كل عناصر المصفوفة الاولى بما يقابلها من عناصر المصفوفة الثانية نقوم بوضع قيمة هذا المتغير في صندوق عرض النتيجة Text2
-----------------
في المرفقات المثال بعد التعديل
بالتوفيق ,,,,,,,,,
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
شكرا لك أخي محمد مصطفى بالفعل الحل بسيط ولكن كان يجب علي التركيز أكثر في الكود
شكرا لك مجددا
