Kazalo
Izvleči numerični del niza
Naslednja funkcija bo izvlekla številčni del iz niza:
Funkcija Extract_Number_from_Text (Phrase As String) Kot 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) =-- ") Potem Temp = Temp & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) =". ") Potem Temp = Temp & Mid (Phrase, Current_Pos, 1) End If If (IsNumeric (Sredina (fraza, trenutni_poslovnik, 1))) = True Potem Temp = Temp & Mid (Fraza, Current_Pos, 1) Konec Če Naslednji Current_Pos Če Len (Temp) = 0 Potem Extract_Number_from_Text = 0 Else Extract_Number_from_Text = CDbl (Temp) End If Končana funkcija
Tako na primer:
Extract_Number_from_Text (“uuigguo 995”) vrne 995
Extract_Number_from_Text (“uuigguo 0.12995”) vrne 0.12995
Extract_Number_from_Text (“yu00.000456”) vrne 0.000456
= Extract_Number_from_Text (“juii -0009.9987iihiii”) bo vrnilo -0.9987
Če v stavku ni številke, se vrne nič.
Če želite prenesti datoteko .XLSM iz tega članka, kliknite tukaj.
