Separar Texto Em Linhas

[Guest Pyke]

Tenho um arquivo txt composto por milhares de caracteres continuos sem formatação nenhuma. Mas a cada 23 caracterestermina um registro e começa outro.

Eu gostaria de montar um código que, a cada 23 caracteres pulasse uma linha, criando uma formatação no txt, com todos os registros. Como eu posso fazer?

Desde já agradeço!

Exemplo

txt original:

00000000000000000000000111111111111111111111112222222222222222222222233333333333333333333333444444444444444444444444444444445555555555555

txt final:

00000000000000000000000

11111111111111111111111

22222222222222222222222

33333333333333333333333

44444444444444444444444

55555555555555555555555

[Graymalkin]

Seria assim:

    Dim registro As String * 23
    n = FreeFile()
    Open "c:\origem.txt" For Random As #n Len = 23
    m = FreeFile()
    Open "c:\destino.txt" For Output As #m
    Do While Not EOF(n)
        Get #n, , registro
        Print #m, registro
    Loop
    Close #n
    Close #m

Basta substituir os caminhos dos respectivos arquivos.

Abraços,

Graymalkin

[Guest Pyke]

muito obrigado!