Formatar arquivo TXT com delimitador $

Question

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.

Answer 1

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.

Answer 2

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

Answer 3

De nada bom uso do codigo.