Съдържание
Извличане на числова част от низ
Следващата функция ще извлече числовата част от низ:
Функция 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) =- ") Тогава Temp = Temp & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) =". ") Тогава Temp = Temp & Mid (Phrase, Current_Pos, 1) End If If (IsNumeric (Средно (Фраза, Текущ_пос, 1))) = Вярно Тогава Темп = Темп Крайна функция
Така например:
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 файла от тази статия, щракнете тук.
