Separar cadena de caracteres

Creo que con este código seria suficiente:
Option Explicit
Private Sub Form_Load()
Dim strTexto1 As String
Dim strTexto2 As String
Dim strTexto3 As String
Dim strTextoEntrada As String
strTextoEntrada = "Cadena1 Cadena2 Cadena3 Cadena4"
strTexto1 = Left(strTextoEntrada, InStr(strTextoEntrada, " ") - 1)
strTextoEntrada = Right(strTextoEntrada, InStrRev(strTextoEntrada, " ") - 1)
strTexto2 = Left(strTextoEntrada, InStr(strTextoEntrada, " ") - 1)
strTexto3 = Right(strTextoEntrada, InStrRev(strTextoEntrada, " ") - 1)
MsgBox strTexto1
MsgBox strTexto2
MsgBox strTexto3
End Sub

1 Respuesta

Respuesta
1
Cagada mía, aquí va el código correcto:
Option Explicit
Private Sub Form_Load()
Dim strTexto1 As String
Dim strTexto2 As String
Dim strTexto3 As String
Dim strTextoEntrada As String
strTextoEntrada = "Rodriguez Ramirez Jose Antonio"
strTexto1 = Left(strTextoEntrada, InStr(strTextoEntrada, " ") - 1)
strTextoEntrada = Mid(strTextoEntrada, InStr(strTextoEntrada, " ") + 1)
strTexto2 = Left(strTextoEntrada, InStr(strTextoEntrada, " ") - 1)
strTexto3 = Mid(strTextoEntrada, InStr(strTextoEntrada, " ") + 1)
MsgBox strTexto1
MsgBox strTexto2
MsgBox strTexto3
End Sub
PD: No fallaba porque acabasen las palabras acabasen con un numero.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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
2 respuestas

Solo letras en textbox, mayúsculas a minúsculas

Quisiera hacerte una pregunta, como seria el código si quiero que el textbox solo acepte letras convierta la inicial en mayúscula y que al presionar "ENTER" pase al siguiente textbox.
1 respuesta

Sacar información de un archivo txt

Necesito sacar información de un archivo de texto, un string determinado dentro de éste. Mediante visual basic o VBscript.
1 respuesta

Permuta

Como hago para pasarles lo que tengo en un text1.text a la función de permuta de números, y como hago para que si le doy 6 números a combinar, dichas combinaciones me las muestre en grupos de 3, que no se repitan..
1 respuesta

Como buscar archivos en visual basic

Así esta mi programa pero no logro que me regrese todo los archivos que existen solo el primero y ya no sigue buscando... Podrías decirme como le puedo hacer para que me regrese todos y no solo uno gracias... Option Explicit Private Declare Function...
1 respuesta

Printer Dialog

¿Cómo utilizar Printer Dialog sin que cambie la impresora predeterminada del equipo?
1 respuesta

Seleccionar impresora

En mi programa quiero mandar a imprimir a la impresora seleccionada en un CommonDialog, pero siempre imprime en la predeterminada. ¿Hay alguna forma de saber la impresora SELECCIONADA en el CommonDialog y poder ponerla como predeterminada?.
1 respuesta

Visual basic y excel

Te paso a comentar, desde visual Basic exporto unos 10000 registros a una planilla de excel, una vez que fueron exportados combino las celdas que son iguales, el problema es que se cuelga cuando esta combinando.
2 respuestas

Ucase & lcase letra por letra

Tengo una duda y espero alguien me pueda ayudar es algo muy sencillo a decir vdd; necesito el código en VB para hacer que mediante un command button el texto escrito cambia a mayúsculas y minúsculas letra y letra; es decir: Introduzco un string "hola...
1 respuesta

Extraer la zona horaria del PC en visual basic

Necesito extraer la zona horaria de mi pc. Tengo un access que realiza una consulta a unas tablas que registran las horas en UTC y yo necesitaría extraer de mi pc la zona horaria (en este caso UTC+1) para poder trabajar con esas horas.
1 respuesta