Витягнути числову частину рядка
Наступна функція вилучить числову частину з рядка:
Функція 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))) = Правда Тоді Темп = Темп та Середина (Фраза, Поточні_позиції, 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 із цієї статті, натисніть тут.
