Innholdsfortegnelse
Trekk ut numerisk del av strengen
Følgende funksjon trekker ut den numeriske delen fra en streng:
Funksjon Extract_Number_from_Text (Phrase As String) As 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) = "- ") Da Temp = Temp & Mid (Phrase, Current_Pos, 1) End If If (Mid (Phrase, Current_Pos, 1) =". ") Da 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 Sluttfunksjon
Så for eksempel:
Extract_Number_from_Text (“uuigguo 995”) returnerer 995
Extract_Number_from_Text (“uuigguo 0.12995”) returnerer 0.12995
Extract_Number_from_Text (“yu00.000456”) returnerer 0.000456
= Extract_Number_from_Text (“juii -0009.9987iihiii”) returnerer -0.9987
Hvis det ikke er noe tall i uttrykket, returneres et null.
Klikk her for å laste ned .XLSM -filen fra denne artikkelen.
