|
-
Nov 6th, 2000, 04:23 PM
#1
Thread Starter
Lively Member
hey, i was asking for the word count function...
you used this function
' Split the text into words.
vArray = Split(Text1.Text, " ")
what is the "split" function it is readable by VB
if any one else knows what this is please respond, this is the full code used to count the words in a text field.
Dim vArray As Variant
Dim intIndex As Integer
Dim intCount As Integer
Dim intWords As Integer
' Split the text into words.
vArray = Split(txtMain.Text, " ")
' Find those longer than 8
For intIndex = 0 To UBound(vArray)
If Len(vArray(intIndex)) > 8 Then
intCount = intCount + 1
End If
If Trim(vArray(intIndex)) <> "" Then
intWords = intWords + 1
End If
Next
MsgBox "txtmain contains " & intWords & " words " _
& "of which " & intCount & " are longer than 8 characters"
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|