fill array from Combobox

[joshboski]

I am currently writing a program which I cant seem to quite finish.. I fill a combobox with multiple lines, consisting of 5 elements delimited by commas. I then am trying to write them separately to a text file which I am using in another program. I think the best way to do that is to store the combobox contents to an array then to a text file.

currently looks like this in the combo box

Bagatelle, Beethoven, Piano Sonata, THIRD, 7
Seven Garden, Motzart, String Symphony, FIFTH, 2



I need it to look like this in the text file

Bagatelle
Beethoven
Piano Sonata
THIRD
7
Seven Garden
Motzart
String Symphony
fifth
2

[RhinoBull]

Welcome to Forums!

Would this work for you?

Private Sub Command1_Click()
Dim i As Integer
Dim arItems() As String
Dim strOutput As String

    For i = 0 To Combo1.ListCount - 1
        strOutput = strOutput & Combo1.List(i)
        If i < Combo1.ListCount Then
            strOutput = strOutput & ","
        End If
    Next i
    
    arItems = Split(strOutput, ",")
    
    Open "c:\test.txt" For Output As #1
        For i = 0 To UBound(arItems)
            Print #1, Trim(arItems(i))
        Next i
    Close #1
    
    MsgBox "File's done."

End Sub

[Hack]

Welcome to the forums.

May I ask why you are using a single column control like a combo box to store multiple columns? This seems more like a job for a grid control or a Listview control.

[joshboski]

Listcount is not a member of the combobox, at least not in VB2005, nor is open, Im new to 2005 and am not transitioning well.

[Hack]

Listcount is not a member of the combobox, at least not in VB2005, nor is open, Im new to 2005 and am not transitioning well.

Moved to VB.NET

[gnaver]

this does what you want

Using sw As IO.StreamWriter = New IO.StreamWriter("c:\Test.txt")
            For Each Item As String In ComboBox1.Items
                Dim tmp() As String = Item.Split(",")
                For Each SplittedString As String In tmp
                    sw.WriteLine(SplittedString.Trim)
                Next
            Next
        End Using