Foros Club Delphi
Página 2 de 2 < 1 2
Mostrar 40 mensajes desde este tema en una página

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Convertir un cadena donde cada Palabra Primera con mayuscula (https://www.clubdelphi.com/foros/showthread.php?t=56071)

roman 08-05-2008 20:36:47
Cita:
Empezado por Delphius (Mensaje 285330)
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

egostar 08-05-2008 20:38:53
Cita:
Empezado por roman (Mensaje 285324)
¿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
Cita:
Empezado por maeyanes (Mensaje 285326)
Que hace? Pues convierte de mayúsculas a minúsculas y viceversa cuando así se requiere... :D

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 Ñ... :p

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


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

Salud OS

roman 08-05-2008 20:45:43
Cita:
Empezado por egostar (Mensaje 285348)
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 :D

// Saludos

Delphius 08-05-2008 20:53:14
Cita:
Empezado por roman (Mensaje 285347)
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é.:D
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 08-05-2008 21:04:48
Cita:
Empezado por Delphius (Mensaje 285355)
como Demetrio, Laura por mencionar algunos
Pues, en lugar de buscar 'DE' o 'LA', buscas 'DE ' o 'LA ' ;)

// Saludos

Delphius 08-05-2008 21:09:21
Cita:
Empezado por roman (Mensaje 285358)
Pues, en lugar de buscar 'DE' o 'LA', buscas 'DE ' o 'LA ' ;)

// Saludos
Pos si...:) No se me pasó por la cabeza...
Hoy estoy lento, estoy trabajando a media pila.

Una vez más, el habil roman está despierto para sacarme del pozo que yo mismo cavo.:)

Saludos,

santiago14 04-02-2013 22:25:40
Cita:
Empezado por Delphius (Mensaje 284712)
Este reto me gustó. Propongo una nueva variante:

Código Delphi [-]
function TForm1.Capitalize(Text: string): string;
var Aux, Capital: string;
begin
  Capital := AnsiUpperCase(Text[1]);
  Aux := AnsiLowerCase(Text);
  Aux[1] := Capital[1];
  result := Aux;
end;

function TForm1.CapitalizeAll(Text: string): string;
var i: integer;
    CopyText: string;
    CapitalizeText: string;
begin
 for i := 1 to Length(Text) do
   begin
     if (Text[i] <> ' ') or (i = Length(Text))
        then CopyText := CopyText + Text[i]
        else begin
               CapitalizeText := CapitalizeText + ' ' + Capitalize(CopyText);
               CopyText := '';
             end;
   end;
 result := CapitalizeText + ' ' + Capitalize(Copytext);
end;

En teoría debería funcionar con cualquier caracter que se venga...

Saludos,
Medio viejito el post pero siempre vigente.
Igual, de gran utilidad.

Gracias de nuevo.

Al González 04-02-2013 23:11:04
No había visto este hilo.

Para Santiago: ¡Gracias por revivirlo! ^\||/

Para Román: Esas dos cosas que aprendiste hace casi cuatro años, ahora las he aprendido yo. :o Por cierto, llevas ya algunos meses de ausencia "pública", espero que todo vaya bien. :)

Para Javier (cHackAll): Gracias por ese par de tremendas revelaciones.

* El uso de Else vacío para forzar la correspondencia If-Else. :eek:

* A diferencia de la tabla ASCII, la tabla de caracteres ANSI presenta la misma distancia entre las mayúsculas y las minúsculas de todas las letras del alfabeto latino (no sólo las no acentuadas). :eek:

Vuelve pronto a los foros, Javier. Estoy seguro que hay mucho que podemos seguir aprendiendo de ti. :)

Un abrazo.

Al.

santiago14 05-02-2013 22:01:22
Cita:
Empezado por roman (Mensaje 284770)
¡Vaya! ¡Qué interesante! Aunque parece que sólo a mi me sorprende.
....

Ahora veo que también lo puedes resolver con
Código Delphi [-]
if X then
  if Y then
    A
  else
else
  B;
Pues no es al único que sorprende haber visto ese pedazo de código, a mí también me causó "impresión" cuando lo ví. Ya lo dijeron... siempre se aprende algo nuevo... y bueno.

Santiago.


La franja horaria es GMT +2. Ahora son las 02:52:45.
Página 2 de 2 < 1 2
Mostrar 40 mensajes desde este tema en una página

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi