Duplicación de datos con ArrayList

[hades0024]

Hola buenas comunidad, tengo un problema que no se como solucionar, se trata de guardar dos arrayList en otro.

- el primero tiene todos los registros.
- el segundo tiene registros modificados.
- el tercero es el que guarda todos los registros y reemplaza a los registros modificados.

acá parte del codigo.

Código:

Dim cont As Integer = 1
        For Each Me.listOline In recibeArray
            For Each Me.oLine In oTexto
                split = listOline.Split(";")
                For i = 0 To split.Length - 1
                    If (i) = (6) Then
                        If oLine.IndexOf(split(i)) >= 0 Then
                            reciveArr.Add(listOline)

                        Else
                            reciveArr.Add(oLine)
                        End if
                   End If
                Next
            Next
        Next

       For Each Me.oLine In reciveArr
            oSW.WriteLine(oLine)
        Next

        oSW.Close()

-La primera vuelta guarda bien el primer registro, pero después se empieza a duplicar los registros, por el numero de registros que estén modificados.

el ultimo for each lo recorreria cuando este este bien y exportaria a un .csv

AYUDA.. POR FAVOR.
GRACIAS.

[javidotnet]

Hola hades0024, para resolver este código, primero hay que saber qué función cumplen las siguientes variables:
listOline
recibeArray
oLine
oTexto
reciveArr

[Malenko]

Para hacerlo de una forma optima se tendría que saber que tipo de datos tiene la lista, si se pueden repetir valores,etc. Y en base a eso mirar de usar un tipo de datos indexado como un Dictionary o un HashSet.

[hades0024]

Hola buenas, bueno el mes pasado resolví el problema y voy a dejar la solución por si a alguien mas le sirve.

lo que hice fue sobre escribir la linea que quería, en el arreglo (eso lo hice con los punteros, no se si habrá una solución mas correcta pero lo hice con contadores, cada ves que encontraban la linea me guardaba el numero y lo recorría otro arreglo idéntico al original, que tenia un contador igual cuando lo encontraba sobre escribía la linea, y después con el arreglo listo, lo exportaba a un .csv)

Código HTML:

Dim ncont As Integer
        capOline = capOline + ComboBox1.SelectedItem.ToString
        For Each Me.oLine In oTexto
            If co = ncont Then
                arr.Item(co) = capOline
            End If
            ncont = ncont + 1
        Next
        co = 0
        ncont = 0
        MsgBox("Guardado")
        capOline = ""
        TextBox1.Text = ""
        TextBox1.Focus()
        TextBox2.Text = ""
        ComboBox1.SelectedIndex = 0