Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

PASCAL Pretrazivanje texta...

[es] :: Pascal / Delphi / Kylix :: PASCAL Pretrazivanje texta...

[ Pregleda: 4478 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

valajbeg
Student/TS
Sarajevo

Član broj: 5069
Poruke: 614
*.as53.sa-ap.bih.net.ba.

ICQ: 127234502
Sajt: www.microsoft.ba


+10 Profil

icon PASCAL Pretrazivanje texta...06.04.2004. u 21:09 - pre 214 meseci
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
www.data.ba | www.microsoft.ba
Microsoft gives you Windows... Linux gives you the whole house. (A. Aganovic)
 
Odgovor na temu

doomed
NS/PO

Član broj: 736
Poruke: 180
*.ptt.yu



Profil

icon Re: PASCAL Pretrazivanje texta...06.04.2004. u 22:37 - pre 214 meseci
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



Ako treba onda nema potrebe
 
Odgovor na temu

valajbeg
Student/TS
Sarajevo

Član broj: 5069
Poruke: 614
*.as53.sa-ap.bih.net.ba.

ICQ: 127234502
Sajt: www.microsoft.ba


+10 Profil

icon Re: PASCAL Pretrazivanje texta...07.04.2004. u 07:13 - pre 214 meseci
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'...
www.data.ba | www.microsoft.ba
Microsoft gives you Windows... Linux gives you the whole house. (A. Aganovic)
 
Odgovor na temu

kefalo
Banjaluka, RS, BiH

Član broj: 18959
Poruke: 263
*.teol.net

ICQ: 178873696
Sajt: home.blic.net/mozlas


+6 Profil

icon Re: PASCAL Pretrazivanje texta...07.04.2004. u 14:14 - pre 214 meseci
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
 
Odgovor na temu

valajbeg
Student/TS
Sarajevo

Član broj: 5069
Poruke: 614
*.as53.sa-ap.bih.net.ba.

ICQ: 127234502
Sajt: www.microsoft.ba


+10 Profil

icon Re: PASCAL Pretrazivanje texta...07.04.2004. u 16:13 - pre 214 meseci
:-)...
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... :-)
www.data.ba | www.microsoft.ba
Microsoft gives you Windows... Linux gives you the whole house. (A. Aganovic)
 
Odgovor na temu

kefalo
Banjaluka, RS, BiH

Član broj: 18959
Poruke: 263
*.dialup.blic.net

ICQ: 178873696
Sajt: home.blic.net/mozlas


+6 Profil

icon Re: PASCAL Pretrazivanje texta...07.04.2004. u 23:51 - pre 214 meseci
pa to je bar lako... samo jednim if upitom...
if procitaniznak<>SPACE and prosliznak=space then pocetak rijeci !!!!!
 
Odgovor na temu

Vdjuric
Vladimir Djuric
student
Beograd

Član broj: 20863
Poruke: 64
*.eutelsat.net

Sajt: www.marettasoftware.com


Profil

icon Re: PASCAL Pretrazivanje texta...08.04.2004. u 05:38 - pre 214 meseci
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;
 
Odgovor na temu

valajbeg
Student/TS
Sarajevo

Član broj: 5069
Poruke: 614
*.as53.sa-ap.bih.net.ba.

ICQ: 127234502
Sajt: www.microsoft.ba


+10 Profil

icon Re: PASCAL Pretrazivanje texta...08.04.2004. u 22:04 - pre 214 meseci
hajd.. hajd .. samo nastavii..
www.data.ba | www.microsoft.ba
Microsoft gives you Windows... Linux gives you the whole house. (A. Aganovic)
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: PASCAL Pretrazivanje texta...

[ Pregleda: 4478 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.