Visual Basic 6 (VB6)

it doesnt work

i have problem in this code, i want to reverse the contents of the text box. plz help me... :(((

" carray = Textbox1.Text.ToCharArray()
reverse = String.Empty

For i As Integer = 0 To carray.Length - 1 & i >= -1
i -= 1
reverse += carray(i)
Next
TextBox2.Text = reverse"

Private Function WordCount(countme As String) As Integer
Dim words() As String

countme = Replace(countme, " ", " ")
words() = Split(countme, " ")
WordCount = UBound(words) + 1
End Function

Private Sub Text1_Change()
Label1.Caption = WordCount(Text1.Text) & " words found."
End Sub

Dim word, a As String
Dim b, i, count As Byte
word = txtsentence.Text
a = word.Trim
b = a.Length
count = 0
For i = 0 To (b - 1)
If a.Substring(i, 1) <> " " Then
count = count + 1
End If

Next
lblnow.Text = count

whether we can create a focus for a single button alone among various buttons & which will be enabled & accessed by enter key & mouse. Similar to accept button of vb.net

Public function WordCount(data As String) as long
dim newdata as string
dim arrdata() as string
dim space as string
dim ilen as long
space = " "
newdata = trim(data)
While InStr(1, newdata, space & space ) > 0 'two spaces
newdata = replace(trim(data), space & space , space ) 'replace two spaces with a space
wend
if len(trim(newdata)) = 0 then
WordCount=0
else
arrdata()=split(newdata, space)
ilen = ubound(arrdata(), 1)
WordCount=ilen + 1 'account for zero based array
end if
end function

'count number of words in a string disregarding number of spaces in between or at the beginning/start of the string. no more trimming off the spaces because the problem of all the other codes here is when there are more spaces in between the words.

Private Sub Command1_Click()
Dim WordCount As Integer
Dim ChrCount As Integer
For ChrCount = 1 To Len(Text1.Text)
If Mid(Text1.Text, ChrCount, 1) = " " Then GoTo skip_Count ' just don't count when a space is met
If Mid(Text1.Text, ChrCount - 1, 1) = " " Then 'just counts when a previous char is a space (this is the trick)
WordCount = WordCount + 1
End If
skip_Count:
Next
MsgBox "Number of words found = " & WordCount 'was it great!
End Sub

'hope this helps....

Hi All VB Readers,
'Please have a very easy solution to count words from given textbox/paragraph

Dim bulCounted As Boolean
Dim intcounter As Integer
bulCounted = False
intcounter = 1
TextBox1.Text = Trim(TextBox1.Text)
For i = 1 To Len(TextBox1.Text)
bulCounted = False
If Mid(TextBox1.Text, i, 1) = " " Then
For j = i To Len(TextBox1.Text)
If Mid(TextBox1.Text, j, 1) <> " " Then
intcounter = intcounter + 1
i = j
bulCounted = True
GoTo x
End If
Next
x:
If bulCounted = False Then
intcounter = intcounter + 1
End If
End If
Next
MsgBox "Above text box contains " & intcounter & " words", vbInformation

Thanks & Regards
Deepak Shitole
s.deepak150@gmail.com

c = 0
g = Len(intext)

Function new_conv(intext As String)

c = 0
g = Len(intext)

For i = 1 To g
If Mid(intext, i, 1) = " " Then
c = c + 1
End If
''this line for checking two spaces
'If Mid(intext, i, 1) = " " Then i = i + 2
While Mid(intext, i, 1) = " "
i = i + 1
Wend

Next

MsgBox "no of word in textbox is" & c + 1

End Function

I have tested then code for the task, but it did not work!
In line 11 and 12 i had to change the search-string to 2 spaces to find the double spaces.
Then it worked OK for a normal textbox, but when counting a 100 or 200 kB file it was VERY slow.

I have made new code for removing double spaces. In my text there was a lot of spaces - for indenting tekst - and I had to remove all of them. I also made new code for the counting task. This made the word counting MUCH faster:

Chars   Words    Original  My solution
 35 k    3798       3,7 s      0,015 s 
 70 k    7595      15,0 s      0,016 s
100 k   11392      33,7 s      0,031 s
200 k   22783     138,2 s      0,063 s

My code is:

Public Sub WordCounting(Text0 As String)
 1. Dim NumOfWords As Integer, WCount() As String
 2. Dim Text1 As String
 3.     
 4.     Text1 = Text0
 5.     If Trim(Text1) = "" Then        'Text1 is empty
 6.         NumOfWords = 0
 7.         Exit Sub
 8.     End If
 9.      
10.     Text1 = Trim(Text1)             'Remove All Spaces at start and end
11.      
12.     While InStr(1, Text1, "  ") > 0 'Remove >1 Spaces
13.         Text1 = Replace(Text1, "  ", " ")
14.     Wend
15.      
16.     WCount = Split(Text1, " ")
17.     NumOfWords = UBound(WCount) + 1
End Sub