如何在TEXT1.TEXT去重

问题描述

TEXT1.TEXT="a,s,d,f,g,d,d,s,v,n,a"请问如何去重

解决方案

解决方案二：
请问如何去重是什么意思,麻烦先把问题写清楚
解决方案三：
小弟刚刚毕业写得不好请指教DimsAsString="a,s,d,f,g,d,d,s,v,n,a"Dims1AsStringDima()AsString=Split(s,",")Dimb(a.Length-1)AsStringDimi,j,k,lAsIntegerj=0l=1Fori=0Toa.Length-1k=0b(0)=a(0)Ifi>0ThenForj=0TolIfa(i)=b(j)Thenk=1EndIfNextIfk=0Thenb(l)=a(i)l=l+1EndIfEndIfNextFori=0Tols1=s1+b(i)Next
解决方案四：
DimsAsString="a,s,d,f,g,d,d,s,v,n,a"Dims1,s2AsStringDima()AsString=Split(s,",")s1=Replace(s,",","")s2=a(0)DimiAsInt16Fori=1ToUBound(a)IfInStr(s2,a(i))=0Thens2=s2&","&a(i)EndIfNextLabel1.Text=s2
解决方案五：
s1不要它