Buscando una función de cadenas
Tengo la siguiente cadena:
AT2-001-3A
Y quiero que me devuelva todo el texto a partir de AT2-, es decir, necesito una función para que al aplicarla:
cadena= funcion(cadena, 0, "-"), me devuelva cadena2 = 001-3A
AT2-001-3A
Y quiero que me devuelva todo el texto a partir de AT2-, es decir, necesito una función para que al aplicarla:
cadena= funcion(cadena, 0, "-"), me devuelva cadena2 = 001-3A
2 Respuestas
Respuesta de adrianxxi
1
En un principio parece fácil..
Si solo son los primeros cuatro caracteres los que tienes que quitar entonces usa la función right
dato=Right(cadena,len(cadena)-4)
Si solo son los primeros cuatro caracteres los que tienes que quitar entonces usa la función right
dato=Right(cadena,len(cadena)-4)
Respuesta de leosoft
1
Acá te paso una función, pero como es de solo una linea, puede que lo utilices directamente sin la función, fíjate el ejemplo:
'esta es la funcion
Private Function Cadena(Texto As String) As String
Cadena = Right(Texto, (Len(Texto) - 4))
End Function
'asi la utilizarias
Dim Cadena1 as String
Cadena1 = "AT2-001-3A"
Cadena2 = cadena(cadena1)
pero fijate que puedes directamente hacer esto:
Dim Cadena1 as String
Cadena1 = "AT2-001-3A"
Cadena2 = Right(Cadena1, (Len(Cadena1) - 4))
El resultado es igual.
En los dos casos, en cadena2 te quedaría solo el "001-3A"
Cualquier duda estoy a tu disposición.
'esta es la funcion
Private Function Cadena(Texto As String) As String
Cadena = Right(Texto, (Len(Texto) - 4))
End Function
'asi la utilizarias
Dim Cadena1 as String
Cadena1 = "AT2-001-3A"
Cadena2 = cadena(cadena1)
pero fijate que puedes directamente hacer esto:
Dim Cadena1 as String
Cadena1 = "AT2-001-3A"
Cadena2 = Right(Cadena1, (Len(Cadena1) - 4))
El resultado es igual.
En los dos casos, en cadena2 te quedaría solo el "001-3A"
Cualquier duda estoy a tu disposición.