[mrfenix93]

السلام عليكم لدي مشكلة في استخراج رقم من نص

اقوم بجلب القرائة من ميزان و تكون القرائة كالأتي

كود :

G 122.50 kg

G 171.50 kg

وعند استخدام الكود 

كود :

Public Function GetNumber(ByVal text As String) As Double
       Dim rval As String = String.Empty
       Dim coll As MatchCollection = Regex.Matches(text, "\d+")
       For Each a As Match In coll
           rval += a.ToString
       Next
       Return Convert.ToInt64(rval)
   End Function

تظهر النتيجة

كود :

12250

17150

دون استخدام الأرقام بعد العلامة العشرية 


فتكون النتيجة خطأ احتاج المساعدة