[Gambas-user] convert string to collection

[Mayost Sharon]

---------- Original Message -----------
From: Jussi Lahtinen <jussi.lahtinen at gmail.com>
To: Gambas Mailing List <user at lists.gambas-basic.org>
Sent: Thu, 4 May 2023 01:29:36 +0300
Subject: Re: [Gambas-user] convert string to collection

> Lee already showed the shorter way, but did you mean faster..?
> 
> Jussi
> 
> On Wed, May 3, 2023 at 7:06 PM Mayost Sharon <sharon at 455.co.il> wrote:
> 
> > I want to convert the string to a collection
> >
> > The way I did it is:
> >
> > Public Sub Main()
> >   Dim col_01 As New Collection
> >   Dim ar_s_01 As String[]
> >   Dim s_01 As String
> >   Dim s_02 As String
> >
> >   s_01 = "Event: Hangup\nPrivilege: call, all\nChannel: SIP / 4 F2060EB4 -
> > 00000000\nUniqueid: 1283174108.0\nCallerIDNum: 2565551212\nCallerIDName:
> > Russell Bryant\nCause: 16\nCause - txt: Normal Clearing"
> >
> >   ar_s_01 = Split(s_01, Chr(10))
> >
> >   For Each s_02 In ar_s_01
> >     col_01.Add(Trim(Split(s_02, ":")[1]), Trim(Split(s_02, ":")[0]))
> >   Next
> >
> >   Print col_01["Event"]
> >   Print col_01["Privilege"]
> >   Print col_01["Uniqueid"]
> >   Stop
> > End
> >
> > Is this the right way?
> > Or is there a shorter way to do it?
> >
> > Thank you
> >
> > ----[ http://gambaswiki.org/wiki/doc/netiquette ]----
> >
------- End of Original Message -------

Yes
I meant it to be faster too

According to what Lee showed
Will it work slower?
why?

Thank you