Labor de hoy 23 de noviembre

Estimados:

He aquí algunas chuletas que creo les podrán servir (es un pequeño programa que realiza algunas cosas relacionadas con el manejo de string)

Module Module1
Sub Main()
 'manejo de strings
 Dim Cadena1 As String
 Dim Cadena2 As String
Cadena1 = "Hola Mundo"
 Cadena2 = "Mundo"
'saber si cadena 2 está dentro de cadena 1
 If Cadena1.IndexOf(Cadena2) > 0 Then
 Console.WriteLine("Se encontró cadena2 dentro de cadena1 ")
 Console.WriteLine("Posición de encuentro: " & Cadena1.IndexOf(Cadena2))
 Else
 Console.WriteLine("No se encontró la cadena2 dentro de la cadena1")
 End If
'contar la existencia de un grupo de letras dentro de una oración
 Cadena1 = "Esta es una oración para demostrar una cosa muy particular"
 Cadena2 = "una"
 Dim cuenta As Integer = 0
 Dim posicion As Integer = Cadena1.IndexOf(Cadena2)
 While posicion <> -1
 cuenta = cuenta + 1
 posicion = Cadena1.IndexOf(Cadena2, posicion + 1)
 End While
 Console.WriteLine("se encontró la palabra " & Cadena2 & " " & cuenta & " veces")
'reemplazar una letra por otra: reemplazamos # por @@
 Cadena1 = "Si hay # debe ser reemplazado por # por # una doble arroba"
Cadena1 = Cadena1.Replace("#", "@@")
 Console.WriteLine("La cadena con reemplazo es: " & Cadena1)
'Pasar a Mayúscula un caracter luego de un punto, y también el primer caracter
 Cadena1 = "hola, esta es una oración con punto. esta también."
 Cadena2 = "" ' se usará como nueva oración
 Dim oraciones() As String
 Dim letra As String = ""
 Dim primera As Integer = 0
 oraciones = Split(Cadena1, ".") 'dividir la oración en arreglos
 'ahora analizar cada una de las nuevas oraciones
 For cuenta = 0 To oraciones.Length - 1
 'aqui buscaremos el primer elemento que no es espacio y lo convertiremos en
 'mayúsculas
 primera = 0
 Cadena2 = ""
 For Each letra In oraciones(cuenta)
 If primera = 0 Then
 If letra <> " " Then
 letra = letra.ToUpper()
 primera = 1
 Cadena2 = Cadena2 + letra
 Else
 Cadena2 = Cadena2 + letra
 End If
 Else
 Cadena2 = Cadena2 + letra
 End If
 Next
 oraciones(cuenta) = Cadena2
 Next
 Cadena1 = Join(oraciones, ".")
 Console.WriteLine("La nueva oración es: " & Cadena1)
Console.ReadLine()
End Sub
End Module

Saludos cordiales, el Profe :-)
Anuncios

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