Ficheros
Publicado por anonymous (12 intervenciones) el 18/09/2017 10:39:45
Buenos días a tod@s, tengo unas dudas en un par de ejercicios finales del curso que estoy realizando, el primero es bastante sencillo pero no sé cómo escribirlo, hay que crear un programa que abra un fichero de texto, cree una copia del mismo y añada al final de la copia una cadena de carácteres. No quiero que me hagáis el ejercicio, solo que me expliquéis cómo se codifica la parte de crear una copia y añadir una cadena de carácteres.
Esto es lo que he escrito:
Un saludo a tod@s.
Esto es lo que he escrito:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program U9_2_2;
uses
crt;
type
tfichero=text;var
nombre,nombre2:string;
procedure escrive_archivo(nombre,nombre2:string);
var
fichero,fichero2:tfichero;
linea:string;begin
assign(fichero,nombre);
reset(fichero);
assign(fichero2,nombre2)
rewrite(fichero2);
while not eof(fichero) do begin
readln(fichero,linea);
writeln(fichero2);
end;
close(fichero);
end;
begin
writeln('Introduzca nombre y extension del archivo:');
readln(nombre);
repeat
writeln('Introduzca nombre y extension del nuevo archivo:');
readln(nombre2);
until (nombre2<>nombre);
readkey;
escrive_archivo(nombre,nombre2);
readkey
end.Un saludo a tod@s.
Valora esta pregunta
0