Skocz do zawartości

program liczący ilośc wybranych słów w tekscie


marcinekm681

Polecane posty

Witam wszystkich.

Mam taki program który ma zliczać ilość pewnych wybranych słów w pliku tekstowym.

Np. wybieram fraze 'mo' tak że nie musi byc tylko odrębnym wyrazem ale też w wyrazie np. moskaw, pomoc itd. Póki co to on wypisuje mi wszystkie słowa jakie wpisze. Ale nie mam pojęcia jak go przerobić żeby dziąłał. Męcze sie , a i tak nic nie moge zdziałać:-(( A niestety nie pisałem nigdy programu na plikach tekstowych i taraz mam problem z tym;-(( Z góry dziekuje za jakąkolwiek pomoc:-)

 

program a;

 

USES

CRT;

 

VAR

 

s:string;

c:char;

plik:txt;

wyr:string;

 

BEGIN

clrscr;

Assign(plik,'D:\ala\plik.txt');

Rewrite(plik);

 

Writeln('wpisz tekst: ');

Readln(wyr);

writeln(plik,wyr);

 

writeln;

 

Reset(plik);

 

s:='abc';

While (not eof(plik)) do

begin

Repeat {szukamy pierwszej litery wyrazu}

read(plik,c);

Until c in ['A'..'Z', 'a'..'z'];

s:=c; {mamy pierwszĄ}

read(plik,c);

While c in ['A'..'Z', 'a'..'z'] do {dopki c jest literĄ}

begin

s:=s+c;

read(plik,c);

end;

writeln('ten wyraz to: ',s);

end;

 

 

 

 

 

 

close(plik);

 

readln;

END.

Link do komentarza
Udostępnij na innych stronach

1- uzyj kolorowania skladni

2- przedrostek

3- ja bym to zrobil tak ze biore sobie pierwsza litere z szukanej frazy i wyszukuje ja w tekscie. jak juz mam to biore 2 litery i sprawdzam czy sa takie same. potem robie to z nastepnymi. jezeli wyraz sie zgadza to dodaje do jakiegos licznika 1. i tak dalej

 

czyli mam znaleść "ab" w ciagu "dfhjgabasdd"

szukam w petli "a" ("dfhjgAbasdd")

biore kolejna litere w szukanej ("b") i porownuje ja z nastepna litera w tekscie. zgadza sie wiec to odznaczam.

potem znajduje kolejne "a" ("dfhjgabAsdd")

porownuje nastepna litere w tekscie ("s") z kolejna litera szukanej ("b") sa rozne wiec nie zapisuje tego.

edit:// w wyniku tego dostajesz miejsca w ktorych wystepuje szukana fraza wiec wystarczy sprawdzic w którym jest słowie

 

jakos chaotycznie napisalem ale mam nadzieje że jakoś zrozumiesz moją myśl :)

 

 

edit ://

a i jeszcze:

druga metoda to wczytujesz słowo i sprawdzasz czy nie ma w nim tego fragmentu ktorego szukasz

"Może wam pomoge, może nie, może pierdolcie w dupę się"-prof. Jarząbek

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...