Matematické Fórum

hans66 · 23. 06. 2013 11:11

ahoj, chtel bych vas pozadat o radu jak mazat znaky ze souboru:

Code:

var
  Application: TMyApplication;
  f,f1:textfile;
  pom:char;
begin
assign(f,'d:\text1.txt');
reset(f);
assign(f1,'d:\text2.txt');
rewrite(f1);
while not eof(f) do begin
  read(f,pom);   //ctu znaky z prvniho souboru
  write(f1,pom); //zapisuji do druheho
end;
close(f);
close(f1);
          begin
            assign(f1,'d:\text2.txt');
            reset(f1);
                      while not eof(f1) do begin
                        read(f,pom);
                        case pom of 
                         'A','a':
                         'E','e':
                         'I','i':
                         'Y','y':
                         'U','u':


                        end;
                      end;

          end;
end

nevim jestli to jde pres case nebo to udelat pres "if "
jak mazat soubory pomoci delete?

PanTau · 23. 06. 2013 11:24

↑ hans66:

Zdravím, Pascal neumím, takže ti budu moc dát spíše obecnou radu.

Měl bys mít nějaký počítadlo(pro výpis infa na konzoli), já bych to udělal přes pole.

nevim jestli to jde pres case nebo to udelat pres "if "

Jde to udělat přes oboje, udělej to přes to, čemu více rozumíš a co tě více natchne, samozřejmě přes if to bude trošku delší, ale v zadání úlohy není nic o efektivitě.

jak mazat soubory pomoci delete?

Pokud se nepletu :

Code:

Begin
  F:=FileCreate('test.txt');
  Line:='Some string line.'#10;
  For I:=1 to 10 do
    FileWrite (F,Line[1],Length(Line));
  FileClose(F);
  DeleteFile('test.txt');
End.

- vytvoří soubor, něco tam napiše a pak ho smaže.. takže tvorbu vynech a použij mazání.

martisek · 23. 06. 2013 12:42

↑ hans66:

Ahoj,

Code:

var
Application: TMyApplication;
f,f1:textfile;
pom:char;
//Proměnné pro zapamatování počtu jednotlivých písmen, které je třeba vynechat
Kolik_Velkych_A, Kolik_Malych_a, // atd.
:Integer;

begin
assign(f,'d:\text1.txt');
reset(f);
assign(f1,'d:\text2.txt');
rewrite(f1);

//Vynulovat počty všech vynechaných písmen
//
Kolik_Velkych_A:=0; Kolik_Malych_a:=0;
//
// atd...

while not eof(f) do begin
read(f,pom); //ctu znaky z prvniho souboru
case pom of
'A':Kolik_Velkych_A:=Kolik_Velkych_A+1; // jen počítat a nic nikam nepsat
'a':Kolik_Malych_a:=Kolik_Malych_a+1; // jen počítat a nic nikam nepsat
// atd. - vyčerpat všechno, co se má vynechat
end
else write(f1,pom); // jiné znaky zapsat.
end;
close(f);
close(f1);
writeln("Pocet A ", Kolik_Velkych_A);
writeln("Pocet a ", Kolik_malych_a);
// atd. opět vypsat všechno...

hans66 · 23. 06. 2013 16:26

↑ martisek: děkuji

Matematické Fórum

#1 23. 06. 2013 11:11

pascal-mazani znaku z textoveho souboru

Code:

#2 23. 06. 2013 11:24

Re: pascal-mazani znaku z textoveho souboru

Code:

#3 23. 06. 2013 12:42

Re: pascal-mazani znaku z textoveho souboru

#4 23. 06. 2013 16:26

Re: pascal-mazani znaku z textoveho souboru

Zápatí