Código extra con CharArray

Module Module1
Sub Main()
 Dim oracion As String
 oracion = "esta es una oracion. esta es otra. esta es la tercera."
 Dim laOracion() As Char
 Dim i As Integer
 Dim primera As Integer
laOracion = oracion.ToCharArray
For i = 0 To laOracion.Length - 1
 If i = 0 Then
 'es el primer caracter
 laOracion(i) = UCase(laOracion(i))
 Else
 If laOracion(i) = "." Then
 If (i + 2) <= laOracion.Length - 1 Then
 laOracion(i + 2) = UCase(laOracion(i + 2))
 End If
 End If
 End If
 Next
oracion = ""
 For i = 0 To laOracion.Length - 1
 oracion = oracion & laOracion(i)
 Next
Console.WriteLine(oracion)
 Console.ReadLine()

End Sub
End Module
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