منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس (/showthread.php?tid=18960)

الصفحات: 1 2

طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - copy77 - 26-01-17

السلام عليكم ورحمة اللة وبركاتة
أريد طريقة لضرب أرقام موجودة وسط نص فى التيكست او الليست بوكس
مثال :
مع سعيد 20 ومع حسن 15 ومع كمال 6 قطعة.

أريد طريقة لضرب جميع  الارقام بالنص "بدون تغيير النص"مثلاً أذا ضربت * 2 تكون النتيجة



مع سعيد 40 ومع حسن 30 ومع كمال 12 قطعة.

وشكرا لحضراتكم

RE: طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - مساعدة - 26-01-17

السلام عليكم

تفضل الكود
كود :
Dim txt As String = "مع سعيد 20 ومع حسن 15 ومع كمال 6 قطعة"

Dim sp() As String = Split(txt, " ")
Dim rt As String

For i = 0 To sp.Length - 1
    If IsNumeric(sp(i)) Then sp(i) = sp(i) * 2
    rt = rt & " " & sp(i)
Next

MsgBox(rt)


RE: طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - sendbad100 - 26-01-17

وعليكم السلام

شكرا اخي /مساعدة طريقة جميلة

انا افضل ان تقوم بحفظ العملية الحسابة في حقل منفصل بجوار النص بحيث تكون العملية الحسابية مضبطة سلفا من حيث اذا كان الملطلوب الجمع او الطرح وغيره
هذه الطريقة اكنت انت من وضع الاسئلة سلقاً

والله الموفق

RE: طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - عبد العزيز البسكري - 26-01-17

(26-01-17, 11:50 AM)مساعدة كتب : السلام عليكم

تفضل الكود
كود :
Dim txt As String = "مع سعيد 20 ومع حسن 15 ومع كمال 6 قطعة"

Dim sp() As String = Split(txt, " ")
Dim rt As String

For i = 0 To sp.Length - 1
   If IsNumeric(sp(i)) Then sp(i) = sp(i) * 2
   rt = rt & " " & sp(i)
Next

MsgBox(rt)
السّلام عليكم و رحمة الله و بركاته
أخي الكريم لست أدري عدم إشتغال الكود و ظهور الأسطر الحمراء داخله .. أم أكون قد وضعته بطريقة خاطئة
إحتراماتي



RE: طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - sendbad100 - 26-01-17

غيرها هكذا
كود :
Dim txt As String
txt = "مع سعيد 20 ومع حسن 15 ومع كمال 6 قطعة"

Dim sp() As String
sp() = Split(txt, " ")


RE: طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - عبد العزيز البسكري - 26-01-17

(26-01-17, 03:01 PM)sendbad100 كتب : غيرها هكذا
كود :
Dim txt As String
txt = "مع سعيد 20 ومع حسن 15 ومع كمال 6 قطعة"

Dim sp() As String
sp() = Split(txt, " ")



RE: طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - sendbad100 - 26-01-17

وعليكم السلام 

تعديل بسيط على حل اخي الكريم / مساعدة

كود :
Private Sub Command1_Click()

Dim txt As String
Dim rt As String

txt = "مع سعيد 20 ومع حسن 15 ومع كمال 6 قطعة"

sp = Split(txt, " ")


For i = 0 To UBound(sp)
   If IsNumeric(sp(i)) Then sp(i) = sp(i) * 2
   rt = rt & " " & sp(i)
Next

MsgBox (rt)
End Sub


RE: طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - copy77 - 26-01-17

كل الشكر والأحترام لكم من قام بالرد
أولاً ..قمت بعمل البرنامج ولكنة يقوم بالعملية الحسابية  لأول رقم فقط وليس لجميع الارقام الموجودة
ثانياً ..أريد البرنامج أن يتخطي الرقم الاكبر من عدد معين "احددة أنا" أثناء العملية الحسابية
المثال بالمرفقات.
وشكراً

RE: طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - copy77 - 27-01-17

الاستفسار مش واضع ولاأية..؟

RE: طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس - مساعدة - 27-01-17

أشكر الأستاذ sendbad100 للعتديل، واعتذر لعدم انتباهي للقسم،
الكو السابق يشترط وجود مسافات قبل وبعد الرقم ليتم فصله مستقل واجراء العملية الحسابية عليه.

واستفسارك واضح في بداية الموضوع وتم الرد عليه،
اما الآن أنت تستفسر بطريقة أخرى لم تذكرها في بداية موضوعك