QBasic character counter - helped by Buff

0

By Tom Pilk on Jan 1st, 2005 6:21 pm

Ad: Save Now—Cisco UCS C24 M3 Rack Servers

This is a little program in QBasic which counts the number of characters in a string. Made by Buff - two errors removed by me. Thanks Buff.

DECLARE SUB GetWords (st$, wds%)

st$ = "Hello my name is John Doe"
IF RIGHT$(st$, 1) <> " " THEN st$ = st$ + " "
FOR k% = 1 TO LEN(st$)
IF MID$(st$, k%, 1) = " " THEN words% = words% + 1
characters% = characters% + 1
NEXT
PRINT "total characters="; characters%
PRINT "total words="; words%


xst$ = "Hello my name is John Doe"
GetWords xst$, words%
PRINT "words= "; words%

SUB GetWords (st$, wds%)
IF RIGHT$(st$, 1) <> " " THEN st$ = st$ + " "
FOR k% = 1 TO LEN(st$)
IF MID$(st$, k%, 1) = " " THEN words% = words% + 1
characters% = characters% + 1
NEXT
'print "total characters=";characters%
'print "total words=";words%
wds% = words%
END SUB

8 Years Ago

0

Thank you ... and thank Buff. Who is Buff ;)

Dani

The Queen of DaniWeb

Administrator

21,553 posts since Feb 2002

Reputation Points: 1,555

Solved Threads: 376

Skill Endorsements: 124

8 Years Ago

0