تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] استخراج اكثر من رقم داخل التكست
#1
السلام عليكم
استخدم هذا الكود فى استخراج رقم من نص داخل التكست

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

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

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

بالتعدل علي كودك:
كود :
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

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: aftfm
#3
شكرا الى كل من ساهم فى الحل 
ولكن عندى سؤال كيف احصل على اعلى قيمة واقل قيمة
مثال اريد استخدام اكبر قيمة واقل قيمة من هذا النموذج
كود :
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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اظافة RSS داخل البرنامج؟ hamadz 0 16 أمس, 09:50 PM
آخر رد: hamadz
  [كود] مشكلة داخل كود دخول التلقائى Mohamed Magdy 0 35 20-10-18, 10:01 PM
آخر رد: Mohamed Magdy
  طريقة تعبئة الداتا جريد فيو من اكثر من جدول سمير جمال 1 63 19-10-18, 08:56 PM
آخر رد: سمير جمال
  سؤال فى التكست بوكس احمد خطاب 0 57 19-10-18, 09:29 AM
آخر رد: احمد خطاب
  مشكلة داخل البوتن Mohamed Magdy 5 79 17-10-18, 10:04 PM
آخر رد: XBOOBX
  [VB.NET] سحب توكين من داخل رابط XBOOBX 8 159 17-10-18, 06:03 PM
آخر رد: XBOOBX
  كيف ابحث داخل قاعدة البيانات احمد خطاب 2 89 17-10-18, 01:51 AM
آخر رد: اسامه الهرماوي
  [VB.NET] المخططات البيانية داخل الاكسيل محمد اسماعيل 0 39 15-10-18, 03:57 AM
آخر رد: محمد اسماعيل
  اظهار اكثر من سطر في أداة NotifyIcon المتألق9 5 119 14-10-18, 10:22 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 72 13-10-18, 03:53 PM
آخر رد: mervandzz

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم