比如數(shù)組a。里面有5個(gè)值,其中有3個(gè)是重復(fù)的?
站在用戶(hù)的角度思考問(wèn)題,與客戶(hù)深入溝通,找到夾江網(wǎng)站設(shè)計(jì)與夾江網(wǎng)站推廣的解決方案,憑借多年的經(jīng)驗(yàn),讓設(shè)計(jì)與互聯(lián)網(wǎng)技術(shù)結(jié)合,創(chuàng)造個(gè)性化、用戶(hù)體驗(yàn)好的作品,建站類(lèi)型包括:做網(wǎng)站、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、主機(jī)域名、網(wǎng)頁(yè)空間、企業(yè)郵箱。業(yè)務(wù)覆蓋夾江地區(qū)。
如果這樣的話,很好辦哦。
新建一個(gè)數(shù)組b,然后遍歷要去除的數(shù)組a,
從a中把每一個(gè)都取出來(lái),和新建的b里面的去比,如果有相同的,則不放入b,
否則就放入數(shù)組b,直到循環(huán)結(jié)束。
Dim array1() As String
Dim array2() As Boolean
Dim i As Integer
Dim j As Integer
Dim str1 As String = "a,c,c,c,a,b,c,d,f,eee,eee"
array1 = Split(str1, ",")
str1 = ""
ReDim array2(UBound(array1))
For i = 0 To UBound(array1)
array2(i) = False
Next
For i = 0 To UBound(array1) - 1
If array2(i) = False Then
For j = i + 1 To UBound(array1)
If array1(i) = array1(j) And array2(j) = False Then
array2(j) = True
End If
Next j
End If
Next i
For i = 0 To UBound(array1)
If array2(i) = False Then
str1 = str1 array1(i) ","
End If
Next i
If str1 "" Then
str1 = Strings.Left(str1, Len(str1) - 1)
End If
我還在床上,就只給你思路吧
我是自己寫(xiě)了個(gè)函數(shù),將數(shù)組傳入并返回一個(gè)新數(shù)組列表
子函數(shù)中,先將數(shù)組排序sort函數(shù),然后有兩個(gè)循環(huán),外循環(huán)從0到Length,變量i,內(nèi)循環(huán)從i到Length,判斷第i個(gè)數(shù)是否與包括自身的后續(xù)數(shù)相同,相同就有變量加1,內(nèi)循環(huán)結(jié)束條件是找到第一個(gè)不同的數(shù),并將外循環(huán)i復(fù)植為內(nèi)循環(huán)中第一個(gè)不同的數(shù)的下表。。。
這個(gè)是思路,如果不能理解再再追加我給你代碼,不過(guò)建議自己試試
你看寫(xiě)這個(gè),和你的要求差不多。。。;oldq=1
有程序的~~~你可以參考下~~~