حذف اخر اربعة حروف

نعم يمكنك ذلك بواسطة الدالة Right أو Left ضع الكود التالي على زر أمر أو بعد التحديث لمربع النص وهو هنا اسمه ( Txt1 )

Me.Txt1 = Left(Txt1, 4)

شكرا جزيل استاذ مصلح الحريصي 100 % والله يعطيك العافيه

جزاك الله خيرا اخي مصلح الحريصي

وايضا هذا حل اخر

لديك مربع النص الاول TEXT1 ويوجد به الكلمة TPPF.PPF

ولدينا مربع نص ثاني TEXT2 يأخذ بياناته من مربع النص الاول

الان نريد حذف الحروف الاربعة الاخيرة من الكلمة TPPF.PPF وهي PPF. على اعتبار ان النقطة ايضا حرف تفصل بين الكلمة واسم الملف اذن كل ما علينا هو وضع هذه الدالة في مربع النص الثاني

=Replace([text1];".PPF";"")

شرح الدالة Replace

تقوم هذه الدالة بعملية استبدال الاحرف الاربعة الاخيرة PPF. الى لا شيء "" بمعنى ان علامة التنصيص اذا لم يوجد بداخلها شيء فستعطي قيمة خالية

بعد التطبيق ستجد ان العبارة TPPF.PPF في مربع النص الاول اصبحت TPPF في مربع النص الثاني

وهذا مثال به الطريقتين

Hayber.rar

اختكم

زهره

السلام عليكم ورحمة الله

اخونا واستاذنا مصلح الحريصي , واستاذتنا عبقرية المنتدى الاستاذة زهـــــرة

بارك الله فيكم على التفاعل , وعلى ما تقدمونه للمنتدى من خدمات ونفع الله بكما الامه.

حقيقة فان متابعة المواضيع والردود المطروحة من اساتذة مثلكم هى متعة بمعنى الكلمة , وليس جديدا ان تتحفنا استاذتنا زهرة يوميا بما هو جديد ومبدع.

اساتذتى الكرام ان كنت قد فهمت السؤال جيد , فانه يمكن عمل دمج للحلين المقدمين من حضراتكم والخروج بحل جديد يقوم بحذف اخر اربع حروف من النص مهما كان طول النص ومهما كانت نهايته( حل استاذنا مصلح يعتمد على ثبات طول النص , وحل استاذتنا زهرة يتطلب ثبات نهاية النص دائما) , والحل المقترح يتمثل فى تعديل كود استاذتنا زهرة الى الكود التالى

=Replace([text1];Right([text1];4);"")

ومرفق نفس مثال استاذتنا زهرة وبه الاقتراح الجديد.

وارجو منكم المعذرة فى حالة وجود اى سوء فهم منى ,

وبالتوفيق ان شاء الله,,,

(( الاخت زهرة بارك الله فيكى , يوجد لدى مشكلة من بعد الانتقال الى السرفر الجديد , فانا لا يمكننى ارفاق ملفات الى المنتدى , كلما اردت ارفاق ملف تخرج صفحة التحرير الى الصفحة الرئيسية للمنتدى, ارجو مراجعة الروابط والوقوف على مكان المشكلة))

بارك الله فيك استاذنا عماد

على هذه الطريقة المتقنه في جمع الدالتين بطريقة سلسلة

وهذا هو المثال بعد التعديل يحتوب على ثلاث دوال

Hayber.rar

اختكم

زهره

السلام عليكم ورحمة الله

اخواني ... استاذنا عماد حمدي احمد واستاذنا مصلح الحريصي , واستاذتنا عبقرية المنتدى الاستاذة زهـــــرة

اشكرك على التفاعل المستمر والمثمر والمثلج للصدور واشكركم من كل اعماق قلبي .. ولكن ثم هناك تعقيب بسيط ليستفيد منه الاخرين وهو

أن دالة Left الموجوده في طريقة استاذنا الفاضل مصلح الحريصي تبقي على اول 4 حروف ولا تحذف اخر 4 حروف فأذا كان نص1 SSSSTPPF.PPF فان نص2 سوف يكون SSSS واما دالة Replace الموجوده في طريقة استاذتنا الفاضلة زهرة فهي محتاجه الى ان تعلم اخر اربعة حروف حتى تستبدلها او تحذفها ..ناهيك عن تشابه الاحرف الذي قد يكون في مربع النص1 وكذلك الحال في طريقة استاذنا الفاضل عماد حمدي احمد ... فلو ادخلنا في مربع نص1 .PPF.PPF الموجود في اخر مثال مرفق للاخت زهرة فستجدون ان مربع نص طريقة الاستاذه زهرة والاستاذ عماد يساوي خالي ... واخير اعتقد انه الى الان لم نصل الى الحل المطلوب وهو حذف اخر 4 حروف موجوده في مربع نص1 ,..,.,,.,,.,.,.,. شكرا جزيل الاساتذه الافاضل

السلام عليكم ورحمة الله

الأخ الكريم الفيلسوف111

كلامك مضبوط بالتأكيد , ولقد اشرت اليه سابقا. ولكن بخصوص المشكلة فى اختفاء النتائج عند استخدام طريقة استاذتنا زهرة او طريقتى وذلك عند وضع كلمة .PPF.PPF , فهذا تفسيره وببساطه شديده يرجع الى استخدام دالة Replace والتى تبحث عن جزء معين فى النص وتقوم باستبداله بجزء اخر (فى حالتنا هذه تستبدله بلاشئ) وطبعا هذه الدالة تقوم باستبدال الجزء المراد التخلص منه كلما وجدته بالنص , اى لو تم تكرار هذا الجزء فى النص اكثر من مره , سيتم استبدالهم جميعا , وهذا ما حدث بالضبط مع طريقة استاذتنا زهرة وطريقتى. وهذا بالتاكيد خطأ فنى عن طريق السهو .

ولكنى مرفق مع الرد المثال مرة اخرى وبه طريقة جديده , على نفس نمط حل اخونا واستاذنا مصلح , ولكنها تنفع مع اى نص مهما كان طوله او نهايته (يارب ما نلاقيش مشكلة تانى هههه)

وهى تعتمد على الكود التالى

=Left([text1];(Len([text1])-4))

باستخدام الدالة Left (سبق شرحها) والدالة Len (للعودة بعدد احرف النص) , واعتقد الكود واضح وبسيط.

وبالتوفيق ان شاء الله,,,

Hayber.rar

شكرا جزيل للجميع ,,,,,,,,,,,,,,,,,الاستاذ عماد حمدى احمد 100 % والله يعطيك العافيه