EXPORTAR DATOS DE UN DATAGRIDVIEW A TXT

'CÓDIGO DENTRO DEL BUTTON:

Dim DELIMITADOR As String = “-”

' RUTA DEL FICHERO DE TEXTO

Dim ARCHIVO_CSV As String = “D:\REPORTE.TXT”

Try

'NUEVO OBJETO STREAMWRITER, PARA ACCEDER AL FICHERO Y PODER GUARDAR LAS LÍNEAS

Using ARCHIVO As STREAMWRITER = New STREAMWRITER(ARCHIVO_CSV)

' VARIABLE PARA ALMACENAR LA LÍNEA ACTUAL DEL DATAVIEW

Dim LINEA As String = String.Empty

With GRID

' RECORRER LAS FILAS DEL DATAGRIDVIEW

For FILA As Integer = 0 To .ROWCOUNT - 1

' VACIAR LA LÍNEA

LINEA = String.EMPTY

' RECORRER LA CANTIDAD DE COLUMNAS QUE CONTIENE EL DATAGRIDVIEW

For COL As Integer = 0 To .COLUMNS.COUNT - 1

' ALMACENAR EL VALOR DE TODA LA FILA , Y CADA CAMPO SEPARADO POR EL DELIMITADOR

LINEA = LINEA & .ITEM(COL, FILA).VALUE.TOSTRING & DELIMITADOR

Next

' ESCRIBIR UNA LÍNEA CON EL MÉTODO WRITELINE

With ARCHIVO

' ELIMINAR EL ÚLTIMO CARACTER ";" DE LA CADENA

LINEA = LINEA.REMOVE(LINEA.LENGTH - 1).TOSTRING

' ESCRIBIR LA FILA

.WRITELINE(LINEA.TOSTRING)

End With

Next

End With

End Using

' ABRIR CON PROCESS.START EL ARCHIVO DE TEXTO

PROCESS.START(ARCHIVO_CSV)

'ERROR

Catch EX As Exception

MSGBOX(EX.MESSAGE.TOSTRING, MSGBOXSTYLE.CRITICAL)

End Try

'''''OTRA FORMA DE EXPORTAR DATAGRIDVIEW A TXT

Dim sFile As String = "C:\LV-Reporte.TXT"

Dim _Line As String = Nothing

Try

If File.Exists(sFile) = True Then 'Si el archivo existe, lo elimina antes5

My.Computer.FileSystem.DeleteFile(sFile, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently, FileIO.UICancelOption.DoNothing)

End If

Dim swFile As StreamWriter = New StreamWriter(sFile)

With Grid 'Grid es el nombre de mi DataGridView11.            

For i = 0 To .RowCount - 1

_Line = .Rows(i).Cells(0).Value & vbTab &

        .Rows(i).Cells(1).Value & vbTab &

        .Rows(i).Cells(2).Value & vbTab &

        .Rows(i).Cells(3).Value & vbTab &

        .Rows(i).Cells(4).Value & vbTab &

        .Rows(i).Cells(5).Value & vbTab

swFile.WriteLine(_Line)

Next

End With

swFile.Close()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try