Tabla de contenido
Extraer la parte numérica de la cadena
La siguiente función extraerá la parte numérica de una cadena:
Función Extract_Number_from_Text (Frase como cadena) Como doble dim Length_of_String como entero Dim Current_Pos como entero Dim Temp como cadena Length_of_String = Len (Phrase) Temp = "" Para 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 Función final
Así por ejemplo:
Extract_Number_from_Text ("uuigguo 995") devolverá 995
Extract_Number_from_Text ("uuigguo 0.12995") devolverá 0.12995
Extract_Number_from_Text ("yu00.000456") devolverá 0.000456
= Extract_Number_from_Text ("juii-0009.9987iihiii") devolverá -0.9987
Si no hay ningún número en la frase, se devuelve un cero.
Para descargar el archivo .XLSM de este artículo, haga clic aquí.
