Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Pascal - Aiutatemi con questa specie di blocco note in turbo pascal
Forum - Pascal - Aiutatemi con questa specie di blocco note in turbo pascal

Avatar
HELMUT (Normal User)
Newbie


Messaggi: 1
Iscritto: 04/12/2008

Segnala al moderatore
Postato alle 17:22
Giovedì, 04/12/2008
Salve.sto cercando di fare il programma sopra indicato,però non mi riesce di far leggere un file txt.Mi riesce crearlo in una directory x,pero non mi funziona,la lettura di un file txt.Ecco il codice sotto.Ditemi cosa devo modificare per favore.Garzie mille:


program note;
uses crt,dos;
type
files = file of string;

var
testo:files;
s:pathstr;
files1,dir,nome,hd,cart:string;
sc:integer;
begin
clrscr;
writeln('1) Crea un nuovo file di testo(txt)');
writeln('2) Apri e modifica un file di testo(txt)');
readln(sc);
case sc of
1:begin
clrscr;
writeln('Inserisic la directory e il nome del file txt che vuoi creare,');
writeln('nella seguente sintassi:C:\esempio\esempio\es.txt');
readln(dir);
writeln('Inserisci il testo che vuoi salvare all''interno di questo documento:');
readln(files1);
assign(testo,dir);
rewrite(testo);
write(testo,files1);
close(testo);
reset(testo);
writeln('Il testo Š stato salvato in ',dir);
readln;
end;
2:begin
clrscr;
TEXTCOLOR(WHITE);
writeln('Inserisci la directory e il nome del file');
writeln('nella seguente sintassi: C:\cartella\cartella\nomefile.txt');
readln(dir);
assign(testo,dir);
reset(testo);
read(testo,files1);
close(testo);
end;
end;
readln;
end.

PM Quote
Avatar
WARRIOR (Ex-Member)
Guru


Messaggi: 627
Iscritto: 30/03/2007

Segnala al moderatore
Postato alle 12:28
Domenica, 07/12/2008
Beh, dovresti creare un ciclo di lettura, che prende in input ogni volta una stringa.

PM Quote