• Lunes 23 de Diciembre de 2024, 09:53

Autor Tema:  Mayúscula  (Leído 2480 veces)

Jorge Israel López Ramíre

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
Mayúscula
« en: Martes 26 de Febrero de 2008, 23:13 »
0
Hola tengo un problemita que no puedo resolver, resulta que no me gusta ver que los usuarios escriban los nombres de las personas con la primer letra en minúscula, y como sé que hay muchos por ahí que tienen pereza de estar escribiendo en mayúscula cada vez que van a ingresar el primer nombre, segundo, apellidos, etc. Entonces quiero que la aplicación realice esto, yo sé como hacer que todo lo que escriba el usuario este en mayúscula, pero no sé como hacer para especificar que solo sea la primera letra.  :kicking:

 :kicking: Gracias por su ayuda. :whistling:

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Mayúscula
« Respuesta #1 en: Miércoles 27 de Febrero de 2008, 04:58 »
0
Cita de: "Jorge Israel López Ramírez"
Hola tengo un problemita que no puedo resolver, resulta que no me gusta ver que los usuarios escriban los nombres de las personas con la primer letra en minúscula, y como sé que hay muchos por ahí que tienen pereza de estar escribiendo en mayúscula cada vez que van a ingresar el primer nombre, segundo, apellidos, etc. Entonces quiero que la aplicación realice esto, yo sé como hacer que todo lo que escriba el usuario este en mayúscula, pero no sé como hacer para especificar que solo sea la primera letra.  :kicking:
Jorge Israel López Ramírez
 :kicking: Gracias por su ayuda. :whistling:
¿Que tal Jorge Israel López Ramírez?  :ph34r:

Si la cadena tiene una sola palabra, es muy fácil:

Código: Text
  1.         Dim strPalabra As String = "pALaBra"
  2.         Dim strResultante As String = strPalabra.Substring(0, 1).ToUpper() & strPalabra.Substring(1, strPalabra.Length - 1).ToLower()
  3.         MsgBox(strResultante)
  4.  

Y si es una frase, también es muy facil:
Código: Text
  1.         Dim strTexto As String = "aqUí vA tu ORaCión"
  2.         Dim strResultante As String = ""
  3.         For Each strPalabra As String In strTexto.Split(" ")
  4.             strResultante = strResultante & strPalabra.Substring(0, 1).ToUpper() & strPalabra.Substring(1, strPalabra.Length - 1).ToLower() & " "
  5.         Next
  6.         'borramos el último espacio que está de mas
  7.         strResultante = strResultante.Remove(strResultante.Length - 1, 1)
  8.         MsgBox(strResultante)
  9.  

Tendrías que hacer algunas validaciones pero con esto ya podés darte una idea

Espero te sirva
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

Jorge Israel López Ramíre

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
Re: Mayúscula
« Respuesta #2 en: Miércoles 27 de Febrero de 2008, 15:15 »
0
Muchas gracias por tu apoyo, voy a probarlo.

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Mayúscula
« Respuesta #3 en: Miércoles 27 de Febrero de 2008, 16:05 »
0
Cita de: "Jorge Israel López Ramírez"
Muchas gracias por tu apoyo, voy a probarlo.
Por nada, espero noticias.
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

Jorge Israel López Ramíre

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
Re: Mayúscula
« Respuesta #4 en: Miércoles 27 de Febrero de 2008, 18:07 »
0
Bien los probé, funciona escribiendo al palabra como lo enviaste, pero cuando la asignación del string al cuadro de texto que va contener el nombre, me genera una excepción debido a los argumentos de el length(). Dice que es una excepción de argumentos fuera de rango, que el index y el length debieron referirse a una localización dentro de el string.
Nombre de parametro: Length.

Estoy buscando como solucionar, pero si tienes la respuesta, te lo agradecería.
 :hola: SALUDOS

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Mayúscula
« Respuesta #5 en: Miércoles 27 de Febrero de 2008, 20:47 »
0
Cita de: "Jorge Israel López Ramírez"
Bien los probé, funciona escribiendo al palabra como lo enviaste, pero cuando la asignación del string al cuadro de texto que va contener el nombre, me genera una excepción debido a los argumentos de el length(). Dice que es una excepción de argumentos fuera de rango, que el index y el length debieron referirse a una localización dentro de el string.
Nombre de parametro: Length.

Estoy buscando como solucionar, pero si tienes la respuesta, te lo agradecería.
 :hola: SALUDOS
Seguramente los parámetros que le estás pasando al la función Substring están fuera del rango.
Los parámetros son:
Index: Desde donde se empieza a lomar la sub cadena.
Length: Cuantos caracteres se van a tomar desde esa posición hacia adelante

En el primer post te dije que:
Citar
Tendrías que hacer algunas validaciones pero con esto ya podés darte una idea
Justamente me refería a esos parámetros.

¿Cómo lo estás haciendo?
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.

Jorge Israel López Ramíre

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
Re: Mayúscula
« Respuesta #6 en: Miércoles 27 de Febrero de 2008, 22:20 »
0
Ya me funcionó, no sé lo que estaba pasando, solo hice una prueba cambiando el código hacia otro evento y funcionó, luego lo volvi a mover donde lo tenía y sirvió.

No hubo nada de cambio.

[/CODE]
Dim strPalabra As String = Me.txtSegundoNombre.Text
        Dim strResultado As String = strPalabra.Substring(0, 1).ToUpper() & strPalabra.Substring(1, strPalabra.Length - 1).ToLower()
        MsgBox("Valor: " & strResultado)[CODE]

Muchas gracias por tu ayuda. Asunto arreglado.
 :hola: SALUDOS :hola:

Mollense

  • Miembro de PLATA
  • *****
  • Mensajes: 1755
  • Nacionalidad: ar
    • Ver Perfil
    • http://solocodigo.com/
Re: Mayúscula
« Respuesta #7 en: Miércoles 27 de Febrero de 2008, 22:51 »
0
Cita de: "Jorge Israel López Ramírez"
Ya me funcionó, no sé lo que estaba pasando, solo hice una prueba cambiando el código hacia otro evento y funcionó, luego lo volvi a mover donde lo tenía y sirvió.

No hubo nada de cambio.

[/CODE]
Dim strPalabra As String = Me.txtSegundoNombre.Text
        Dim strResultado As String = strPalabra.Substring(0, 1).ToUpper() & strPalabra.Substring(1, strPalabra.Length - 1).ToLower()
        MsgBox("Valor: " & strResultado)[CODE]

Muchas gracias por tu ayuda. Asunto arreglado.
 :hola: SALUDOS :hola:
Me alegro, Un placer poder ayudar.
"Los que renuncian son más numerosos que los que fracasan" H.F.
"No se cómo sería la III Guerra Mundial, pero la cuarta sería con piedras" A.E.
"Quién no fía no es de fiar..."


...no te quedes mirando.