[VB6] Confronto tra un elemento ed elementi di una listbox ed incremento di indice

[zorro77]

Salve a tutti
ho un elemento che devo inserire in una listbox, dove sono presenti altri elementi. Ogni elemento in lista, distinto dagli altri, ha alla fine del nome un indice che parte da 1.
Se l'elemento che devo inserire è già presente in lista, viene inserito con l'indice incrementato di uno. Se c'è un indice mancante tra due elementi uguali in lista, allora l' elemento che inserisco tende ad avere come priorità il primo indice mancante.

Al momento ho pensta di scrivere così per ricercare gli indici dell'elemento già presente in lista che voglio inserire

Dim fileIns As String
fileIns = Left(getFileName(frmName, bio), 23)

If fileList.ListCount > 0 Then
        Dim I As Integer
        
        For I = 0 To fileList.ListCount - 1
            Dim fileL As String
            fileL = (Left(fileList.List(I), 23))
            
            If fileIns = fileL Then
                Dim j As Integer
                For j = 0 To 8
                    If v(j) = "" Then
                        v(j) = Right(fileList.List(I), 1) 'metto l'indice in un vettore
                        Exit For
                    End If
                Next j
            End If
        Next I    
    
    Else: Index = "1"
    End If

ora come posso fare per andarmi a recuperare nel vettore il primo indice libero e assegnarlo all'elemento che sto inserendo?

[alka]

Quale linguaggio? VB6 o VB.NET?

[zorro77]

VB6.. credevo di averlo scritto
Cmq problema risolto

[alka]

Originariamente inviato da zorro77
VB6.. credevo di averlo scritto

E' possibile, anzi molto probabile, che tu l'abbia scritto veramente, ma che sia andato perduto.
Ci sono lavori in corso sul forum...