[Gambas-user] convert string to collection

[Jussi Lahtinen]

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 ]----
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20230504/45fb3e4e/attachment.htm>