Extrahujte číselnou část řetězce
Následující funkce extrahuje číselnou část z řetězce:
Funkce Extract_Number_from_Text (Fráze jako řetězec) Jako Double Dim Délka_of_String Jako Integer Dim Current_Pos Jako Integer Dim Temp Jako řetězec Length_of_String = Len (Phrase) Temp = "" Pro 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) End If Next Current_Pos If Len (Temp) = 0 Then Extract_Number_from_Text = 0 Else Extract_Number_from_Text = CDbl (Temp) End If Koncová funkce
Takže například:
Extract_Number_from_Text („uuigguo 995“) vrátí 995
Extract_Number_from_Text („uuigguo 0.12995“) vrátí 0.12995
Extract_Number_from_Text („yu00.000456“) vrátí 0,000456
= Extract_Number_from_Text („juii -0009.9987iihiii“) vrátí -0,9987
Pokud ve frázi není žádné číslo, pak se vrátí nula.
Chcete -li stáhnout soubor .XLSM z tohoto článku, klikněte sem.
