| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Homer
Invitado
|
 Publicado: Mie 14 Abr, 2004 5:30 pm Asunto: Espacio entre caracteres |
 |
|
Hola a todos, necesito mostrar un fichero de texto en TMemo pero que entre los caracteres representados se inserte un espacio en blanco o simplemente que queden más separados. He probado recorriendo todo el contenido e introduciendo el espacio, pero la aplicación trabaja con ficheros muy grandes y la operación tarda varios minutos. ¿Existe alguna propiedad que controle la separación entre caracteres?
Muchas gracias. |
|
| Volver arriba |
|
 |
Snake + +
Lt
Registrado: 31 Oct 2002Mensajes: 83Ubicación: Zacatecas, Zac. Mexico
|
| Publicado: Mie 14 Abr, 2004 5:36 pm Asunto: |
|
|
Que hay de Nuevo.
Pues no se que tan grandes sean los archivos, pero espero que estes usandlo el header strings.h para que manejes las cadenas mas facilmente y o intenta hacer los ciclos de recorrimiento de caracteres buscando un metodo o algoritmo mejor.
No se si alguien tenga otra idea ¿?
_________________
I.S.C. Joel Salinas Alvarado
Linux User:454009
the human knowledge belong to the world
"Hoy el Universo Debian es mas GRANDE"
Zacatecas, Mexico. |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Mie 14 Abr, 2004 6:26 pm Asunto: |
|
|
lo que deseas es la justificacion de cadenas de caracteres o que?,
no muy te entiendo.. eso de insertar espacios en blando
algo asi
CESAR -> C E S A R
o justificar varias lineas..
_________________
 |
|
| Volver arriba |
|
|
Homer
Invitado
|
| Publicado: Jue 15 Abr, 2004 11:30 am Asunto: |
|
|
Precisamente eso es lo que necesito:
CESAR -> C E S A R
pero no encuentro la forma de hacerlo que no sea recorriendo todo el fichero.
Muchas gracias. |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Jue 15 Abr, 2004 6:59 pm Asunto: |
|
|
Mira la funcion para insertar espacios pudes hacerlo de la siguiente manera
| Código: |
AnsiString Espacios(AnsiString Linea){
for(int a=1;a<=Linea.Length();a+=2)
Linea.Insert(" ",a);
return (Linea);
} |
y para llamarla puedes hacer lo siguiente..
| Código: |
this->Label1->Caption = Espacios("Cadena");
|
ahora bien, puedes hacer lo siguiente, para trabajar, carga el archivo dentro del memo de manera normal..
y posteriormente llamas a la sentencia Espacios, para cambiar el formato con espacios
cambiando la funcion de esta manera.
| Código: |
void Espacios(TStrings *LineasOrigen, TStrings *LineasDestino){
for(int renglon=0;renglon<=LineasOrigen->Count;renglon++){
for(int a=1;a<= LineasOrigen->Strings[renglon].Length();a+=2)
LineasOrigen->Strings[renglon] = LineasOrigen->Strings[renglon].Insert(" ",a);
LineasDestino->Strings[renglon] = LineasOrigen->Strings[renglon];
}
}
|
por ejemplo
ya cargado el texto en un memo, y con un boton llamas a la funcion. nueva asi
| Código: |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Espacios(this->Memo1->Lines,this->Memo1->Lines);
} |
Espero que te sirva
_________________
|
|
| Volver arriba |
|
|
Homer
Invitado
|
| Publicado: Jue 15 Abr, 2004 8:19 pm Asunto: |
|
|
| MUCHAS GRACIAS!!!!!!!!! |
|
| Volver arriba |
|
|
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Vie 16 Abr, 2004 12:27 am Asunto: |
|
|
para eso estamos todos los del foro saludos, y en especial a _LEO, IKIS, Angel, _Vikctor, XyVy, Touchsoftares, Marky, TOÑO, el diego, etc... perrdon pero no recuerdo todos los masters que apoyamos a tanta gente nos deberian de dar un Jamon y una botella de vino, (en especial vodka para mi je je), por todo lo que hacemos por builder
saludos y mi mas grande abrazo a todos...
bye
_________________
|
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
