Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Marked Solved
Views: 663

Jul 6th, 2009

Counting Numbers inside text area

Expand Post »

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.

Similar Threads

PHP Text-Area Help in PHP
Formatting text area in PHP
Large Icon ListView like with Text area in Visual Basic 4 / 5 / 6
limit text area words in PHP
Remove Selected Value from the Text Area in JavaScript / DHTML / AJAX

nagatron

Reputation Points: 10

Solved Threads: 2

Junior Poster in Training

Offline

99 posts
since Aug 2008

Permalink

Jul 6th, 2009

Re: Counting Numbers inside text area

try this:

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

cguan_77

Reputation Points: 19

Solved Threads: 115

Nearly a Posting Virtuoso

Offline

1,317 posts
since Apr 2007

Permalink

Jul 6th, 2009

Re: Counting Numbers inside text area

Click to Expand / Collapse Quote originally posted by cguan_77 ...

try this:
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?

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

Good Luck

vb5prgrmr

Reputation Points: 156

Solved Threads: 296

Posting Virtuoso

Offline

1,670 posts
since Mar 2009

Permalink

Jul 7th, 2009

Re: Counting Numbers inside text area

Hmm..that's really better..

cguan_77

Reputation Points: 19

Solved Threads: 115

Nearly a Posting Virtuoso

Offline

1,317 posts
since Apr 2007

Permalink

Jul 7th, 2009

Re: Counting Numbers inside text area

thank you so much it is solved. . .

nagatron

Reputation Points: 10

Solved Threads: 2

Junior Poster in Training

Offline

99 posts
since Aug 2008

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Anyone know how to add column on the vb datagrid

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Reading a binary file in chunks...

DaniWeb Message

Cancel Changes

User Name
Password