[حامد محمد]

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


كيف يمكن ان احذف اول حرف للعملية التالية :    مثلا لديك في التكست رقم وحرف في البداية      R3244444                       


اريد كود في الكوماند يحذف  حرف R من التكست وشكرا

---

(23-01-19, 06:19 PM)حامد محمد كتب : السلام عليكم ورحمة وبركاته


كيف يمكن ان احذف اول حرف للعملية التالية :    مثلا لديك في التكست رقم وحرف في البداية      R3244444                       


اريد كود في الكوماند يحذف  حرف R من التكست   ويصبح في تكست 3244444 وشكرا

[elgokr]

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

مرحباً اخى حامد محمد

تعال كده مع بعض نتخيل ان القيمة اللى بتتكلم عليها على هذا الشكل كمثال

كود :

Private Sub Command1_Click()
       Dim ss As String
       ss = "R3244444"

طيب لما ان القيمة ثابتة من حيث ان حرف R دائماً فى القيمة اى كانت الارقام التى تتاليها

وكل ما انت بحاجة اليه هو عرض الارقام بدون الحرف فكل ما عليك فعله هو اختيار احد الحلول التالية

كود :

       ' 1
       MsgBox (Mid(ss, 2, Len(ss)))
       ' 2
       MsgBox (Replace(ss, "R", ""))
       ' 3
       MsgBox (Split(ss, "R")(1))
       ' 4
       MsgBox (Right$(ss, Len(ss) - 1))

قم باختيار ما يناسبك من احد الاسطر المذكورة بالاعلى

حيث سيكون الناتج بالنهاية هو 3244444

تحياتى لك

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

[حامد محمد]

ماشاء الله عليك وبارك الله فيك

[حامد محمد]

(23-01-19, 07:06 PM)elgokr كتب :

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

مرحباً اخى حامد محمد

تعال كده مع بعض نتخيل ان القيمة اللى بتتكلم عليها على هذا الشكل كمثال

كود :

Private Sub Command1_Click()
       Dim ss As String
       ss = "R3244444"

طيب لما ان القيمة ثابتة من حيث ان حرف R دائماً فى القيمة اى كانت الارقام التى تتاليها

وكل ما انت بحاجة اليه هو عرض الارقام بدون الحرف فكل ما عليك فعله هو اختيار احد الحلول التالية

كود :

       ' 1
       MsgBox (Mid(ss, 2, Len(ss)))
       ' 2
       MsgBox (Replace(ss, "R", ""))
       ' 3
       MsgBox (Split(ss, "R")(1))
       ' 4
       MsgBox (Right$(ss, Len(ss) - 1))

قم باختيار ما يناسبك من احد الاسطر المذكورة بالاعلى

حيث سيكون الناتج بالنهاية هو 3244444

تحياتى لك

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

---

نفس الكود لو مافيش حرف R  \ كيف اضيفه بنفس الكود

[حامد محمد]

(23-01-19, 10:15 PM)حامد محمد كتب :

(23-01-19, 07:06 PM)elgokr كتب :

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

مرحباً اخى حامد محمد

تعال كده مع بعض نتخيل ان القيمة اللى بتتكلم عليها على هذا الشكل كمثال

كود :

Private Sub Command1_Click()
       Dim ss As String
       ss = "R3244444"

طيب لما ان القيمة ثابتة من حيث ان حرف R دائماً فى القيمة اى كانت الارقام التى تتاليها

وكل ما انت بحاجة اليه هو عرض الارقام بدون الحرف فكل ما عليك فعله هو اختيار احد الحلول التالية

كود :

       ' 1
       MsgBox (Mid(ss, 2, Len(ss)))
       ' 2
       MsgBox (Replace(ss, "R", ""))
       ' 3
       MsgBox (Split(ss, "R")(1))
       ' 4
       MsgBox (Right$(ss, Len(ss) - 1))

قم باختيار ما يناسبك من احد الاسطر المذكورة بالاعلى

حيث سيكون الناتج بالنهاية هو 3244444

تحياتى لك

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

---

نفس الكود لو مافيش حرف R  \ كيف اضيفه بنفس الكود

لو عايز كلمة اف IF    لو ما فيهاش  حرف R  ضيفها

[elgokr]

فى هذه الحالة

كل ما عليك بدلاً من استخدام كود مع شرط التحقق

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

كود :

Replace(ss, "R", "")

بحيث هو من نفسه اذا وجد حرف الـ R سيقوم بعمل اللازم

واذا كان الجملة لا تحتوى على حرف R سيقوم بطباعة القيمة كما هو بدون اى مشكلة

تحياتى لك

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