طريق حذف المسافات و الداش (-) مع الدالة Right ؟

تفضل اخي الكريم

ملفك بعد التعديل

za-Left-Right TXT-UP.rar

بالتوفيق

بسم الله الرحمن الرحيم

بارك الله لكى أستاذة زهره ..

فى الصورة الأولى عندما تعدى الرقم المدخل شرط الدالة

C = Val(Right(A, 4))

قامت الداله بجلب الأرقام الأربعة الأولى فقط ماذا لو كان المدخل أكثر

فى الصورة الثانية عندما أرتبط الرقم مع الـ (-) تعامل البرنامج معة على إنة ليس رقم وقام بجلب

القيمة 2 و هى تأتى فى المرتبة الرابعة لعدد الأرقام فى تطبيق الشرط المزكور

المطلوب :- هل يمكن إلغاء الدالة code]C = Val(Right(A, 4))

بكود برمجى يأتى بالرقم جهة اليمين كاملاً دون تحديد عدد الأرقام جهة اليمين

كما يأتى هذا الكود

If IsNumeric(Left(A, 1)) Then
   B = Val(A)
 [ Me.Text2 = B

بكل أرقام الجهة اليسرى مهما كا عددها أو أرتباطها بـ (-) أو مسافات

أرجوا أن أكون أوضحت الفكرة

خالص شكرى أستناذة زهرة .. فى رعاية الله

تفضل اخي الكريم

الملف بعد التعديل

سوف نستخدم هذه الدوال بدلا عن الأكواد السابقة

Private Sub Text0_AfterUpdate()
Me.Text2 = Val(Replace(Left([Text0], InStr([Text0], "-")), "-", ""))
Me.Text4 = Val(Replace(Trim((Mid([Text0], InStr([Text0], "-") + 1, 10000))), "-", ""))
End Sub

وستكون النتيجة بهذا الشكل

الآن اكتب اي ارقام تخطر على بالك ولا تشيل اي هم للمسافات او لعلامة الشرطة فلن يظهر منها شيء سوى الآرقام فقط لا غير في مربعات النص وابلغنا بالنتيجة

za-Left-Right TXT-END.rar

بالتوفيق

بسم الله الرحمن الرحيم

سلام الله عليكم ورحمتة وبركاتة أستاذة زهره

رائع .. رائع .. رائع........

أسف أستاذة زهره ولكن علينا أن نستغل هذا الكرم ..

ماذا إن تم إدخال نص ثم رقم مثل الصورة السابقة يعطى الناتج أصفار فى المربعين

هل يمكن أن يكون الناتج صفر فى المربع الأول و الرقم بعد النص هو ناتج المربع الثانى بدلاً من أصفار .. هذا إن كان الإدخال فى الـ Text0 فى سطر واحد

و إن كان الإدخال فى أكثر من سطر مثل هذه الصورة يكون الناتج فى المربعين لا شىء آى و لا حتى أصفار

أسف أحاول الوصول لأفضل النتائج قدر الإمكان

و قد يأتى المزيد !!!!

فأرجوا أن لا تملى طلباتى .. أثابك الله

بسم الله الرحمن الرحيم

أستاذة زهره أرجوا أن لا أكون تجاوزت الحد

bakkar2000 كتب:

بسم الله الرحمن الرحيم

أستاذة زهره أرجوا أن لا أكون تجاوزت الحد

تفضل اخي الكريم

التعديل الأخير على هذه المشاركه ولا اعتقد انه بقى هناك اي احتمال تستطيع وضعه لأنني وضعت لك كل الإحتمالات الممكنه على مربع النص

za-Left-Right TXT-LAST.rar

بالتوفيق

بسم الله الرحمن الرحيم

ألف .. ألف .. شكر أستاذه زهره

جارى التحميل و التجربة .. لكن لكى النقاط الخمس .. لثقتى فى النتيجة ...........

و أرجوا الإطلاع على هذا الرابط لأنى فى أزمة من الموضوع بة ..

تعريف المكتبات داخل البرنامج

أثابك الله