Sisällysluettelo
Pura merkkijonon numeerinen osa
Seuraava toiminto poimii numeerisen osan merkkijonosta:
Toiminto Extract_Number_from_Text (lause merkkijonona) kaksinkertaisena himmennettynä Length_of_String kokonaislukuna himmennettynä Current_Pos kokonaislukuna himmennettynä merkkijonona Length_of_String = Len (Phrase) Temp = "" For Current_Pos = 1 To Length_of_String If (Mid (Phrase, Current_Pos, 1) = "- ") Sitten lämpötila = lämpötila ja keski (lause, nykyiset_posit, 1) Lopeta, jos jos (keski (lause, nykyinen_pos, 1) =". ") Sitten lämpötila = lämpötila ja keskitaso (lause, nykyiset_posit, 1) Lopeta, jos (IsNumeric (Mid (Phrase, Current_Pos, 1))) = True Sitten 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 Lopeta toiminto
Joten esimerkiksi:
Extract_Number_from_Text (“uuigguo 995”) palauttaa 995
Extract_Number_from_Text (“uuigguo 0.12995”) palauttaa 0.12995
Extract_Number_from_Text ("yu00.000456") palauttaa 0,000456
= Extract_Number_from_Text (“juii -0009.9987iihiii”) palauttaa -0.9987
Jos lauseessa ei ole numeroa, palautetaan nolla.
Voit ladata .XLSM -tiedoston tästä artikkelista napsauttamalla tätä.
