Analizando un nombre con las funciones IndexOf y Substring

La función o método IndexOf( ) busca la primera ocurrencia de un string en otro string y devuelve la posicion en la cual el string fue encontrado.

La funcion Substring( ) devuelve una secuencia de caracteres consecutivos de un string.

Veamos un ejemplo:

Ingredientes:
1 label
1 cajas de texto
1 listBox
1 boton

En este ejemplo el programa determinaa el nombre de una persona y cuenta las cantidad de letras del apellido.

Codigo:

Public Class Form1 
    Private Sub btnSumar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnalizar.Click

        Dim nombreCompleto, nombre, apellido As String
        Dim n As Integer 

        nombreCompleto = txtNombre.Text
        n = nombreCompleto.IndexOf(" ") 

        nombre = nombreCompleto.Substring(0, n)
        apellido = nombreCompleto.Substring(n + 1)

        With lstResultado.Items
            .Clear()
            .Add("Nombre: " & nombre)
            .Add("Su apellido tiene " & apellido.Length & " letras.")
        End With 
    End Sub
End Class

Programa:

Comentarios

Publicar un comentario

Entradas populares de este blog

Programa para calacular cantidad de calorias y libras perdidas

Imagen
El numero de calorias quemadas o perdidas por una persona que corre bicicleta es de 200 calorias por hora y de correr o trotar es de 475 calorias por hora y de nadar es de 275 calorias por hora. El siguiente programa le permite al usuario entrar el numero de horas gastadas en cada actividad fisica y calcular el total de calorias y de libras que perdio en las actividades. 3500 calorias = 1 libra Ingredientes: 5 labels 5 text box 1 boton Codigo: Public Class Form1     Private Sub btnSumar_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles btnCalcular.Click           Dim caloriasBici, caloriasCorrer, caloriasNadar,         totalCalorias, totalLibras As Double         caloriasBici = 200 * CDbl (txtbicicleta.Text)         caloriasCorrer = 475 * CDbl (txtCorriendo.Text)   ...
Leer más

Sub procedimientos en VB.NET

Imagen
VB.NET tiene un dispositivo llamado Sub procedures (Sub procedimientos) los cuales son usados para romper un problemas en problemas mas pequenos para ser resolvidos uno a la vez. Los Sub procedures tambien eliminan el codigo repetitivo y se pueden reusar en otros programas. Los Sub procedures son parte de un programa y son escritos como parte separada del programa, tambien tiene su propio nombre, la sintaxis para un Sub procedures se escribe asi: Sub NombreProcedimiento()      declaraciones() End Sub En el siguiente ejemplo de un programa que suma 2 numeros vea como la informacion que se necesita para poder sumar los numeros esta en el Private Sub que se crea automaticamente cuando se da doble click en el boton. Tambien vea como la parte que calcula la suma esta en un Sub procedimiento aparte. (Sub sumarNumeros() ). Codigo: Public Class Form1     Private Sub Button1_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ...
Leer más

The Internet of Things

Imagen
The Internet of Things Comprueba si tienes cerrados estos puertos en tu router para evitar WannaCry desde Internet Por Mauricio Anguiano El ransomware WannaCry ha tenido un impacto sin precedentes en los equipos de todo el mundo. En un primer momento se comentó que empezó a propagarse...
Leer más