Pascal/Turbo Pascal - pregunta.txt

 
Vista:

pregunta.txt

Publicado por preludio (17 intervenciones) el 04/05/2007 22:50:55
mi problema es el siguiente:
quiero mostrar en un archivo de texto los nombres de las personas X linea en un archivo de texto.
q sentencias debo usar para poder hacer esto???

var
txt:text;
nombre:string;

begin

assign(txt,'dato.txt')
rewrite(txt);
reset(txt);
readln(nombre);

while nombre<>'pepe' do begin

???? q sentencias van aca ???

readln(nombre);
end;

close(txt);

graicas...
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:pregunta.txt

Publicado por damian castelli lluch (31 intervenciones) el 05/05/2007 07:33:11
hola, primero y principal, estas creando y luego abriendo un fichero, estas violando muchas reglas, tampoco utilizas algun verificador de errores, eso para empezar.... lo que vos podes hacer se puede hacer con un FOR desde 1 hasta la posicion que queres ir.

var
archivo:text;
ok:boolean;
begin
apertura y manejo de errores en apertura
for desde uno hasta la posicion que quieres utilizar
end
saludos
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:pregunta.txt

Publicado por Diego Romero (996 intervenciones) el 05/05/2007 09:45:11
No puedes insertar una línea al medio de un archivo de texto (tipo text), solo puedes agregar líneas nuevas al final del archivo.

Si es eso lo que quieres hacer entonces, si el archivo no existe lo abres con rewrite y escribes la línea con WriteLn, si el archivo ya existe lo abres con Append y procedes de igual manera. Append lleva el puntero del archivo al final de un archivo de texto.
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:pregunta.txt

Publicado por preludio (17 intervenciones) el 06/05/2007 02:18:21
var
txt:text;
nombre:string;

begin

assign(txt,'dato.txt')
rewrite(txt);

readln(nombre);

while nombre<>'pepe' do begin

writeln(txt,nombre);

readln(nombre);
end;

close(txt);

asi esta bien ???
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:pregunta.txt

Publicado por Diego Romero (996 intervenciones) el 06/05/2007 05:14:07
Yo creo que sí.
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