I am creating a little application for medical students to practice writing patients notes. I need to introduce a word counter so that the length of the text in a given Text Area does not exceed a given number of words.
I found the following thread on this forum
This is the code that I am referring to
#pragma BackgroundTasks False #pragma BoundsChecking False #pragma NilObjectChecking False #pragma StackOverflowChecking False // new optimized method Dim count As Integer Dim wordLength As Integer dim mMB as MemoryBlock = mText Dim char As integer dim p as ptr = mMB Dim textLen As Integer = mMB.Size-1 For i As Integer = 0 To textLen char = p.Byte(i) ' see if character is in ASCII A..Z or a..z range if (char >= 65 and char <= 90) or (char >= 97 and char <= 122) then wordLength = wordLength + 1 else if wordLength >=1 then count = count +1 wordLength = 0 // reset word length to zero end if end if Next Return count
I am going to set a variable Textarea1_WordCount as integer.
Then I will set a Timer to perform word counting every 10 seconds (I do not want the Timer to interfere with the student’s typing).
How should I modify the code above so that it counts words in the given Text Area and passes the result the TextArea1_WordCount variable?
Thank you in advance,