Satura rādītājs
Izvilkt virknes skaitlisko daļu
Šī funkcija no virknes iegūs skaitlisko daļu:
Funkcija Extract_Number_from_Text (frāze kā virkne) kā divkārša garuma garums_string kā vesels skaitlis Dim Current_Pos kā vesels skaitlis Dim temp kā virkne Length_of_String = Len (Phrase) Temp = "" For Current_Pos = 1 To Length_of_String If (Mid (Phrase, Current_Pos, 1) = "- ") Tad Temp = Temp & Mid (frāze, Current_Pos, 1) Beigt, ja (Mid (Phrase, Current_Pos, 1) =". ") Tad Temp = Temp & Mid (frāze, Current_Pos, 1) Beigt, ja (IsNumeric (Mid (Phrase, Current_Pos, 1))) = True, tad Temp = Temp & Mid (frāze, Current_Pos, 1) Beigt, ja nākamā Current_Pos Ja Len (Temp) = 0 Tad Extract_Number_from_Text = 0 Else Extract_Number_from_Text = CDbl (Temp) Beigas Ja Beigu funkcija
Tātad, piemēram:
Extract_Number_from_Text (“uuigguo 995”) atgriezīs 995
Extract_Number_from_Text (“uuigguo 0.12995”) atgriezīs 0.12995
Extract_Number_from_Text (“yu00.000456”) atgriezīs 0.000456
= Extract_Number_from_Text (“juii -0009.9987iihiii”) atgriezīsies -0.9987
Ja frāzē nav skaitļa, tiek atgriezta nulle.
Lai lejupielādētu .XLSM failu no šī raksta, noklikšķiniet šeit.
