إستخلاص ارقام من تيكست به القيمة (5%)

السلام عليكم أخي الكريم :

من هذين السطرين تستطيع أن تحصل على نفس النتيجة بإذن الله :

result = TextBox1.Text.Substring(1)

result = Mid(Me.TextBox1.Text, 2)

حيث أن الوظيفة Substring تشتق من String معينة جزءاً يبدأ من بعد الرقم المحدد لها حتى النهاية .

و أما الوظيفة Mid فهي أيضاً تشتق من String معينة جزءاً يبدأ من الرقم المحدد لها حتى النهاية .

أرجو أن يكون هذا هو المطلوب , وكما نرجو الدعاء , ووفقكم الله وجزاكم كل خير ....

أبو همام كتب:

السلام عليكم أخي الكريم :

من هذين السطرين تستطيع أن تحصل على نفس النتيجة بإذن الله :

result = TextBox1.Text.Substring(1)

result = Mid(Me.TextBox1.Text, 2)

حيث أن الوظيفة Substring تشتق من String معينة جزءاً يبدأ من بعد الرقم المحدد لها حتى النهاية .

و أما الوظيفة Mid فهي أيضاً تشتق من String معينة جزءاً يبدأ من الرقم المحدد لها حتى النهاية .

أرجو أن يكون هذا هو المطلوب , وكما نرجو الدعاء , ووفقكم الله وجزاكم كل خير ....

السلام عليكم

فعلا هو المطلوب يا أخى جزاك الله كل خير

لى استفسار صغير وهو كيف أبحث عن الحرف بطريق ال ASCII code

يعنى ال ASCII code الخاص بالحرف % هو 37 ازاى ابحث عنه فى ال textbox كله وأستخلصه

مثالك بيقول انه يترك أول حرف من التيكست وياخد باقى الارقام على تيكيست أخر طيب لو افترضنا ان المستخدم كتب علامة % فى الاخر مش الاول يبقى هتروح مع الارقام على التكيست التانى

تحياتى

السلام عليكم :

أخي الكريم : لدي نصيحة أقدمها لك و لكن قبل النصيحة أقدم لك حل تلك المشكلة بإذن الله ...

هذا الكود ينظف النص من علامة ( % ) إن كانت في البداية أو النهاية :

		If Me.TextBox1.Text.StartsWith("%") Then
			MessageBox.Show(Me.TextBox1.Text.Substring(1))
		ElseIf Me.TextBox1.Text.EndsWith("%") Then
			MessageBox.Show(Strings.Left(Me.TextBox1.Text, Me.TextBox1.Text.Length - 1))
		End If

لكن المشكلة تبقى قائمة !! كيف ؟

ماذا لو قام المستخدم بتثقيل دمه و أدخل علامة ( % ) في أي مكان وسط النص ؟!

هنا تأتي النصيحة :

دائماً و أبداً إذا كنت تتعامل مع أدوات TextBoxes و تريد أن تستخدم قيمتها في إجراء حسابي , في هذه الحالة

لا لا لا تسمح للمستخدم أن يدخل في مربع النص غير الأرقام ... كيف ؟

ضع في حدث KeyPress لمربع النص المقصود هذا الكود :

	Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
		e.Handled = Not ((Char.IsNumber(e.KeyChar)) Or (Char.IsControl(e.KeyChar)))
	End Sub

حيث أنه لن يدخل إلا الأرقام مع السماح ببعض أزرار التحكم مثل Delete , BackSpace, Arrows

بعد ذلك تصرف أنت كما تشاء بتلك القيمة:

1- استخدمها في عمليات حسابية.

2- أضف لها رمز ( % ) أو غيره ... الخ

هل كانت نصيحتي مفيدة ؟ أرجو ذلك مع الدعاء ......

وفقك الله ...

نعم فكرتك رائعة ونصيحتك اروع

ربنا يجزيك عنا كل خير ويعديك من على الصراط على خير وبسرعة ;)