Strtoint v subore pascal

dany2281995 · Napísal **dany2281995**: 02.06.2013 13:52

Program data;
uses crt,graph,sysutils;
var stlac,a,b,c,i:integer;
riadok:string;
PS,S:string[30];
Subor: text;
Begin
Assign(Subor, 'text15.txt');
reset(Subor);
ReadLn(Subor, riadok);//potrebujem aby to čo načitalo uložilo do premennej a nevie m ako dalej
val(riadok,i,c); //potrebujem to bez funkcie a proceduri takto nejako
StrToInt := i; //lenže nevim ako dalej
readln(riadok);
writeln('Pocet znakov vo vete je:',length(riadok));
readkey;
close(Subor);
end.

jeto z menu vystrihnute bolo to pod voľbou 4 ale to potom doriešim

Potreboval by som poradiť chcem aby načitalo subor z disku a to čo je vnom prehodilo do premennej.

BX · Napísal BX: 02.06.2013 14:17

Ak som teda správne pochopil, máš previesť string na číslo (Integer), ale bez pomoci funkcie val? Alebo tam v tom stringu potrebuješ to číslo aj nejako nájsť? V premennej riadok bude po prečítaní súboru iba číslo, alebo aj iný text?

dany2281995 · Napísal autor témy **dany2281995**: 02.06.2013 14:34

ja som to na forum našiel ale to bolo cele robene cez funkciu

ja len potrebujem aby zo suboru otvorilo ho načitalo načitalo to čo je vnom napr Ahoj a prehodilo to do premennej(integer);
potom aby to vypisalo koľko ma znakov tie udaje vtom

BX · Napísal BX: 02.06.2013 14:38

Ako chceš "Ahoj" prehodiť do premennej typu Integer? Na počet znakov máš funkciu Length tak, ako ju používaš. Je na tebe, či to priradíš do inej premennej, tam problém nevidím.

dany2281995 · Napísal autor témy **dany2281995**: 02.06.2013 14:43

ano presne tak

ale potrebujem aby to načitalo zo suboru text15.txt ktory je uloženy na disku a vnom su zapisane veci ktore to prehodi do int a potom pomocou length zisti koľko pismen to ma napr

dany2281995 · Napísal autor témy **dany2281995**: 02.06.2013 14:43

načita zo suboru textovu informáciu do premennej,zisti dlžku reťazca,umožni vymazať časť reťazca

BX · Napísal BX: 02.06.2013 14:51

No dobre, takto:
Premenná typu Integer je číslo. Typicky 4 bajty, ktoré sa interpretujú ako číslo.
Premenná typu char je znak. Typicky 1 bajt, ktorý sa interpretuje ako znak podľa ASCII tabulky.
Premenná typu string je reťazec znakov, v podstate teda pole znakov (premenných typu char)

Dokážeš prečítať súbor a jeho obsah uložiť do premennej typu string? Dokážeš.
Dokážeš zistiť, koľko znakov tento string obsahuje? Dokážeš (funkciou Length)

Zamerajme sa teda na situáciu, že máš obsah súboru v premennej typu string. Čo s tým textom chceš robiť?
Nemôžeš predsa text zmeniť na číslo. To môžeš len v prípade, že obsahuje len znaky číslic (napr "123") a to funkciou val uložíš do premennej typu Integer.

Ak už máš text zo súboru v premennej typu string, tak si s ním môžeš robiť čo chceš. Len stále neviem, čo chceš.

dany2281995 · Napísal autor témy **dany2281995**: 02.06.2013 14:56

BX píše:

No dobre, takto:
Premenná typu Integer je číslo. Typicky 4 bajty, ktoré sa interpretujú ako číslo.
Premenná typu char je znak. Typicky 1 bajt, ktorý sa interpretuje ako znak podľa ASCII tabulky.
Premenná typu string je reťazec znakov, v podstate teda pole znakov (premenných typu char)

Dokážeš prečítať súbor a jeho obsah uložiť do premennej typu string? Dokážeš.
Dokážeš zistiť, koľko znakov tento string obsahuje? Dokážeš (funkciou Length)

Zamerajme sa teda na situáciu, že máš obsah súboru v premennej typu string. Čo s tým textom chceš robiť?
Nemôžeš predsa text zmeniť na číslo. To môžeš len v prípade, že obsahuje len znaky číslic (napr "123") a to funkciou val uložíš do premennej typu Integer.

Ak už máš text zo súboru v premennej typu string, tak si s ním môžeš robiť čo chceš. Len stále neviem, čo chceš.

ten subor ktory to otvori z disku načita do premennej pomocou length zisti jeho dlžku ,
dalej:
Begin
Write ('Zadaj poziciu z ktorej chces vymazat: ');
Readln (b);
Write ('Zadaj pocet znakov ktore chces vymazat: ');
Readln (c);
delete(PS,b,c);
Writeln('Vymazane znaky:',S);
readkey;
goto menu;
end;
Ale mne proste nejde stoho otvoreneho suboru prehodiť t odo premennej vypiše error.

BX · Napísal BX: 02.06.2013 15:16

dany2281995 píše:

Ale mne proste nejde stoho otvoreneho suboru prehodiť t odo premennej vypiše error.

No super, konečne sa niekam dostávame.
Takže pošli kód, ktorý ti chybuje, kde chybuje a napíš aj znenie chyby.

dany2281995 · Napísal autor témy **dany2281995**: 02.06.2013 15:35

program data;
uses crt,sysutils;
var Subor: text;
riadok:string;
i,c:integer;

Begin
Assign(Subor, 'text15.txt');
reset(Subor);
ReadLn(Subor, riadok);
val(riadok,i,c);
StrToInt := i;
readln(riadok);
writeln('Pocet znakov vo vete je:',length(riadok));
readkey;
close(Subor);
end.
tak nejako
Strtoint v subore pascal

BX · Napísal BX: 02.06.2013 15:48

A prečo chceš vôbec reťazec prevádzať na číslo? Som z toho trochu zmagorený, lebo si písal o reťazci napr "Ahoj" a to na číslo neprevedieš.
Ale aj keby, tak prečo by si chcel používať aj funkciu val aj StrToInt? Obe funkcie ti urobia v podstate to isté (odlišnosti nechajme tak) - prevedú ti reťazec na číslo, ak sa to dá. Inak vyvolajú chybu.
Po vykonaní val(riadok,i,c) máš v premennej i číslo (ak v sa reťazec v premennej riadok previesť na číslo dá)
To isté dostaneš, keĎ vykonáš i := StrToInt(riadok); Tak si vyber jeden spôsob, nie oba naraz.

Tá chyba znamená, že StrToInt je funkcia, tak sa k nej máš aj tak správať.

dany2281995 · Napísal autor témy **dany2281995**: 02.06.2013 15:53

aha

to som nevedel dik

dany2281995 · Napísal autor témy **dany2281995**: 02.06.2013 15:58

a že nejako to nefunguje

ked t oskompilujem tak mi vyhodi že znakov je 0
a v textovom je zapisany cely riadok.
A za druhe potrebujem ešte že ked otvori ten textovy aby umožnilo vymazať časť zneho
Begin
Write ('Zadaj poziciu z ktorej chces vymazat: ');
Readln (b);
Write ('Zadaj pocet znakov ktore chces vymazat: ');
Readln (c);
delete(PS,b,c);
Writeln('Vymazane znaky:',S);
readkey;
goto menu;

BX · Napísal BX: 02.06.2013 16:05

Tak v prvom rade, ty asi vôbec nepotrebuješ funkcie ako val, či StrToInt. Ty chceš len zistiť počet znakov, to urobí funkcia Length.
Takže zmaž riadky s val aj StrToInt a počet znakov vypíšeš len ako

Kód:

i := Length(riadok);
writeln('Pocet znakov vo vete je:', i);

Hotovo.

Mazať priamo v súbore sa nedá. Musíš ho otvoriť, uložiť si jeho obsah do premennej typu string (to vieš), tam to zmazať (aj to vieš, pomocou delete) a následne tento upravený text znovu uložiť do súboru.

dany2281995 · Napísal autor témy **dany2281995**: 03.06.2013 8:47

if stlac = 4 then Begin
clrscr;
textcolor(2);
Assign(Subor, 'text15.txt');
reset(Subor);
while not Eof do Begin
ReadLn(Subor, riadok);
WriteLn(riadok);
PS:= riadok; //skušal som to aj bez toho ale nejde to
writeln('Zadaj poziciu na ktorej chces vymazat:');read(a);
writeln('Zadaj pocet slabik ktore chces vymazat:');read(b);
S := delete (PS,a,b);
Writeln(S);
readkey;
close(Subor);
goto menu;
end;
end;
to je v menu a nejako to nechce is5 :/
nejako by som potreboval to doiešiť kde tam mam chibu

BX · Napísal BX: 03.06.2013 9:28

ak chceš celý súbor načítať do premnnej PS, tak to urobíš takto

Kód:

PS := ''; { na zaciatku prazdny retazec }
While Not Eof Do 
Begin
    ReadLn(Subor, riadok);
    PS := PS + riadok;
End;

Až keď máš celý súbor v PS, začni vymazávať.

dany2281995 · Napísal autor témy **dany2281995**: 03.06.2013 19:26

spracoval som to cele a funguje to Veľmi pekne ti Ďakujem za rady

Gregi555 · Napísal **Gregi555**: 03.06.2013 19:57

Zhruba takto? (cestu k suboru si uprav podla svojich potrieb)

Kód:

Program UPRAV_SUBOR;
uses Crt;
const
{ cesta k nacitavanemu suboru }
  cesta = 'D:\text.txt';
var
{ subor bude textoveho formatu }
  subor: text;
  dlzka,maz_zaciatok,maz_koniec: Longint;
  retazec: string;

BEGIN
  ClrScr;
  WriteLn('Cesta k suboru: ',cesta);
  Assign(subor,cesta);
  Reset(subor);
  while not(eof(subor)) do
    Read(subor,retazec);
  dlzka := Length(retazec);
  WriteLn('Dlzka retazca: ',dlzka);

  repeat
    GoToXY(1,3);
    Write('zadaj (zaciatok,koniec) pozicie mazania: ');
{ 2 hodnoty zadas oddelene mezerou, alebo ENTERom }
    ReadLn(maz_zaciatok,maz_koniec);
{ ako taka podmienka rozsahu mazania v subore }
  until (maz_zaciatok <= maz_koniec);
  WriteLn('mazany text: ',copy(retazec,maz_zaciatok,maz_koniec-maz_zaciatok+1));

{ zmazanie zvolenej casti v texte }
  Delete(retazec,maz_zaciatok,maz_koniec-maz_zaciatok+1);

{ upraveny text ulozeny do povodneho suboru }
  Rewrite(subor);
  Write(subor,retazec);
  Close(subor);
  Write('DONE !!!');

  ReadLn;

END.

dany2281995 · Napísal autor témy **dany2281995**: 03.06.2013 22:08

wáw dobre ty

iked som to robil trošk inak ale som rad že mi to funguje

a spravil som šetko čo som potreboval teraz som pešiel na objekotve programovanie v pascale čiže na Lazarus

BX · Napísal BX: 03.06.2013 23:06

Nevieš ani poriadne pracovať s premennými a už ideš na objekty? To nie je úplne dobrý prístup.

Strtoint v subore pascal

Podobné témy