For Each Em Arquivos

[Andersonjb]

E ai pessoal, olhem o seguinte código:

        Dim dt As New DataTable
        Dim texto As String
        Dim gravar As IO.StreamWriter

        gravar = IO.File.CreateText("C:\Tabela.tbl")

        dt = dgtabela.DataSource

        For Each linha As DataRow In dt.Rows
            For Each coluna As DataColumn In dt.Columns
                If linha(coluna) <> "" Then
                    texto = linha(coluna)
                    MsgBox(texto)
                    gravar.WriteLine(texto)
                End If
            Next
        Next
        gravar.Close()

Bem, meu objetivo com o For Each e retirar o texto da data Table e gravar em um arquivo comum. Só que o problema e que assim, digamos que eu tenha esses quatro caracteres:

a b c d

Bem, na hora da gravação, ou do laç, tanto faz, eu so condigo retirar esses caracteres:

a b c

Ou seja, eu não consigo retirar o ultimo caracter para gravação. Porque isso? Aonde eu estou errando, e na condição do if?

[Graymalkin]

Tem certeza de que não existe algum chr(0) entre os caracteres? Porque você está criando um arquivo texto e acho que este tipo de caracter iria interromper a gravação. Bom, é só um palpite.

Abraços,

Graymalkin

[Andersonjb]

Bem, o que seria um chr(0), um espaço em branco ?

[Graymalkin]

Bem, o que seria um chr(0), um espaço em branco ?

Não, é um caracter cujo código ASCII/ANSI é 0. O espaço em branco é o 32.

Abraços,

Graymalkin

[Andersonjb]

há, mas não existe essa possibilidade, já que eu estou colocando apenas as letras a,b,c, certo?

[Graymalkin]

há, mas não existe essa possibilidade, já que eu estou colocando apenas as letras a,b,c, certo?

Sim, então não existe essa possibilidade. Mas, pensei em outra coisa. A DataGrid só tem mesmo as colunas da DataTable? Ou seja, você não estaria acrescentando manualmente uma coluna na DataGrid, fora as existentes na DataTable?

Graymalkin

[Andersonjb]

Não, não estou, estou ate escrevendo tudo na mesma linha na DataGrid...

[Graymalkin]

Não, não estou, estou ate escrevendo tudo na mesma linha na DataGrid...

Mesmo assim, você escreveria tudo na mesma linha, porém a última coluna só estaria presente na DataGrid e não na DataTable.

Como você preenche a DataGrid? Você só cria uma DataTable e referencia ela na propriedade DataSource da DataGrid?

Abraços,

Graymalkin

[Andersonjb]

Eu preencho normalmente, vou la e digito os dados nela, e depois faço referencia a ela como voce falou, dessa maneira:

dt = dgtabela.DataSource

[Andersonjb]

Gray, olha so que curioso, da uma olhadinha nesse código:

        Dim dt As New DataTable
        Dim linha As DataRow
        Dim coluna As DataColumn
        Dim texto As String

        dt = dgtabela.DataSource

        For Each linha In dt.Rows
            For Each coluna In dt.Columns
                texto = linha(coluna)
                If texto <> "" Then
                    MsgBox("ui")
                End If
            Next
        Next

Bem, se voce analisar, se tiver algum texto na DataGrid, ele vai mostrar a MessageBox, correto? ERRADO! Esperimente colocar somente uma letra na DataGrid, ele não vai mostrar a MessageBox, mas se você colocar duas, ele mostra. Curioso, não? Sera a condição, erro do compilador? Voce tem alguma ideia? Muito curioso isso...

[Graymalkin]

Gray, olha so que curioso, da uma olhadinha nesse código:

        Dim dt As New DataTable
        Dim linha As DataRow
        Dim coluna As DataColumn
        Dim texto As String

        dt = dgtabela.DataSource

        For Each linha In dt.Rows
            For Each coluna In dt.Columns
                texto = linha(coluna)
                If texto <> "" Then
                    MsgBox("ui")
                End If
            Next
        Next

Bem, se voce analisar, se tiver algum texto na DataGrid, ele vai mostrar a MessageBox, correto? ERRADO! Esperimente colocar somente uma letra na DataGrid, ele não vai mostrar a MessageBox, mas se você colocar duas, ele mostra. Curioso, não? Sera a condição, erro do compilador? Voce tem alguma ideia? Muito curioso isso...

Fiz esse teste aqui e funcionou perfeitamente. Você está utilizando isso em algum evento da própria DataGrid?

Abraços,

Graymalkin

[Andersonjb]

Não, estou usando no Procedimento do Botão do Menu, normalmente. Aonde voce testou, em um botão normal?

[Graymalkin]

Não, estou usando no Procedimento do Botão do Menu, normalmente. Aonde voce testou, em um botão normal?

Sim, foi em um botão normal. E deu certo.

Abraços,

Graymalkin

[Andersonjb]

Engraçado, em um botão funciona, mas em um MainMenu não ! Porque será?

[Graymalkin]

Engraçado, em um botão funciona, mas em um MainMenu não ! Porque será?

Você não está executando isso imediatamente após digitar o último caracter está? Pode ser que entre a seleção da opção no menu e o fim da digitação na célula não esteja ocorrendo a atualização da DataTable.

Abraços,

Graymalkin

[Andersonjb]

Sim, estou fazendo isto!

[Graymalkin]

Você está finalizando a edição (com um Enter) na última célula antes de escolher a opção?

Abraços,

Graymalkin