+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : استخلاص رقم من داخل text (/showthread.php?tid=15223)
استخلاص رقم من داخل text - superwoofer - 25-03-16
هل من طريقة استخلاص الارقام فقط من داخل text
مثال
لدي text به
عربي 2×2+1
ارجاع القيمة
2×1+2
RE: استخلاص رقم من داخل text - Amir_Alzubidy - 25-03-16
اهلا و سهلا
تفضل اخي الحبيب
في المرفقات
[attachment=9918]
RE: استخلاص رقم من داخل text - superwoofer - 03-04-16
جزاك الله خير اخي
ولاكن عند الضغط عليها اكثر من مرة يتم تكرار الرقم
RE: استخلاص رقم من داخل text - Ahmed_Mansoor - 03-04-16
أهلا أخي الكريم , كود أخي أمير لاغبار عليه , فقط قم بنقل تعريف المتغير Test_String والمتغير Str إلى داخل كود الزر وتنتهي المشكله وأقصد بالتعريف هذا الجزء :
PHP كود :
Dim Test_String As String
Dim Str As Integer
ضعه داخل كود الزر ليصبح كود الفورم هكذا :
PHP كود :
Private Sub Command1_Click()
Dim Test_String As String
Dim Str As Integer
For Str = 1 To Len(Text1)
If Not InStr("0123456789+-/*", Mid$(Text1, Str, 1)) = 0 Then
Test_String = Test_String + Mid$(Text1, Str, 1)
End If
Next Str
Text1 = Test_String
End Sub
RE: استخلاص رقم من داخل text - superwoofer - 04-04-16
جزاكم الله خير