منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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


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


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

---

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


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


اريد كود في الكوماند يحذف  حرف R من التكست   ويصبح في تكست 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  ضيفها

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