EXPORTAR PARA TXT

 Tópico anterior Próximo tópico Novo tópico

EXPORTAR PARA TXT

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#498081 - 08/09/2021 20:40:07

IGADINO
PALMAS
Cadast. em:Junho/2020


Boa Noite alguém pode me um help para alinha exporta só que não estou conseguindo
fazer o alinhamento das colunas com valores para direita  

Public Sub Exportar()
        Dim sfg As New SaveFileDialog
        sfg.FileName = ''
        sfg.Filter = 'Txt|*.txt'
        sfg.Title = ' Salvar/Exportar'
        If sfg.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim columnSizes As List(Of Integer) = New List(Of Integer)()
            For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1
                columnSizes.Add(FrmCadastroProdutos.dgvProdutos.Columns(i).HeaderText.Length)
            Next
            For Each row As DataGridViewRow In FrmCadastroProdutos.dgvProdutos.Rows
                For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1
                    Dim valueString As String = Convert.ToString(row.Cells(i).Value)
                    If valueString.Length > columnSizes(i) Then columnSizes(i) = valueString.Length
                Next
            Next
            Using writer As StreamWriter = New StreamWriter(sfg.FileName, False)
                For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1
                    Dim headerText As String = FrmCadastroProdutos.dgvProdutos.Columns(i).HeaderText
                    writer.Write(headerText)
                    If headerText.Length < columnSizes(i) Then writer.Write(New String(' 'c, columnSizes(i) - headerText.Length))
                    writer.Write('|')
                Next
                writer.WriteLine('')
                writer.WriteLine('===========================================================================================================================')
                For Each row As DataGridViewRow In FrmCadastroProdutos.dgvProdutos.Rows
                    For i As Integer = 0 To FrmCadastroProdutos.dgvProdutos.Columns.Count - 1
                        Dim valueString As String = Convert.ToString(row.Cells(i).Value)
                        writer.Write(valueString)
                        If valueString.Length < columnSizes(i) Then writer.Write(New String(' 'c, columnSizes(i) - valueString.Length))
                        writer.Write('|')
                    Next
                    writer.WriteLine('')
                    writer.WriteLine('---------------------------------------------------------------------------------------------------------------------------')
                Next
            End Using
        End If
    End Sub



#498082 - 08/09/2021 20:56:22

IGADINO
PALMAS
Cadast. em:Junho/2020


Última edição em 08/09/2021 20:58:21 por IGADINO

 Anexos estao visíveis somente para usuários registrados

Olha como ficou os campo com valores não estou conseguindo alinha a direita




 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário