Содержание
Извлечь числовую часть строки
Следующая функция извлечет числовую часть из строки:
Функция Extract_Number_from_Text (Phrase As String) As Double Dim Length_of_String As Integer Dim Current_Pos As Integer Dim Temp As String Length_of_String = Len (Phrase) Temp = "" For Current_Pos = 1 To Length_of_String If (Mid (Phrase, Current_Pos, 1) = "- ") Then Temp = Temp & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) =". ") Then Temp = Temp & Mid (Phrase, Current_Pos, 1) End If If (IsNumeric (Mid (Phrase, Current_Pos, 1))) = True Then Temp = Temp & Mid (Phrase, Current_Pos, 1) Конец, если следующий Current_Pos, если Len (Temp) = 0 Тогда Extract_Number_from_Text = 0 Остальное Extract_Number_from_Text = CDbl (Temp) Конец, если Конечная функция
Так например:
Extract_Number_from_Text («uuigguo 995») вернет 995
Extract_Number_from_Text («uuigguo 0.12995») вернет 0,12995.
Extract_Number_from_Text («yu00.000456») вернет 0,000456.
= Extract_Number_from_Text («juii-0009.9987iihiii») вернет -0.9987.
Если во фразе нет числа, возвращается ноль.
Чтобы загрузить файл .XLSM из этой статьи, щелкните здесь.
