Visual Basic.NET - AYUDA A SEPARAR LETRAS DE NUMEROS

   
Vista:

AYUDA A SEPARAR LETRAS DE NUMEROS

Publicado por halan (2 intervenciones) el 04/07/2016 15:47:34
Escribir un programa que de una caja de texto separe los números y las letras y
las coloque en labels separados.


Ejemplo:
Texto en el textbox: Ale3ja4ndro0.
Al presionar el botón en cada label debe aparecer:
Label1: Alejandro
Label2: 340
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

AYUDA A SEPARAR LETRAS DE NUMEROS

Publicado por omar pcc.nett.2018@hotmail.com (151 intervenciones) el 04/07/2016 16:00:32
recorre ls cdena con uin for i compara cada carater si es numero o letra

1
2
3
4
5
6
7
8
9
10
11
dim nombre as string
dim nombre2 as string
for i as integer=0 to letras.lenth-1
 
if  if numeric(caracter) then
nombre +=caracter
 
else
nombre2 +=caracter
 
end if

espero que le entiendas



next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

AYUDA A SEPARAR LETRAS DE NUMEROS

Publicado por rolando (3 intervenciones) el 22/07/2016 20:12:15
debes trabajar mas con Mid$ , Left$, (Basic ) manejo de caracteres y consultar si es numeric o no ?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

AYUDA A SEPARAR LETRAS DE NUMEROS

Publicado por Carlos Castro (33 intervenciones) el 22/07/2016 22:49:29
Esta es una solución...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim letra, texto As String
        Dim numeros As String = ""
        Dim letras As String = ""
        texto = TextBox1.Text.ToUpper
        Dim x As Integer
        For x = 0 To texto.Length - 1
            letra = texto.Substring(x, 1)
            Select Case letra
                Case "A" To "Z"
                    letras = letras & letra
                Case "0" To "9"
                    numeros = numeros & letra
 
            End Select
        Next
        Label1.Text = numeros
        Label2.Text = letras
End Sub

Saludos....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar