Dim lst As List
lst=File.ReadList(File.DirLibrary, "Setup.ini")
For i = 1 To Timerlist.Size -1
mp = ConvertStringToMap(list.get(i))
Next
Sub ConvertStringToMap(str As String) As Map
Dim mp As Map
Dim strMap() As String
Dim strList() As String
mp.Initialize
If str<>"" Then
str = str.SubString2(1, str.Length -1)
strMap=Regex.Split(",",str)
For i = 0 To strMap.Length -1
strList=Regex.Split("=",strMap(i))
If strList.Length = 2 Then
mp.Put(strList(0).Trim, strList(1).Trim)
Else
mp.Put(strList(0).Trim, "")
End If
Next
End If
Return mp
End Sub