Inhoudsopgave
Numeriek gedeelte van tekenreeks extraheren
De volgende functie haalt het numerieke gedeelte uit een string:
Functie 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) = "- ") Then 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 (IsNumeriek (Mid(Phrase, Current_Pos, 1))) = True Then Temp = Temp & Mid(phrase, Current_Pos, 1) End If Volgende Current_Pos If Len(Temp) = 0 Then Extract_Number_from_Text = 0 Anders Extract_Number_from_Text = CDbl(Temp) End If Functie beëindigen
Dus bijvoorbeeld:
Extract_Number_from_Text ("uuigguo 995") retourneert 995
Extract_Number_from_Text ("uuigguo 0.12995") zal 0.12995 teruggeven
Extract_Number_from_Text ("yu00.000456") retourneert 0,000456
=Extract_Number_from_Text(“juii-0009.9987iihiii”) zal -0.9987 teruggeven
Als er geen getal in de zin staat, wordt een nul geretourneerd.
Klik hier om het .XLSM-bestand uit dit artikel te downloaden.
