Home

Macros and Programming

 

CardboxForumsMacros and Programming > "Compter le nombre de mot dans un champ (computer a number of word in the field)"

Compter le nombre de mot dans un champ (computer a number of word in the field)

Compter le nombre de mot

Current user: [none]
Register / Log In · Help

Posted By Post

CDP-Nivelles

24-May-2006 15:17

Bonjour, j'ai un champ et voudrais savoir compter le nombre de mot. Merci pour votre aide

I'am field et I'm shoud computer a number of word. ex. fields("em")="this" "about" "dear"

The number of word is 3

Charles Welling

25-May-2006 09:29

Voilà. Ce macro divise le champ "em" en mots par la localisation des espaces. Parceque les mots au fin d'un ligne et au début d'un ligne ne sont pas séparé par une espace, le macro compte aussi les lignes.

Here you are. This macro splits the field "em" into words based on the occurrence of spaces. As words at the end of a line and at the beginning of a line are not separated by spaces, it counts the lines as well.

Charles

str=FIELDS("em")
eachword=Split(str," ")
totalwords = 0
for each item in eachword
totalwords = totalwords + 1
next

eachline=Split(str,CHR(10))
totallines = 0
for each item in eachline
totallines = totallines + 1
next

if totallines = 0 then
MsgBox totalwords
else
MsgBox totalwords + totallines - 1
end if

Quick Reply

Please log in or register before trying to post a reply.

 
© 2010 Cardbox Software Limited   Home