Dim T As String = "[基本工资]+[提成]+[补助]+[奖金]+[加班费]+iif([级别]=""初级"",100,200)" Dim ecLs As New List(Of String) Dim i,n, n1,n2 As Integer n = T.Length - T.Replace("[","").length for i = 0 to n-1 n1 = T.Indexof("[",n2) n2 = T.Indexof("]",n1) ecLs.Add (T.SubString(n1+1,n2-n1-1)) Next output.show(ecLs(0)) output.show(ecLs(n-1))