Slova v textech – Delphi – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Slova v textech – Delphi – Fórum – Programujte.comSlova v textech – Delphi – Fórum – Programujte.com

 

Kerman0
Duch
30. 12. 2010   #1
-
0
-

Zdravím, po delší době jsem se přišel zeptat na nápovědu... Abych to uvedl, dostal jsem za úkol napsat program, který načte nějaký text ten celý upraví v memu tak že každé slovo je na jednoum řádku a po sléze slova které jsou tam víckrat sečte a vypíše jakých slov tam je kolik... Příklad: načtu větu "zavolal jsem haló, a uslyšel jsem haló" a program vypíše: zavolal 1x, jsem 1x, haló 2x, atd...
začal jsem nějak takhle - upravil jsem text, aby se mi upravil v memu - každý řádek, nové slovo:

var

Form1: TForm1;
z,k: integer;
slovo,obsah: ansistring;
znaky: set of char;



implementation

{$R *.dfm}





procedure TForm1.Button1Click(Sender: TObject);
begin
if open_text.execute
then memo1.Lines.LoadFromFile(open_text.Filename);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
obsah:=memo1.text;
repeat
while (not(obsah[k] in znaky)) do
begin
k:=k+1;
end;
k:=k+1;
slovo:=copy(obsah,z,k-z-1);
memo2.Lines.add(slovo);
while (obsah[k] in znaky) do
begin
k:=k+1;
end;
z:=k;
until k>=length(obsah);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
z:=1;
znaky:=[',',' ',';','!','(',')','"','?','=','.','[',']','>','<',':','+','-','/','\'];
k:=0;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
memo2.text:='';
z:=0;
k:=0;
slovo:='';
obsah:='';
end;

end.

ale dál vůbec nevím jak... napadly mě nějaké algoritmy pomocí dvojrozměrných polí, či něčeho takového... ale nikdy jsem se nedobral ničeho, abych mohl začít... Potřeboval bych s tím trochu popostrčit... nebo klidně poradit s úplně jiným řešením, jak by jste tuhle úlohu řešili... Je celkem jedno jak to bude vypadat, pouze ať to vykoná to co jsem uvedl... Děkuji za všechny poskytnuté rady.

Nahlásit jako SPAM
IP: 81.91.220.–
liborb
~ Redaktor
+18
Guru
3. 1. 2011   #2
-
0
-

V podstatě si musíš někam uložit všechna slova, následně je spočítat a vypsat. Nejlepší bude ukládat to při rozdělování. Udělej první průchod rozdělením slov, ale jenom je počítej -> délka pole řetězců. Pak udělej ten druhý průchod a slova rozděluj a ukládej. A počítání ... vezmi první slovo a projdi to pole, počítej počet výskytů (porovnávej a při shodě i z pole smaž) a následně vypisuj do memo. V poli přeskakuj prázdné (vymazané) řetězce a pole projdi celé.

Nahlásit jako SPAM
IP: 78.80.52.–
Zjistit počet nových příspěvků

Přidej příspěvek

Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!

Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 3 hosté

Podobná vlákna

Slova pozpátku — založil ondrej77

Slova na radek — založil Petr

Slova ve vete — založil karl

Klíčová slova — založil Porcepoque

Vyskyt slova — založil kejta

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032024 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý