TheGameCreators - CodeBase - Finding words in a sentance

Category: Input / Output

Version: 1.0

Information

Uploaded: 7th Nov 2003 20:13

Modified: 1st Jan 1970 01:00

Author: NE0

Summary

Ever wanted to know how you can let darkbasic find and store individual words in a given sentance? wel here is a way to do it.. handy when you`ve created a chat program and want to create a CHATBOT or something like that...

Full Description

Making a CHATBOT begins with finding specific words in a sentance... but how do you get these individual words out of that sentance??? well ... here it is.. I`m using this piece for my own program (a program wich allows you talk to me without me being there , not a chatbot but something like that)<br /> <br /> anyway... enjoy it and well if you have any comments post them on the forum (pm)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem -----------------------------------------------

Rem -- Author : Vincent Hoogendam                --

Rem -- Demo   : How to split a sentence to words --

Rem -- E-mail : vincent.hoogendam@lycos.nl       --

Rem -----------------------------------------------

Rem First let dark  basic ask you to input a sentance

Rem -------------------------------------------------

input "Enter a sentance to split in words : ",sentance$

Rem Make some storage room for the words (the number represents the max words you can use)

Rem --------------------------------------------------------------------------------------

Dim Word$(25)

Current as integer

word$ as string

Rem Now lets find the words you`ve entered

Rem --------------------------------------

`Lets make a loop that returns the amount of times as there are characters in the sentance

for a=1 to len(sentance$)

`Now we define words by spaces between a sequence of characters so lets do that

char$=left$(sentance$,a)

char$=right$(char$,1)

`Check if the found character is a : [ ] or [?] or [!] or [.] or a [,] character because these arent part of a word..

`If one of the last mentioned characters was found skip it and add look for next word

if char$=" " or char$="?" or char$="!" or char$="." or char$=","

Current=Current+1

else

`if the found character is alpha-numeric then add it to the current word

word$(Current)=word$(Current)+char$

endif

next a

Rem Now lets show the found words in your sentance

cls

set cursor 0,y#

for a= 0 to Current

print "found word ",a," : ",word$(a)

next a

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	NE0
CodeBase Entries:	3

CodeBase - Finding words in a sentance