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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كود تجاهل مافي التكست بوكس hglogtd 3 34 أمس, 04:14 PM
آخر رد: silverlight
  كيفية عمل تضبيط الفلتر من داخل فلتر اخر khaled12345 4 57 أمس, 04:50 AM
آخر رد: khaled12345
  طريق الكتابة على التكست بوكس aftfm 6 87 26-05-17, 09:01 PM
آخر رد: aftfm
  البحث او الفلتر باكثر من اسم من داخل عمود Name khaled12345 2 68 21-05-17, 08:18 AM
آخر رد: khaled12345
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 52 19-05-17, 04:09 PM
آخر رد: e-coder
  حدف حرف من التكست المتألق9 7 131 13-05-17, 06:59 AM
آخر رد: حريف برمجة
  أحتاج كود يغير لون صف أو اكثر من صف في داتا غريد فيو بناء على شرط samawi 2 74 29-04-17, 12:56 AM
آخر رد: samawi
  انترنت اكسبولور داخل برنامج ديسك توب weswes88 1 60 18-04-17, 05:57 AM
آخر رد: Anas Mahmoud
  محتاج كود للتصفية داخل datagridviwe بواسطة حقل id وتصفية بشرط تحديد الرينج mohammed.gadain61 2 94 17-04-17, 09:00 PM
آخر رد: silverlight
  السلام عليكم احتاج مساعدة بكود اختبار صغير داخل داتا جيرد mohammed.gadain61 4 106 16-04-17, 03:38 AM
آخر رد: mohammed.gadain61

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


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