Sadržaj
Izdvoji numerički dio niza
Sljedeća funkcija će izdvojiti numerički dio iz niza:
Funkcija Extract_Number_f__Text (Phrase As String) Kao 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) =-- ") Zatim 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 (Sredina (izraz, trenutni_pozitivi, 1))) = Istina Tada je temp = Temp i sredina (izraz, Trenutni_pozicije, 1) Kraj ako je sljedeći Trenutni_pozicija ako je Len (Temp) = 0 Tada Izvadi_Broj_iz_Teksta = 0 Ostalo Izdvoji_Broj_iz_Teksta = CDbl (Temp) Kraj Ako Završna funkcija
Tako na primjer:
Extract_Number_from_Text (“uuigguo 995”) vratit će 995
Extract_Number_from_Text (“uuigguo 0.12995”) vratit će 0.12995
Extract_Number_from_Text (“yu00.000456”) vratit će 0.000456
= Izvuci_broj_iz_teksta ("juii -0009.9987iihiii") vratit će se -0.9987
Ako u frazi nema broja, vraća se nula.
Kliknite ovdje da biste preuzeli .XLSM datoteku iz ovog članka.
