[SOLUCIONADO] quitar una letra de un textbox

[maialenlopez]

Hola;

Tengo un textbox que contiene por ejemplo G12 y necesito quedarme con la G por un lado y por el otro el 12.
Con el código escrito consiguo coger la G pero me da error a la hora de coger el 12.

Código vb.net:

Dim entero, hoja, tipo As String
        Dim contar As Integer
        entero = Me.textIdentificador.text
        contar = entero.Length()
        tipo = entero.Substring(0, 1)
        [B]hoja = entero.Substring(1, contar)[/B]
 

A la hora de hacer lo marcado en negrita me da error. ¿Alguien sabe como puedo coger el 12?

[emmax]

Prueba poniendo lo siguiente.

Código vb.net:

hoja = entero.Substring(1, contar - 1)
 

Ya que el SubString empieza de cero como bien lo pones en tu código, para el primer carácter, pero el "Leght" te debe de arrojar 3 y te debe de estar marcando un error fuera de índice si no me equivoco, ya que no mencionas el error que te marca, supondré que es ese y pues tal ves te sirva la solucion que te menciono.

Saludos...

[palmerasistemas]

Este codigo te ayudará, saludos.
llamame histoclin.

Me.TextBox1.Text = "G12"

'seleciconamos G
Me.TextBox1.Select(0, 1)
Dim var1 As String
var1 = Me.TextBox1.SelectedText
MsgBox(var1)

'seleciconamos 12
Me.TextBox1.Select(1, 2)
Dim var2 As Integer
var2 = Me.TextBox1.SelectedText
MsgBox(var2)

[drako_darpan]

Hola que tal, bueno las soluciones que te dan si te sirven para lo que necesitas. Pero que pasaria si existen mas letras despues de los numeros, ya te dejaria de funcionar.

Se me ocurre que hagas un arreglo y compares si el campo que estas leyendo es Letra o es Número, asi los separas en 2 arreglos diferentes.

Ahorita no tengo el fuente, puesto que apenas se me ocurrio y tengo algo de trabajo , pero nada mas termino y me pongo a hacerlo y lo posteo

[maialenlopez]

Iniciado por palmerasistemas

Este codigo te ayudará, saludos.
llamame histoclin.

Me.TextBox1.Text = "G12"

'seleciconamos G
Me.TextBox1.Select(0, 1)
Dim var1 As String
var1 = Me.TextBox1.SelectedText
MsgBox(var1)

'seleciconamos 12
Me.TextBox1.Select(1, 2)
Dim var2 As Integer
var2 = Me.TextBox1.SelectedText
MsgBox(var2)

Gracias; lo he echo como me has dicho y sale perfecto

[emmax]

Iniciado por maialenlopez

Gracias; lo he echo como me has dicho y sale perfecto

Hola aqui tendrias que ver dos cosas, no se como este exactamente tu programa o los datos que manejas a lo mejor y no te afecta, pero que tal si tienes por ejemplo "G112" ahi ya no te serviria la opcion que te dio "palmerasistemas" ya que solo te tomaria "G" y "11", para esto te serviria la opcion que yo te di, ahora como menciona "drako_darpan" si tienes mas letras tampoco te serviria tendrias que validar esto.

Saludos...