Convertir un cadena donde cada Palabra Primera con mayuscula

[roman]

Yo doy mi voto por la de cHackAll. Había pensado entrarle por ahí, pero desistí porque desconocía yo algo fundamental que hace válida esa solución (y que no es el lo del else)

Pero como nadie lo comenta, supongo que para todos es muy claro así que ahí lo dejo.



// Saludos

[cascarrabias]

Empezado por roman

Pero como nadie lo comenta, supongo que para todos es muy claro así que ahí lo dejo.



// Saludos

Pues de hecho para mi tambien fue algo nuevo y sorprendente eso del else... me pasaba igual que a ti....yo ponia un begin y un end para manejar estas situaciones......Saludos Roman

[fidel]

Algo así también me venía funcionando, pero con algún resultado no demasiado correcto.

Código Delphi [-]
//coger apellidos y pasar a minúsculas con mayúscula inicial
sAape := 'SIGÜENZA NÚÑEZ PUÇOL' 
sApellidos := '';
sEspacio := 'Si';
For i := 1 to Length(sAape) do
  begin
    if sEspacio = 'Si' then
      sApellidos := sApellidos + AnsiUpperCase(copy(sAape, i, 1))
    else
      sApellidos := sApellidos + AnsiLowerCase(copy(sAape, i, 1));
    if copy(sAape, i, 1) = ' ' then
      sEspacio := 'Si'
    else
      sEspacio := 'No';
  end;

MARTÍNEZ-MENDOZA GIL ..... Martínez-mendoza Gil (Martínez-Mendoza Gil)
HURTADO DE MENDOZA DE LA CUADRA .... Hurtado De Mendoza De La Cuadra (Hurtado de Mendoza de la Cuadra)

[[Delphius]]

Hola fidel,
Asi a vista rápida el código que tienes solo hará mayúsculas en caso de que haya un espacio.
Si tu deseas que controlase el tema de guiones y los "de", "la" y otros más habrá que buscarle un algoritmo un poquito más complicado, pero se puede.

Por el momento puedo decirte que el algoritmo que tienes puede mejorarse un poco:

Código Delphi [-]
HayEspacio := True;
For i := 1 to Length(sAape) do
  begin
    if HayEspacio 
       then sApellidos := sApellidos + AnsiUpperCase(copy(sAape, i, 1))
       else sApellidos := sApellidos + AnsiLowerCase(copy(sAape, i, 1));
    HayEspacio := Copy(sAape, i, 1) = ' ';
  end;

Saludos,

[[egostar]]

Empezado por roman

Pero como nadie lo comenta, supongo que para todos es muy claro así que ahí lo dejo.

Yo aún sigo anonadado con eso, no tengo NPI que es lo que hace, aunque se que nuestro buen amigo [cHackAll] tiene por ahi mas cosas debajo de la manga, solo que nos las da de poquito a poquito

Salud OS

[roman]

¿De qué no tienes NPI? Su código lo que hace es:

1. Recorre la cadena caracter a caracter
   
2. Si el caracter actual es una letra minúscula y el anterior un espacio en blanco (principio de palabra), lo convierte a mayúscula.
   
3. Si el caracter actual es una letra mayúscula y el anterior no es un espacio en blanco (mitad de palabra), lo convierte a minúscula,

La conversión minúscula<->mayúscula se basa en que unas y otras están separadas por 32 caracteres.

Lo que yo no sabía, es que esto último -la separación por 32 caracteres- era válido también para caracteres acentuados y ñ. Yo creía que el tipo de datos Char seguía el orden de los caracteres ASCII.

// Saludos

[[maeyanes]]

Empezado por egostar

Yo aún sigo anonadado con eso, no tengo NPI que es lo que hace, aunque se que nuestro buen amigo [cHackAll] tiene por ahi mas cosas debajo de la manga, solo que nos las da de poquito a poquito

Salud OS

Que hace? Pues convierte de mayúsculas a minúsculas y viceversa cuando así se requiere...

Como lo hace? Pues sumando o restando 32 al carácter indicado por el indice actual... esto es, si le sumas 32 a la A obtendrás la a, lo mismo con los caracteres acentuados y la Ñ...

Y bueno, a lo mejor es muy obvio lo que acabo de poner... jejeje


Saludos...

[[Delphius]]

Pues yo también me he llevado ese asombro roman, yo no pensaba que incrementar y decrementar 32 lugares podría servir para el caso de las Ñ y simbolos especiales...

Al no creer en el inc y dec con 32, me mandé ese código medio chapuza.

No lo quise comentar porque ya lo hicieron ustedes... pero en fin... uno no se acuesta sin haber aprendido algo nuevo.

A mi lo que más me impresionó fue el doble else... eso, para mi, fue el "mejor truco de magia" que he visto.

Ahora si desean, podemos aceptar el reto al que se enfrenta fidel. Ese si que va a ser interesante de resolver.
NOTA: Javier, dame un tiempo... dame una ventaja...

Saludos con ojos abiertos,

[roman]

Empezado por Delphius

Ahora si desean, podemos aceptar el reto al que se enfrenta fidel.

Bueno, una parte es fácil. Para empezar basta aumentar el conjunto de caracteres que se aceptan como letras

Código Delphi [-]
['a'..'z','á','é','í','ó','ú','ñ','ü','ç']
['A'..'Z','Á','É','Í','Ó','Ú','Ñ', 'Ü','Ç']

por ejemplo. Luego, aumentar los caracteres que no son letras pero que pueden formar parte de un nombre, por ejemplo

Código Delphi [-]
if (Index = 1) or (Str[Index - 1] in [' ', '-', '''']) then

en lugar de

Código Delphi [-]
if (Index = 1) or (Str[Index - 1] = ' ') then

Con esto, ya podemos convertir nombres como

MARTÍNEZ-SIGÜENZA D'ALAMBERT PUÇOL GIL

El problema empieza con las preposiciones y artículos, porque ahí ya estamos hablando de analizar palabras y no sólo caracteres. Esa parte ya me da flojera

// Saludos

[[Delphius]]

Empezado por roman

El problema empieza con las preposiciones y artículos, porque ahí ya estamos hablando de analizar palabras y no sólo caracteres. Esa parte ya me da flojera

¿Es contagiosa? Porque no se si tu me contagiaste a mi o yo te contagié.
Ahora en serio,
Lo más fácil que se me ocurre es que una vez hecho las conversioes necesarias. Buscar en una lista de preposiciones y artículos posibles y por cada uno ir viendo si existe, y en caso de ser así reemplazar...
Algo como:

Código Delphi [-]
Posic = Pos(ListaArticulo[i], Texto)
if Posic <> 0
  then StringReplace(texto,Articulo,LowerCase(Texto), [rfReplaceAll])

El problema es que como bien puede verse... si hay algún de, la o algo por el estilo en el nombre (como Demetrio, Laura por mencionar algunos) el algoritmo falla.

esto se soluciona si se lleva simple pre-análisis:

Código Delphi [-]
if (Posic <> 0) AND (Texo[Posic - 1] = ' ')

Por ahora tengo eso. Lo escribí al vuelo, pero creo que se entiende más o menos la idea.

Saludos,

[roman]

Empezado por Delphius

como Demetrio, Laura por mencionar algunos

Pues, en lugar de buscar 'DE' o 'LA', buscas 'DE ' o 'LA '

// Saludos

[[egostar]]

Empezado por roman

¿De qué no tienes NPI? Su código lo que hace es:

1. Recorre la cadena caracter a caracter
   
2. Si el caracter actual es una letra minúscula y el anterior un espacio en blanco (principio de palabra), lo convierte a mayúscula.
   
3. Si el caracter actual es una letra mayúscula y el anterior no es un espacio en blanco (mitad de palabra), lo convierte a minúscula,

La conversión minúscula<->mayúscula se basa en que unas y otras están separadas por 32 caracteres.

Lo que yo no sabía, es que esto último -la separación por 32 caracteres- era válido también para caracteres acentuados y ñ. Yo creía que el tipo de datos Char seguía el orden de los caracteres ASCII.

// Saludos

Empezado por maeyanes

Que hace? Pues convierte de mayúsculas a minúsculas y viceversa cuando así se requiere...

Como lo hace? Pues sumando o restando 32 al carácter indicado por el indice actual... esto es, si le sumas 32 a la A obtendrás la a, lo mismo con los caracteres acentuados y la Ñ...

Y bueno, a lo mejor es muy obvio lo que acabo de poner... jejeje


Saludos...

tienen razón, lo que no especifiqué es NPI del porque esta usando else else

Salud OS

[roman]

Empezado por egostar

lo que no especifiqué es NPI del porque esta usando else else

Pero eso ya lo mencioné pero lo completo, no faltaba más:
El primer else completa el segundo if con una sentencia vacía para que el segundo else corresponda al primer if en lugar del segundo. Clarísimo

// Saludos