Inhaltsverzeichnis
Numerischen Teil des Strings extrahieren
Die folgende Funktion extrahiert den numerischen Teil aus einer Zeichenfolge:
Funktion 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 (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 Endfunktion
Also zum Beispiel:
Extract_Number_from_Text("uuigguo 995") gibt 995 zurück
Extract_Number_from_Text(“uuigguo 0.12995”) gibt 0.12995 zurück
Extract_Number_from_Text("yu00.000456") gibt 0,000456 . zurück
=Extract_Number_from_Text(“juii-0009.9987iihiii”) wird -0.9987 zurückgeben
Wenn die Phrase keine Zahl enthält, wird eine Null zurückgegeben.
Klicken Sie hier, um die .XLSM-Datei aus diesem Artikel herunterzuladen.
