Pascal/Turbo Pascal - Tabulador para Pascal

 
Vista:

Tabulador para Pascal

Publicado por Mocoyn (4 intervenciones) el 12/05/2003 13:28:19
Quiero tabular unos textos en un fichero de texto y necesito tabularlos, alguien sabe como? Y el gotoxy, no funciona para ficheros.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tabulador para Pascal

Publicado por Diego Romero (786 intervenciones) el 12/05/2003 21:54:31
Debes pasar el archivo de texto línea a línea a otro archivo agregando en cada una la cantidad de espacios que necesites, por ejemplo:

var
Entrada, Salida: Text;
Linea: String;
begin
Assign(Entrada,'TextIn.txt');
Assign(Salida,'TextOut.txt');
reset(Entrada);
rewrite(Salida);
while not eof(Entrada) do
begin
ReadLn(Entrada, Linea);
Linea:=' '+Linea;
WriteLn(Salida, Linea);
end; { while }
Close(Entrada);
Close(Salida);
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tabulador para Pascal

Publicado por mocoyn (4 intervenciones) el 14/05/2003 10:57:30
De pasar de un fichero a otro, ya lo hago. Lo que quiero es que queden como dos columnas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tabulador para Pascal

Publicado por Diego Romero (786 intervenciones) el 14/05/2003 19:28:54
Esta es una función donde le pasas la cadena que deseas formatear y el tamaño máximo de la columna en caracteres.

function Tabular(Columna: string; Tamano:integer): string;
var
Col: string;
Hasta: integer;
begin
Col:='';
Hasta:=Length(Columna);
if Hasta > Tamano then Hasta:=Tamano;
for i:=1 to Hasta do
Col:=Col + Columna[i];
if Hasta < Tamano then
for i:=(Hasta + 1) to Tamano do
Col:=Col+#32;
Tabular:=Col;
end;

Luego en tu programa puedes usarla así
WriteLn(ArchDeTexto, Tabular(Columan1, 30)+Tabular(Columna2, 30));
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tabulador para Pascal

Publicado por mocoyn (4 intervenciones) el 15/05/2003 14:47:14
Gracias, pero tambien lo he conseguido sacar con el formato.Por ejemplo:
writeln(fichero,registro.frecuencia:28-length(registro.cadena));

Y asi me queda la columna tabulada.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar