como guardar datos en una matriz desde un archivo csv

[hades0024]

Hola buenas.
estoy haciendo una app para una pocket, el problema es que e intentado guardar los datos del .csv en una matriz pero no me resulta, lo tengo que hacer asi para que no se demore en procesar cuando busco por cod. Aca una parte del codigo.

Public objR As New StreamReader("\archivo.csv")
Public oLine As String = ""
Public oTexto As New ArrayList()
Public split() As String
Public separ As String = ";"

Do
oLine = objR.ReadLine
split = oLine.Split(";")

If Not oLine Is Nothing Then
For i = 0 To split.Length - 1
If TextBox1.Text = split(i) Then
'MsgBox("Se encuentra el codigo" & vbCrLf & split(i) & vbCrLf & i)
TextBox2.Text = (oLine)
End If
'MsgBox(split(i) & vbCrLf & i)
Next
End If
oTexto.Add(oLine)
Loop Until oLine Is Nothing
MsgBox("No se encontro el cod")



Ayuda..

[javidotnet]

Hola hades0024, el código se ve correctamente y debería funcionar, salvo unos pequeños detalles sin importancia casi: la línea del Split = oLine.Split(";") que debe ir dentro del If, y también habría que agregarle un if para que el último MsgBox no se muestre en caso de haber encontrado el dato:

Código vb.net:

Public objR As New StreamReader("\archivo.csv")
Public oLine As String = ""
Public oTexto As New ArrayList()
Public split() As String
Public separ As String = ";"
 
Private Encontro as Boolean
 
Do
    oLine = objR.ReadLine
 
    If Not oLine Is Nothing Then
        split = oLine.Split(";")
        For i = 0 To split.Length - 1
            If TextBox1.Text = split(i) Then
                Encontro = True
                'MsgBox("Se encuentra el codigo" & vbCrLf & split(i) & vbCrLf & i)
                TextBox2.Text = (oLine)
            End If
            'MsgBox(split(i) & vbCrLf & i)
        Next
    End If
 
    oTexto.Add(oLine)
Loop Until oLine Is Nothing
If Not Encontro Then
    MsgBox("No se encontro el cod")
End If
 

Otra cosa que hay que ver es si se debe seguir buscando luego de haber encontrado una ocurrencia, o se puede parar la búsqueda con Exit Do.
Ahora bien, existe otra manera más resumida y más veloz de lograr lo mismo sin usar el Split, pero habría que ver si se puede aplicar a tu caso, ya que no es una fórmula general y depende de los datos:

Código vb.net:

Public objR As New StreamReader("\archivo.csv")
Public oLine As String = ""
Public oTexto As New ArrayList()
Public split() As String
Public separ As String = ";"
 
Private Encontro as Boolean
 
Do
    oLine = objR.ReadLine
 
    If Not oLine Is Nothing Then
        If oLine.IndexOf(TextBox1.Text) >= 0 Then
            Encontro = True
            TextBox2.Text = (oLine)
        End If
    End If
 
    oTexto.Add(oLine)
Loop Until oLine Is Nothing
If Not Encontro Then
    MsgBox("No se encontro el cod")
End If
 

¡Saludos cordiales desde Argentina!

[hades0024]

Ok. muchas gracias por responder, la verdad tuve que mejorar el cod. para poder buscar por 'codigo', porque se demoraba mucho en buscar por ej. el ultimo (el .csv es grande)

adjunto parte de lo que hice.

Código vb:

Public objR As New StreamReader("\archivo.csv")
    Public oLine As String = ""
    Public oTexto As New ArrayList()
    Public split() As String
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Do
            oLine = objR.ReadLine
            If Not oLine Is Nothing Then
                oTexto.Add(oLine)
            End If
        Loop Until oLine Is Nothing
        objR.Close()
    End Sub
 
<BOTON>
 
Dim bool As Boolean = False
        For Each Me.oLine In oTexto
            split = oLine.Split(";")
            If Not oLine Is Nothing Then
                For i = 0 To split.Length - 1
                    If split(i) = split(Nº_columna_codigo) Then
                        If TextBox1.Text = split(i) Then
                            If TextBox1.Text <> "" Then
                                bool = True
                                TextBox2.Text = ("Se encuentra el código")
                             End If
                        End If
                    End If
                Next
            End If
        Next
        If Not bool Then
            MsgBox("No se encontro el código")
        End If
        oTexto.Add(oLine)
 

[hades0024]

Tenia una consulta mas que hacerte, por favor si me pudieses ayudar, ahora tengo que crear un boton que si me encuentra el cod lo aprete y se cree una columna que le ponga ok (al lado de esa fila).
Se que se puede editar con streamwriter, pero no se como, de ante mano gracias por responder javidotnet

Saludos!!!

[javidotnet]

Tenia una consulta mas que hacerte, por favor si me pudieses ayudar, ahora tengo que crear un boton que si me encuentra el cod lo aprete y se cree una columna que le ponga ok (al lado de esa fila).
Se que se puede editar con streamwriter, pero no se como, de ante mano gracias por responder javidotnet

Claro que sí, con mucho gusto, pero antes tenés que aclararme unos detalles que no logro entender:

1) a qué te referís con "columna" y con "ok (al lado de esa fila)"
2) ¿por qué querés usar streamWriter?

¡Saludos cordiales desde Argentina!... con la atención puesta en Brasil !!!

[hades0024]

-Hola buenas gracias por contestar tan rápido.

Mira tengo un form1 que tiene un botón que valida, si existe el código de barra, trae los datos que están relacionados con la fila, cuando tengo esos datos, el usuario se fija si el código corresponde al departamento (este botón esta listo).

-si corresponde el código al departamento, tengo otro botón en ese form1 que se llama "ok", al apretarlo debería crearse una columna adicional que guarde un string "ok" al lado de ese código (fila).

- si esta el código pero no corresponde al departamento, tengo otro botón que sirve para editar (me lleva a otro form), en este form2 traigo la descripción de ese código, tengo un combobox que tengo que llenar con la columna de departamento(este es otro .csv que tiene el código de departamento con su descripción), el usuario elige el departamento correcto y al guardar con otro botón debería guardarse en esa misma columna correspondiente a su fila (la descripción de departamento).

- la idea es hacer otro .csv igual al original pero con una columna adicional que tenga "ok" o "Nº de departamento".

- StreamWriter por lo que e leído sirve para escribir un .csv

- De ante mano gracias por responder.

- Saludos cordiales igual, y esperando que empiece el mundial mañana. :D