[RESOLVED] [2005] Add Collection to array of string

[Zoroxeus]

Hi,
I have an string array such as:
string1() = {"qw", "1", "test"}

and I have a collection from the My.settings
so it's my.settings.collection1

It's a 1D collection which means the content of collection is
"asdasda"
"as"
"aawerfwe"
...

How can i copy all of collection1 in string1 ?

thanks !

[Tom Sawyer]

The first thing you need to do is increase the size of string1. Then you need to use the CopyTo method of the collection (which I assume is also an array of strings) to add the contents of collection1 to string1:

Dim string1As String() = {"1", "2", "3"}


Dim len As Integer = string1.Length
ReDim Preserve string1(len + my.settings.collection1.Length - 1)

my.settings.collection1.CopyTo(string1, len)

[Atheist]

Why not use a List(Of String) instead of a string array?

[Zoroxeus]

Why not use a List(Of String) instead of a string array?

Not sure... did not know of.
I just used whatever that I know of...

PS: instead of "my.settings.collection1.Length" i used .Count


thanks !

[dbasnett]

or just a good old fashioned Array

    Dim tstArray() As String
   'My.Settings.arraySTR is String
    Private Sub TEST()
        Dim samplD As String = "12,13,a,b,1,2,3,4,5,6,7,8,9"
        Dim sepCH As String = Convert.ToChar(255) 'seperator character
        tstArray = My.Settings.arraySTR.Split(Convert.ToChar(sepCH)) 'load array from my.settings
        If My.Settings.arraySTR = Nothing Or tstArray.Length = 0 Then 'first time?
            Debug.WriteLine("SAMPLE") 'yes
            tstArray = samplD.Split(","c) 'load array with sample/default  data
        End If
        'add new item
        Array.Resize(tstArray, tstArray.Length + 1)
        tstArray(tstArray.Length - 1) = "LAST"
        Array.Sort(tstArray) 'sorting strings !!!
        For x As Integer = 0 To tstArray.Length - 1
            Debug.WriteLine(x.ToString & " " & tstArray(x))
        Next
        My.Settings.arraySTR = String.Join(sepCH, tstArray) 'save in my.settings
        Debug.WriteLine(My.Settings.arraySTR)
    End Sub