lunes, 5 de octubre de 2009

extraer las 2 primeras letras de cada palabra de un textbox

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cadena As String = LCase(Trim(TextBox2.Text))
Dim v() As String

v = cadena.Split(" ")

Label3.Text = v(0).ToString & v(1).ToString
Label4.Text = Mid(v(0).ToString, 1, 3) & Mid(v(1).ToString, 1, 3)

End Sub

Para nota: recorrer el Array v() con un For

No hay comentarios:

Publicar un comentario