Unique Values

[Old Man]

I have a file with a listing of registry keys. What I would like to do is to sort the list alphabetically and then somehow extract just the unique values(keys).

The first list:
fish
clams
turkey
fish
fish

The final list:
clams
fish
turkey

Any help is welcome - I'm experencing a brain fart!!

OldMan

[dimava]

The first list:
fish
clams
turkey
fish
fish

The final list:
clams
fish
turkey

'put this in the decleration section of your form
Dim IntFish as integer
Dim IntClams as integer
Dim Int Fish as integer


'put this into the function thing
list1.list = IntClams & IntFish & IntTurkey


'I hope that this helps as integer

[ycsim]

you can try this

Option Explicit

Private Sub Command1_Click()
Dim x() As String
Dim i As Integer
Dim j As Integer
Dim temp As String
Erase x
ReDim x(0 To List1.ListCount - 1)
For i = 0 To List1.ListCount - 1 Step 1
    x(i) = List1.List(i)
Next i
'Sort the list
For i = 0 To UBound(x) Step 1
    For j = i To UBound(x) Step 1
        If CompareString(x(i), x(j)) Then
            temp = x(i)
            x(i) = x(j)
            x(j) = temp
        End If
    Next j
Next i
'Get Unique Items
List1.Clear
For i = 0 To UBound(x) Step 1
    temp = x(i)
    For j = 0 To List1.ListCount - 1 Step 1
        If x(i) = List1.List(j) Then temp = Empty
    Next j
    If temp <> Empty Then List1.AddItem temp
Next i
End Sub

Private Function CompareString(Str1 As String, Str2 As String) As Boolean
Dim i As Integer
For i = 1 To Len(Str1) Step 1
    If Asc(Mid(Str1, i, 1)) > Asc(Mid(Str2, i, 1)) Then
        CompareString = True
        Exit Function
    ElseIf Asc(Mid(Str1, i, 1)) < Asc(Mid(Str2, i, 1)) Then
        CompareString = False
        Exit Function
    End If
Next i
End Function

Private Sub Form_Load()
List1.AddItem "fish"
List1.AddItem "clams"
List1.AddItem "turkey"
List1.AddItem "fish"
List1.AddItem "fish"
End Sub

I use ListViews in REPORT view a lot for this sort (sic) of thing.
for each name you have, you can do a FINDITEM on a listview, if the finditem fails (doesnt exist already) then add it the the listview. [ TRIM your input names first!]
If you have SORT= true then the list is sorted also
Also you can very quickly see the results Visible=true
which is VERY useful for debug!