[Resolvido]Formatação e tratamento de números e Caracteres.

Olá Galera!

Novamente Uma duvida cruel em minha vida kkkk

bem tenho uma lista enorme em .txt dessa forma:

622005300001300000558MAQUINA DESINSELADEIRA PORTATIL ELETRICA SOBRE RODAS PORTATIL
622005300001300000566MAQUINA DESINSELADEIRA MESCLADORA PORTATIL C/TRATOR
432978520001030000620TEAR CIRCULAR

Preciso transformar está lista para:

62.200.530/0001-30 000.055-8 MAQUINA DESINSELADEIRA PORTATIL ELETRICA SOBRE RODAS PORTATIL
62.200.530/0001-30 000.056-6 MAQUINA DESINSELADEIRA MESCLADORA PORTATIL C/TRATOR
43.297.852/0001-03 000.062-0 TEAR CIRCULAR

Bem Joguei a lista no word e tentei usar o localizar e substituir

coloquei para localizar 0001 e substituir por /0001
depois localiza /0001 e substituir por /0001-

então depois disso eu não consegui mais nada, mesmo usando caracteres especiais.

Será que alguém tem uma solução?

o campo da tabela está em formato texto? Se sim tente essa máscara  00\-000\.000/0000\-00\ 000\.000\-0;0;_ na tabela.

não deu certo

ele só alinhou o números e texto para lado direito

Olá!

Segue exemplo de uma função para o seu caso:

Public Function fncRemonta(strSeq As String) As String
Dim p(9) As String
Dim NumSeq$
NumSeq = Left(strSeq, 21)
p(0) = Left(NumSeq, 2)
p(1) = Mid(NumSeq, 3, 3)
p(2) = Mid(NumSeq, 6, 3)
p(3) = Mid(NumSeq, 9, 4)
p(4) = Mid(NumSeq, 13, 2)
p(5) = Mid(NumSeq, 15, 3)
p(6) = Mid(NumSeq, 18, 3)
p(7) = Mid(NumSeq, 21, 1)
p(8 ) = Mid(strSeq, Len(NumSeq) + 1)
NumSeq = p(0) & String(1, ".") & p(1) & String(1, ".") & p(2) & String(1, "/") & p(3)
NumSeq = NumSeq & String(1, "-") & p(4) & String(1, " ") & p(5) & String(1, ".") & p(6)
NumSeq = NumSeq & String(1, "-") & p(7) & String(1, " ") & p(8 )
fncRemonta = NumSeq
End Function

Basta usar a função para remontar a linha

Nova Linha = fncRemonta("432978520001030000620TEAR CIRCULAR")

Sucesso!