extracting numbers separated by commas >>help<<

[bilals]

hello everyone

i need ur help to do the following:

i have a text box containing the following text 2,5,3,6,9,10,23,56

notice that the numbers are separated by commas

what i would like to do isto extract the numbers from that text box by order and place each one of them in a list box.


i.e.

2 should be placed in list1.list(0)
5 should be placed in list1.list(1)

ans so on...


to better describe what i need i attached an image.


thanks in advance

[DataMiser]

Look up the split() function in your online help. This will allow you to parse the numbers out based on the seperator character into an array. There should be an example in the help file as well.

[dglienna]

Blast from the past! (except I had to search the forums, as I misplaced the sample's name...)

Option Explicit

Private Sub Form_Load()
  Dim x As Integer, st As String
  Dim ff As Integer
  Dim strBuff As String
  Dim str() As String
  ff = FreeFile
  Open App.Path & "\to do.txt" For Input As #ff
    strBuff = Input(LOF(ff), ff)
  Close #ff
  ' ----------------- two ways to skin a cat --------------
  MsgBox "Lines = " & Len(strBuff) - Len(Replace(strBuff, vbCrLf, "x")) + 1
  ' -------------------------------------------------------
  str() = Split(strBuff, vbCrLf)
  MsgBox "There are " & UBound(str) + 1 & " lines in the file"
  For x = 0 To UBound(str)
    st = st & str(x) & vbCrLf & vbCrLf
  Next x
  MsgBox st
End Sub

[bilals]

thanks for the help
i really appreciate it.