Как извлечь десятичное число в строке?

Question

Я хочу извлечь (или отделить) десятичное число от string. Как:

ширина (6,15)

Здесь я просто хочу, чтобы сохранить десятичное число.

Sub first_try() 

Dim a, b 
a = "width(5.55)" 
For i = 1 To Len(a) 
    If IsNumeric(Mid(a, i, 1)) Then 
     b = b & Mid(a, i, 1) 
    End If 
Next i 

'Debug.Print b 

End Sub 

Но в этом случае я могу сохранить только число (например, 555 для моего кода), но не десятичное число. И строка не всегда похожа на Width (5.55), регулярного следования нет. Поэтому, если у вас есть идея, пожалуйста, дайте мне несколько советов. Спасибо!

Answer 1

Вот один из возможных способов:

Sub first_try() 

Dim a, b 
Dim i As Long 
a = "width(5.55)" 
For i = 1 To Len(a) 
    If IsNumeric(Mid(a, i, 1)) Then 
     b = Val(Mid(a, i)) 
     Exit For 
    End If 
Next i 

Debug.Print b 

End Sub 

предоставил информацию, которую вы предоставили. Если вам нужно разрешить отрицательные числа, которые должны быть простым изменением.

Answer 2

Вот способ получить цифры и десятичная точка:

Sub first_try() 

Dim a, b 
a = "width(5.55)" 
For i = 1 To Len(a) 
    If IsNumeric(Mid(a, i, 1)) Or Mid(a, i, 1) = "." Then 
     b = b & Mid(a, i, 1) 
    End If 
Next i 

Debug.Print b 

End Sub