[ valajbeg @ 06.04.2004. 21:09 ] @
Pretrazivanje texta...
...
mozeli neko malo pomoci..


npr...

In Windows, Dreamweaver MX 2004 provides an all-in-one-window integrated workspace. In the integrated workspace, all windows and panels are integrated into a single larger application window. You can choose between a designer-oriented layout and a layout oriented toward the needs of hand-coders.

Koliko riječi, Koliko Velikih slova, Koliko spejsova, Koliko malih slova, Koliko zareza, Koliko TAčaka....., Upitnika-upitnih recenica, Samoglasnika, Suglasnika......

;-)

bar neke upute.. Oko .. brojanja toga svega.. :-D
[ doomed @ 06.04.2004. 22:37 ] @
Citat:
valajbeg:
Pretrazivanje texta...
...
mozeli neko malo pomoci..

Koliko riječi, Koliko Velikih slova, Koliko spejsova, Koliko malih slova, Koliko zareza, Koliko TAčaka....., Upitnika-upitnih recenica, Samoglasnika, Suglasnika......

;-)

bar neke upute.. Oko .. brojanja toga svega.. :-D



ako citas iz fajla, citas liniju po liniju..i onda jednostavno brojis

c : char;
for i:= 1 to length(linija) do
begin
c := linija;
case c of
' ' : inc(razmaci);
',' : inc(zarezi)
'.' : inc(tacke);
......

dalje, velika slova su ti po ASCII tabeli od 65-90, mala 97-122 , rec ti je izmedju dva blanka..itd
to je prvo sto mi pada napamet


[ valajbeg @ 07.04.2004. 07:13 ] @
Ok ta ideja kako bi ti sa ASCII-jem ..

je Ok ali .. mislio sam da bi jednostavnije bilo prikazati to kao..

for i:=1 to length(linija) do
if (linija>='A') and (linija[]i<='Z') then inc(brojac);


samo.. problem mi je mallo. nebogu bas da nadodjem..
Više Spejsova izmedju RJECI...


kako onda to uradit'...
[ kefalo @ 07.04.2004. 14:14 ] @
potrazi u helpu funkciju ord ona ce ti pomoci da skontas koji je ascii znak space pa takodje vezano za to pogledaj i funkciju chr
[ valajbeg @ 07.04.2004. 16:13 ] @
:-)...
mislim da niste blizzzuu...

toplo hladno toplo hladno...


naime
HAJD.. KAKO CE TE ZNATK koliko je rjeci

ako imas npr. ovako napisanu recenicu

Ja volim da jedem krompir salatu i PIJEM sok od trešanja.
Eto .. PRebroj ih... :-)
[ kefalo @ 07.04.2004. 23:51 ] @
pa to je bar lako... samo jednim if upitom...
if procitaniznak<>SPACE and prosliznak=space then pocetak rijeci !!!!!
[ Vdjuric @ 08.04.2004. 05:38 ] @
Citat:
valajbeg:
naime
HAJD.. KAKO CE TE ZNATK koliko je rjeci

ako imas npr. ovako napisanu recenicu

Ja volim da jedem krompir salatu i PIJEM sok od trešanja.
Eto .. PRebroj ih... :-)


Nisam probao, ali trebalo bi da radi...

Function WordCont(Var Text: String): Word;
Var
WordCount, Br1 :Word;
TextLen :Word;
Begin
WordCount:=0; Br1:=1; TextLen:=Length(Text);
While Br1 <= TextLen
Do Begin
{While ((Br1 <= TextLen)And(Text[Br1] = ' ')) Do Inc(Br1);}
While ((Br1 <= TextLen)And(Text[Br1] = #32)) Do Inc(Br1);
If (Br1 <= Text)
Then Begin
While ((Br1 <= TextLen)And(Text[Br1] <> #32)) Do Inc(Br1);
Inc(WordCount);
End;
End;
Result:=WordCount;
End;
[ valajbeg @ 08.04.2004. 22:04 ] @
hajd.. hajd .. samo nastavii..