Texto de una cadena alfanumérica
Buenas tardes. Mi duda es la siguiente.
Supongamos que tenemos varios textbox con cadenas alfanuméricas de diferentes longitudes.
Textbox1.text = Abcd1234
Textbox2.Text = DC596
Quisiera poder extraer la cadena de texto, es decir, para el primer textbox, extraer nada más "ABCD".
Supongamos que tenemos varios textbox con cadenas alfanuméricas de diferentes longitudes.
Textbox1.text = Abcd1234
Textbox2.Text = DC596
Quisiera poder extraer la cadena de texto, es decir, para el primer textbox, extraer nada más "ABCD".
1 respuesta
Respuesta de ifrancoz
1
Si está utilizando Visual Basic 6.0 puede hacerlo de esta forma, así extrae cualquier caracter diferente de los dígitos sin importar la posición dentro del Textbox.
Dim I As Integer
Dim L As Integer
Private Sub Command1_Click()
Text2 = ""
L = Len(Text1)
For I = 1 To L
If Asc(Mid(Text1, I, 1)) < 48 Or Asc(Mid(Text1, I, 1)) > 57 Then
Text2 = Text2 & Mid(Text1, I, 1)
End If
Next I
End Sub
Suerte !
Dim I As Integer
Dim L As Integer
Private Sub Command1_Click()
Text2 = ""
L = Len(Text1)
For I = 1 To L
If Asc(Mid(Text1, I, 1)) < 48 Or Asc(Mid(Text1, I, 1)) > 57 Then
Text2 = Text2 & Mid(Text1, I, 1)
End If
Next I
End Sub
Suerte !
