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

Publicado el 20 junio, 2010 en Programación, Recursos Gratis, Trucos, Visual Basic, Visual Studio 2010 Express y etiquetado en , , , , , , , , , , , , . Guarda el enlace permanente. 4 comentarios.

  1. estefany gomez

    graxias me ayudo bastant

  2. An impressive share! I have just forwarded this onto a friend who had
    been conducting a little homework on this.
    And he actually ordered me breakfast because I found it
    for him… lol. So let me reword this…

    . Thank YOU for the meal!! But yeah, thanks for spending some
    time to talk about this issue here on your web site.

  3. JODER VIEJO EXCELENTE INFORMACION

  4. Gracias por tu artículo

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: