Aplicación 9: Ejemplo de uso de Funciones de Cadena

Ejemplo de uso de algunas funciones de cadena.

 

Intentare explicar un poco sobre las funciones utlizadas en este ejemplo:

• Len: Devuelve el número de caracteres de la expresión de cadena especificada, con exclusión de los espacios al final. 
• Left: Devuelve la parte izquierda de una cadena de caracteres con el número especificado de caracteres.
• Right: Devuelve la parte derecha de una cadena de caracteres con el número especificado de caracteres.
• Mid (Función de VB): Devuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.
• Trim: Devuelve la expresión de caracteres especificada después de eliminar todos los espacios en blanco finales.
• InStr (Función de VB): Devuelve un entero que especifica la posición inicial de la primera aparición de una cadena dentro de otra.
• UCase(Función de VB): Devuelve una cadena o un carácter convertidos en mayúscula
• LCase(Función de VB): Devuelve una cadena o un carácter convertidos en minúscula.
• StrConv: Esta función devuelve una cadena convertida según se ha especificado
• VbStrConv: Indica qué tipo de conversión se debe realizar al llamar a la función StrConv.
  • Cuando se llama a la función StrConv, se pueden utilizar los siguientes miembros de la enumeración (Clic para verlos) en el código en lugar de los valores reales. El argumento Conversion toma los miembros de enumeración VbStrConv.

El codigo es el siguiente: Función para limpiar los TextBox, la cual se llamara en el Boton Limpiar.

 Function Limpiar()
        txtFrase.Text = ""
        txtLong.Text = ""
 txt1Carac.Text = ""
        txt2Carac.Text = ""
        txtPosA.Text = ""
        txtMayus.Text = ""
        txtMinus.Text = ""
        txt1Mayus.Text = ""
        txt2a6.Text = ""
        txtFrase.Focus()
    End Function

codigo utilizado en el botón procesar

txtLong.Text = Len(txtFrase.Text) 'da como resultado el tamaño de la cadena o la cantidad de caracteres
        txt1Carac.Text = Microsoft.VisualBasic.Left(Trim(txtFrase.Text), 1)
        txt2Carac.Text = Microsoft.VisualBasic.Right(Trim(txtFrase.Text), 1)
        txt2a6.Text = Mid(Trim(txtFrase.Text), 2, 5)
        txtPosA.Text = InStr(txtFrase.Text, "a") Or InStr(txtFrase.Text, "A")
        txtMayus.Text = LCase(txtFrase.Text)
        txtMinus.Text = UCase(txtFrase.Text)
        txt1Mayus.Text = StrConv(txtFrase.Text, VbStrConv.ProperCase)

Para descargar aplicación clic AQUI