'edwx defined as edittext above
Dim wxlist as string : wxlist="AAAA:BBBB"
Sub bu_fav_longclick 'Add a favorite
Dim i,j As Int
Dim slist As List
slist.Initialize
If wxlist.Length=0 Then
wxlist=edwx.Text
Return
End If
slist=Regex.Split(":",wxlist)
i=slist.IndexOf(edwx.Text)
If i>-1 Then
Return
End If
wxlist=wxlist&":"&edwx.Text
slist.Clear
slist=Regex.Split(":",wxlist)
slist.Sort(True)
wxlist=""
j=slist.Size-2
For i=0 To j
wxlist=wxlist&slist.Get(i)&":"
Next
wxlist=wxlist&slist.Get(slist.size-1)
End Sub