Extrahujte numerickú časť reťazca
Nasledujúca funkcia extrahuje číselnú časť z reťazca:
Funkcia Extract_Number_from_Text (fráza ako reťazec) ako dvojitá dimenzia dĺžka_ reťazca ako celočíselná dimenzia prúdová_pozícia ako celočíselná stmievaná teplota ako reťazec dĺžka_of_String = len (fráza) teplota = "" pre Current_Pos = 1 do Length_of_String If (stredná (fráza, aktuálna_pozícia, 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á funkcia
Takže napríklad:
Extract_Number_from_Text („uuigguo 995“) vráti 995
Extract_Number_from_Text („uuigguo 0.12995“) sa vráti 0.12995
Extract_Number_from_Text („yu00.000456“) vráti 0,000456
= Extract_Number_from_Text („juii -0009.9987iihiii“) vráti -0,9987
Ak fráza neobsahuje žiadne číslo, vráti sa nula.
Kliknite sem, ak si chcete stiahnuť súbor .XLSM z tohto článku.
