Удаление повторяющихся значений из массива - VB
Формулировка задачи:
Доброго времени суток!
Вопрос следующего типа:
Есть массив данных, в нем выражения типа String, необходимо удалить одинаковые значения, и вернуть полученное в новый массив, или в этот же. Не могу понять как делать, буду благодарен =)
Решение задачи: «Удаление повторяющихся значений из массива»
textual
Листинг программы
Function PressArr(S() As String) As String() Dim Res() As String n% = UBound(S, 1) ReDim Res(1 To n%) As String Res(1) = S(1) j% = 1 For i% = 2 To n% tmp$ = S(i) k% = 0 For l% = 1 To j% If tmp$ = Res(l%) Then k% = -1 Exit For End If Next l% If k% = 0 Then j% = j% + 1 Res(j%) = tmp$ End If Next i% ReDim Preserve Res(1 To j%) As String PressArr = Res End Function Sub Test() Dim Q(1 To 5) As String Dim R() As String Q(1) = "GGG" Q(2) = "kkk" Q(3) = "111" Q(4) = "GGG" Q(5) = "111" R = PressArr(Q) For i% = 1 To UBound(R, 1) Debug.Print R(i%) Next i% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д