تقييم الموضوع :
  • 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 نوع من انواع التحليل 
وهذا مجهود كبير 
ولكن عند اضافة اسم تحليل الى الداتا جريد فيو اريد ان يقوم الكود بااستخراج اقل قيمية واعلا قيمة فى الحقل الذى يحمل المعدالات البيانية وعند كتابة قيمة فى نتيجة التحليل بحقل اخرى اذا كانت القيمة اقل من المعدل الطبيعى يعطى لون الحقل بلون واذا كان القيمة اكبر من المعدل الطبيعلا يعطى الحقل بلون  فهذا هو المطلوب فقط 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 1 47 أمس, 06:31 PM
آخر رد: ابراهيم النعيمي
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 224 07-12-16, 09:50 PM
آخر رد: ابراهيم النعيمي
Information [VB.NET] مساعده في الفيجوال بيسك هل اقدر اسوي اكثر من فورم a_abdullah 4 98 07-12-16, 02:39 PM
آخر رد: a_abdullah
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 60 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب
  مطلوب تعديلات في هذه الاكواد بحيث تكون فعاله اكثر معتز الجازوي 2 81 28-11-16, 05:36 PM
آخر رد: معتز الجازوي
  مسار قاعدة البيانات في التكست بوكس hglogtd 2 77 19-11-16, 02:19 AM
آخر رد: hglogtd
  [سؤال] حفظ النص المكتوب داخل listBox فارس جراح 7 123 15-11-16, 04:00 AM
آخر رد: LoveVb
  [VB.NET] استخراج رقم السطر rabeh.ram 2 69 08-11-16, 12:18 AM
آخر رد: rabeh.ram
  كيفية إضافة فورم داخل بانل في الفورم الرئيسي bidaya 4 133 21-10-16, 04:40 AM
آخر رد: silverlight
  هل يمكن عرض صفحة اكسل داخل نموذج فيجوال بيسيك 2010 walkady 4 162 18-10-16, 07:52 PM
آخر رد: sayedf1

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


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