Visual Basic - Cadena de texto

Life is soft - evento anual de software empresarial
   
Vista:

Cadena de texto

Publicado por Carlos Alberto carlosiliams@gmail.com (5 intervenciones) el 02/06/2016 18:45:06
Hola !!
Necesito extraer los números entre las / ejemplo

24/14528/45 de esta cadena me tiene que quedar 14528

con esta función logro quitarle las barra (/) pero no logro lo anterior

EL TEXBOX TIENE ESTE NUMERO ... 24/14528/45

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
 
Dim xSoloTexto As String
        xSoloTexto = Me.Text1.Text
 
       xSoloTexto = Replace(xSoloTexto, "/", "")
 
      Me.Text2.Text = xSoloTexto
 
End Sub

LA VARIABLE TERMINA CON 241452845
====================================

Si alguno me puede ayudar con esto seria Ok ...
Saludos a todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Cadena de texto

Publicado por Facundo (58 intervenciones) el 05/06/2016 06:27:52
si el textbox siempre tiene el mismo formato n/m/o, y lo que vos querés es el val(m) podés hacer así:

1
2
3
4
dim datos() as variant
dato=Me.Text1.Text
datos=split (dato,"/")
quiero=val(datos(1))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar