Kontrola pismen v txt souboru – Pascal – Fórum – Programujte.com

caute profici,
mam na vas takovy primitivni odtaz:
potrebuji udelat podprogram na kontrolu písmen v txt souboru. Potrebuji, aby neprosly znaky jine nez jsou #65 (A) az #90 (Z) a #32 (mezera), cili pokud se bude v txt souboru nachazet znak a -> true, ! ->true, mezera -> false, M -> false.
napsal jsem tohle, ale nejak to nejede korektne (hlavne mi to neveme, kdyz je 1. radek prazdny a potom pokud dojede na konec radku, tak ho neprepise na dalsi)

function VelkeMale(jms:string):boolean;

  var radek,zns:string;

      zn:char;

      vm:boolean;

      i:word;

  begin

    assign(jls,jms);

    reset(jls);

    VM:=false;

    while not eof(jls) or not VM do begin

      readln(jls,radek);

      i:=1;

      while not eoln(jls) or not VM do begin

          znS:=copy(radek,i,1);

          if ((ZnS>='A') and (ZnS<='Z')) or (ZnS=' ') then

            i:=i+1

            else

              VM:=true

          end

      end;

    velkemale:=VM;

    close(jls)

   end; {VelkeMale}

naprosto nechapu o co se sakra v tom programu snazis...
rozepis kazdej prikaz co ma delat

KIIV napsal:
naprosto nechapu o co se sakra v tom programu snazis...
rozepis kazdej prikaz co ma delat

dobre zkusim ted jak to vidim ja:

while not eof(jls) or not VM do begin

readln(jls,radek); // nactes radek ze souboru

i:=1;

while not eoln(jls) or not VM do begin // z nejakeho duvodu testujes jestli neni konec radku v souboru ze ktereho uz nic nenacitas nebo VM

znS:=copy(radek,i,1); // kopirujes jeden znak z retezce radku ktery si nacetl mimo tento cyklus
// mimochodem staci radek[i] a mas to same
// delka retezce radek je v radek[0] neni tudiz treba pocitat delku ... natoz testovat konec radku v souboru ze ktereho
// tady vubec nic nenacitas

if ((ZnS>='A') and (ZnS<='Z')) or (ZnS=' ') then

i:=i+1

else

VM:=true

end

end;

KIIV napsal:
znS:=copy(radek,i,1); // kopirujes jeden znak z retezce radku ktery si nacetl mimo tento cyklus
// mimochodem staci radek[i] a mas to same

while not(eof(jls)) and not(VM) do begin
readln(jls, radek);
for i:=1 to radek[0] do begin
if not ( ((radek[i]>='A') and (radek[i]<='Z')) or (radek[i]=' ') ) then begin
VM:=true;
i:=radek[0]+1; (* ukonceni cyklu... mel by jit i neco jako break nebo podobne *)
end;
end;
end;


jo mozna na to radek[0] bude potreba ord(radek[0]) ... pamatuju si ze sem to delal nekdy davno v assembleru ale pascal to muze brat jako znak a nenecha to jen tak

Funkce se dá dobře zjednodušit a zpřehlednit:

function VelkeMale(jms:string):boolean;

  var radek:string;

      jls:text;

      i:word;

  begin

    assign(jls,jms);

    reset(jls);

    while not eof(jls) do

      begin

      readln(jls,radek);

      for i:=1 to Length(radek) do

         if not (radek[i] in ['A'..'Z',' ']) then

            begin

            VelkeMale:=true;

            Close(jls);

            Exit;

            end;

      end;

    close(jls);

    VelkeMale:=false;

   end; {VelkeMale}

to KIIV: krasne napsane, ale mel bychpar dotazu ten radek[0] je to same jako length(radek)? protoze mi to nejak nechce vzit pise mi to type mismatch. kdyz t oale nahradim length(radek), tak to jede.
ale zaznamenal jsem problem a to sice, ze mi ten cyklsd for cykluje do nekonecna, pokud to najde v retezci male pismeno (nejak to nemuze vyskocit ven pomoci i:=length(radek)+1;).

to Laaca: tva verze je skvela dekuji !! :smile2:

no jeste sem tam psal poznamku o tom ze pascal neni tak benevolentni jako C a znak bere jako znak a ne jako cislo (ikdyz formalne to cislo je) no a samozrejme prevod znaku na cislo umi funkce ord()
takze bud length(radek) nebo ord(radek[0]) ale tezko rict co je rychlejsi

KIIV napsal:
no jeste sem tam psal poznamku o tom ze pascal neni tak benevolentni jako C a znak bere jako znak a ne jako cislo (ikdyz formalne to cislo je) no a samozrejme prevod znaku na cislo umi funkce ord()
takze bud length(radek) nebo ord(radek[0]) ale tezko rict co je rychlejsi

To KIIV : Myslim ze prevod znaku ktory je vlastne cislo, na cislo, sa cez ord len tak lahko neda.. ord ti len vyhodi ordinalnu hodnotu z ASCII tabulky.. Ak chces string pripadne char ktory formalne obsahuje cislo skutocne pretvorit na nejaky numericky typ ktory ma obsahovat ciselnu hodnotu, pouziva sa funkcia VAL. Syntax by mala byt "val(a:string/char,n:integer)" a znamena to asi tolko ze "string alebo pismeno "a" pretvor na cislo a toto cislo vloz do premennej "n" ".