主题：怎样获得某个字符出现的位置

Dim str As String ="阿萨,撒旦,多发点,retreat,热天,热天"

Dim clist As new List(of Integer)

For i As Integer=0 To str.length-1

    If str(i)="," Then

      clist.Add(i)

    End If

Next

For i As Integer=0 To clist.count-1

  MessageBox.show("第" & i+1 & "出现的位置在 : " & clist(i))

Next