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

نسخة كاملة : استخراج اكثر من رقم داخل التكست
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
استخدم هذا الكود فى استخراج رقم من نص داخل التكست

PHP كود :
Dim myString As String DGV.Rows(0).Cells(2).Value.ToString
        Dim number 
myString.Split(" "c).Where(Function(fIsNumeric(f)).FirstOrDefault
        MsgBox
(number
ولكن واجهتنى مشكلة وهى ان هناك رقمين فى النص على هاكذا

Newborn : 100 – 120 fl
فهناك الحد الادنى وهو 100
وهناك الحد الاقصى وهو 120

وعند استخادم الكود يظهر الحد الادنى ولا يظهر الحد الاعلى

فكيف استخدام اصغر رقم داخل التكست وايضا اكبر رقم
السلام عليكم ورحمة الله وبركاته

بالتعدل علي كودك:
كود :
Dim myString As String = DGV.Rows(0).Cells(2).Value.ToString
        Dim number = myString.Split(" "c).Where(Function(f) IsNumeric(f)).ToList

        For Each num In number
            MsgBox(num)
        Next

باستخدام الركجس (Regex):
كود :
Dim Patren As String = "((\d+)? – (\d+)?)" ' هذا التشكيل للبحث عن الأرقام فقط
        Dim txtBox As String =  DGV.Rows(0).Cells(2).Value.ToString

        Dim match As System.Text.RegularExpressions.MatchCollection = System.Text.RegularExpressions.Regex.Matches(txtBox, Patren, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
        If match.Count > 0 Then
            Dim f As String = match.Item(0).Groups(0).Value
            Dim s() As String = f.Split("–")
            MsgBox(s(0))
            MsgBox(s(1))
        End If

****
***
**
*
شكرا الى كل من ساهم فى الحل 
ولكن عندى سؤال كيف احصل على اعلى قيمة واقل قيمة
مثال اريد استخدام اكبر قيمة واقل قيمة من هذا النموذج
كود :
Newborn : 14 - 22 g/dl
1 month : 11.5 – 16.5 g/dl
2 month: 9.4 – 13.0 g/dl
3 - 11 month : 11.1–14.1 g/dl
1 Year: 11.1 – 14.1 g/dl
2 – 6 Year : 11.0 – 14.0 g/dl
7 – 12 Year : 11.5 – 15.5 g/dl
Female : 12.0 – 15.0 g/dl
Male : 13.0 – 17.0 g/dl

ففى هذا النموذج توجد ارقام كثيرة ولكن اريد الحصول على اعلى قيمية واقل قيمية حتى استطيع استخدامها 
شكرا للاخ الكريم على الرد والاهتمام

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