Buen día,

tengo dos textbox, en el textbox NOMBRE ingreso algún texto, por ejemplo CANAL VISUAL BASIC. En el otro textbox FOLIO, necesito extraer las dos primeras letras de cada palabra, la cual quedaría así: CAVIBA.

Tengo este código pero me sale error "Indice fuera de los límites de la matriz"

Código:

        Dim cadena As String = UCase(Trim(NombreTextBox.Text))
        Dim v() As String

        v = cadena.Split(" ")

        Try
            FolioTextBox.Text = v(0).ToString & v(1).ToString & v(2).ToString
            FolioTextBox.Text = Mid(v(0).ToString, 1, 2) & Mid(v(1).ToString, 1, 3) & Mid(v(2).ToString, 1, 3)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

Qué estoy haciendo mal?

Yo lo haría así:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim variable As String = "CANAL VISUAL BASIC AHORA"
Dim longitud As Integer = Len(variable)
Dim desde As Integer = 1
Dim letras As String
letras = Mid(variable, 1, 2)
For x = 1 To longitud
If Mid(variable, x, 1) = " " Then
letras = letras + Mid(variable, x + 1, 2)
End If
Next
Me.Label1.Text = letras
End Sub

Saludos

VBpuntoNet

Yo haria algo parecido a esto:

Código:

Private Function zzz(ByRef texto As String) As String
    If String.IsNullOrEmpty(texto) Then
        Throw New System.Exception("¡¡¡LA CADENA NO PÛEDE ESTAR VACIA!!!")
    End If

    Dim cadena As String = texto.Trim.ToUpper
    Dim contador As Integer = 0
    Dim resultado As String = String.Empty

    For i As Integer = 0 To cadena.Length - 1
        If cadena(i) <> " "c Then
            contador += 1
            If contador <= 2 Then
                resultado += cadena(i)
            End If
        Else
            contador = 0
        End If
    Next

    Return resultado
End Function

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        FolioTextBox.Text = zzz(NombreTextBox.Text)
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

Buen día para todos,

osd32 te cuento que lo puedes hacer con el método Substring te quedaría el código así:

Código:

':::Declaramos una variable tipo string para almacenar la frase
        Dim Cadena As String = "Aprendamos de Programación"
        ':::Creamos el array tambien de tipo string para guardar cada palabra
        Dim Palabra() As String
        ':::Asignamos al array nuestra Cadena con la funcion Split y como separador un espacio vacio
        Palabra = Cadena.Split(" ")
        ':::Iniciamos nuestro capturador de errores
        Try
            ':::Ahora pasamos a nuestro Label cada parte o seccion del array y le sustraemos las dos (2) primera letras
            LblResultado.Text = "1: " & Palabra(0).Substring(0, 2) & vbCrLf & "2: " & Palabra(1).Substring(0, 2) & vbCrLf & "3: " & Palabra(2).Substring(0, 2)
        Catch ex As Exception
            MsgBox("No se completo la operación por :" & ex.Message)
        End Try

Espero haber sido e ayuda.

Aca explico mejor este proceso.

https://aprendamosdeprogramacion.wor...bra-en-vb-net/

Que tengan buen día.