DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Counting Numbers inside text area

Thread Solved

•

Join Date: Aug 2008

Posts: 77

Reputation: nagatron is an unknown quantity at this point

Solved Threads: 0

nagatron

Offline

Junior Poster in Training

Counting Numbers inside text area

Jul 6th, 2009

I am having a problem on how to count numbers inside text area. . .

example: In my text area I have 10 numbers.

12, 06, 31, 22, 53, 28, 96, 71, 10, 47

the the program should count how many 0,1,2,3,4....9 excluding the comma. I don't know how to do this inside a text area or a multiline text box. Can anyone help me or give an example or idea on how to do this. . . .please.

•

Join Date: Apr 2007

Posts: 1,085

Reputation: cguan_77 has a little shameless behaviour in the past

Solved Threads: 89

cguan_77

Offline

Veteran Poster

Re: Counting Numbers inside text area

Jul 6th, 2009

try this:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
 
Sub xx()
    Dim txt As String
    Dim x As Variant
    Dim i As Long
    txt = "10,11,12,13,14,15,16,17,18,1,2,3,4"
    x = Split(txt, ",")
    For i = 0 To UBound(x): Next i
    MsgBox "There are " & i & " numbers in your text area"
End Sub
Sub xx()
    Dim txt As String
    Dim x As Variant
    Dim i As Long
    txt = "10,11,12,13,14,15,16,17,18,1,2,3,4"
    x = Split(txt, ",")
    For i = 0 To UBound(x): Next i
    MsgBox "There are " & i & " numbers in your text area"
End Sub

•

Join Date: Mar 2009

Posts: 773

Reputation: vb5prgrmr will become famous soon enough

Solved Threads: 137

vb5prgrmr

Offline

Master Poster

Re: Counting Numbers inside text area

Jul 6th, 2009

•

Originally Posted by cguan_77

try this:
Help with Code Tags

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
 
Sub xx()
    Dim txt As String
    Dim x As Variant
    Dim i As Long
    txt = "10,11,12,13,14,15,16,17,18,1,2,3,4"
    x = Split(txt, ",")
    For i = 0 To UBound(x): Next i
    MsgBox "There are " & i & " numbers in your text area"
End Sub
Sub xx() Dim txt As String Dim x As Variant Dim i As Long txt = "10,11,12,13,14,15,16,17,18,1,2,3,4" x = Split(txt, ",") For i = 0 To UBound(x): Next i MsgBox "There are " & i & " numbers in your text area" End Sub

Ahhh....

Why not just use ubound+1?

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
 
Sub xx()
    Dim txt As String
    Dim x As Variant
    Dim i As Long
    txt = "10,11,12,13,14,15,16,17,18,1,2,3,4"
    x = Split(txt, ",")
    MsgBox "There are " & UBound(x) + 1 & " numbers in your text area"
End Sub
Sub xx()
    Dim txt As String
    Dim x As Variant
    Dim i As Long
    txt = "10,11,12,13,14,15,16,17,18,1,2,3,4"
    x = Split(txt, ",")
    MsgBox "There are " & UBound(x) + 1 & " numbers in your text area"
End Sub