Удаление повторяющихся значений из массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы