string - ¿Cómo encontrar números de una cadena?

excel vba

Question

Necesito encontrar números de una string . ¿Cómo se encuentran los números de una string en VBA Excel?

Answer 1

Ampliando la respuesta de brettdj, para analizar dígitos incrustados en números separados:

Sub TestNumList()
Dim NumList As Variant ''Array
NumList = GetNums("34d1fgd43g1 dg5d999gdg2076")
Dim i As Integer
For i = LBound(NumList) To UBound(NumList)
MsgBox i + 1 & ": " & NumList(i)
Next i
End Sub
Function GetNums(ByVal strIn As String) As Variant ''Array of numeric strings
Dim RegExpObj As Object
Dim NumStr As String
Set RegExpObj = CreateObject("vbscript.regexp")
With RegExpObj
.Global = True
.Pattern = "[^/d]+"
NumStr = .Replace(strIn, " ")
End With
GetNums = Split(Trim(NumStr), " ")
End Function

Answer 2

Esta es una variante de la publicación de brettdj''s y pstraton.

¡Esto devolverá un verdadero valor y no le dará el #NUM! error. Y /D es una abreviatura de todo menos dígitos. El resto es muy parecido a los demás solo con esta solución menor.

Function StripChar(Txt As String) As Variant
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "/D"
StripChar = Val(.Replace(Txt, " "))
End With
End Function

Answer 3

Las expresiones regulares se construyen para analizar. Si bien la sintaxis puede tardar un tiempo en adoptar este enfoque es muy eficiente y muy flexible para manejar extracciones / reemplazos de cadenas más complejas.

Sub Tester()
MsgBox CleanString("3d1fgd4g1dg5d9gdg")
End Sub
Function CleanString(strIn As String) As String
Dim objRegex
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
.Global = True
.Pattern = "[^/d]+"
CleanString = .Replace(strIn, vbNullString)
End With
End Function

Answer 4

Suponiendo que quiere decir que quiere que se eliminen los no números, debería poder usar algo como:

Function onlyDigits(s As String) As String
'' Variables needed (remember to use "option explicit"). ''
Dim retval As String '' This is the return string. ''
Dim i As Integer '' Counter for character position. ''
'' Initialise return string to empty ''
retval = ""
'' For every character in input string, copy digits to ''
'' return string. ''
For i = 1 To Len(s)
If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then
retval = retval + Mid(s, i, 1)
End If
Next
'' Then return the return string. ''
onlyDigits = retval
End Function

Llamando a esto con:

Dim myStr as String
myStr = onlyDigits ("3d1fgd4g1dg5d9gdg")
MsgBox (myStr)

le dará un cuadro de diálogo que contiene:

314159

y esas dos primeras líneas muestran cómo puede almacenarlo en una variable de cadena arbitraria, para hacer lo que desee.

Answer 5

Use la función de VBA incorporada Val, si los números están en el extremo delantero de la cadena:

Dim str as String
Dim lng as Long
str = "1 149 xyz"
lng = Val(str)

lng = 1149

Función Val, en MSDN