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

PASCAL Pretrazivanje texta...

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

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

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

valajbeg
Student/TS
Sarajevo

Član broj: 5069
Poruke: 615
*.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 247 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.microsoft.ba
Microsoft gives you Windows... Linux gives you the whole house.
 
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 247 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: 615
*.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 247 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.microsoft.ba
Microsoft gives you Windows... Linux gives you the whole house.
 
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 247 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: 615
*.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 247 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.microsoft.ba
Microsoft gives you Windows... Linux gives you the whole house.
 
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 247 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 247 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: 615
*.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 247 meseci
hajd.. hajd .. samo nastavii..
www.microsoft.ba
Microsoft gives you Windows... Linux gives you the whole house.
 
Odgovor na temu

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

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

Postavi temu Odgovori

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