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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : حذف الحرف الاول (/showthread.php?tid=28339)

حذف الحرف الاول - حامد محمد - 23-01-19

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


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


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


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


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


RE: حذف الحرف الاول - elgokr - 23-01-19

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

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

تعال كده مع بعض نتخيل ان القيمة اللى بتتكلم عليها على هذا الشكل كمثال
كود :
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

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


RE: حذف الحرف الاول - حامد محمد - 23-01-19

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

RE: حذف الحرف الاول - حامد محمد - 23-01-19

(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  \ كيف اضيفه بنفس الكود

RE: حذف الحرف الاول - حامد محمد - 23-01-19

(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  ضيفها

RE: حذف الحرف الاول - elgokr - 24-01-19

فى هذه الحالة
كل ما عليك بدلاً من استخدام كود مع شرط التحقق
استخدم هذا السطر فقط
كود :
Replace(ss, "R", "")

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

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