none
Formatar arquivo TXT com delimitador $ RRS feed

  • Discussão Geral

  • Olá, galera

    Estou querendo converter um arquivo com delimitação fixa para um com delimitador ($) mas só consigo cortar adicionando o conteúdo à uma variável, sendo que os arquivos tem MUITAS linhas e além disso, quero que adicione dois conteúdos de variáveis no final de cada linha para inserir no BD. Por exemplo:

    11:54:15 ACUCC1MCP7GPS             AÇUCC17     Falha Sincronização Tempo       Normal                                        [1 ADV]

    Quero que o arquivo fique exatamente nessa forma:

    11:54:15$ACUCC1MCP7GPS$AÇUCC17$Falha Sincronização Tempo$Normal$[1 ADV]$SP%São Paulo
    Veja a adição de SP e São Paulo ali. Não é uma constante, é o conteúdo da variável que será adicionado. UF e Cidade, respectivamente. Alguém poderia me citar exemplos de algoritmos que percorra cada linha do arquivo TXT, formate e adicione no final de cada linha ou algo parecido? Obrigado.

    quinta-feira, 7 de julho de 2016 20:10

Todas as Respostas

  • Oi amigo boa noite, bom vc pode usar Split.

    Codigo usado.

    Public Class Form1
    'coded by pjoao
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim s As String = "11:54:15 ACUCC1MCP7GPS             AÇUCC17     Falha Sincronização Tempo       Normal                                        [1 ADV]"
            Dim pegar() As String = Split(s, " ")
    
            MsgBox(pegar(0) & "$" & pegar(1) & "$" & pegar(14) & "$" & pegar(19) & " " & pegar(20) & " " & pegar(21) & "$" & pegar(28) & "$" & pegar(68) & pegar(69) & "$SP%São Paulo")
            End
        End Sub
    End Class
    

    Foto do funcionamento.

    sexta-feira, 8 de julho de 2016 02:40
  • Oi amigo boa noite, bom vc pode usar Split.

    Codigo usado.

    Public Class Form1
    'coded by pjoao
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim s As String = "11:54:15 ACUCC1MCP7GPS             AÇUCC17     Falha Sincronização Tempo       Normal                                        [1 ADV]"
            Dim pegar() As String = Split(s, " ")
    
            MsgBox(pegar(0) & "$" & pegar(1) & "$" & pegar(14) & "$" & pegar(19) & " " & pegar(20) & " " & pegar(21) & "$" & pegar(28) & "$" & pegar(68) & pegar(69) & "$SP%São Paulo")
            End
        End Sub
    End Class

    Foto do funcionamento.

    Sim, obrigado. Desculpa digitar errado. No fim é "$SP$São Paulo" e não "$SP%São Paulo" São duas colunas, só que quero que fique o valor da variável ai no caso vc digitou logo "$SP$São Paulo", é só eu colocar a variável que ficará no arquivo o valor dela? Também tem que percorrer todas as linhas do arquivo txt e nao somente uma... Obrigado


    sexta-feira, 8 de julho de 2016 10:36
  • De nada bom uso do codigo.
    sexta-feira, 8 de julho de 2016 22:37