[Gambas-user] convert string to collection

[Mayost Sharon]

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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: coll_01.zip
Type: application/zip
Size: 15026 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20230503/a3aa2109/attachment-0001.zip>