Bom dia
REcebo um arquivo em txt como segue abaixo:

11 primeiro registro
21 textotextotextotexto
 1 textotextotextotextotextotextotextotextotextotextotextotexto
 1 textotextotextotextotextotextotextotexto
 1 textotextotextotexto
31 textotextotextotextotextotextotextotexto
 1 textotextotextotexto
 1 textotextotextotexto
41 textotextotextotextotextotextotextotexto
 1 textotextotextotexto
 1 textotextotextotexto
 1 textotextotextotextotextotextotextotexto
11 segundo registro
21 textotextotextotexto
 1 textotextotextotextotextotextotextotextotextotextotextotexto
 1 textotextotextotextotextotextotextotexto
 1 textotextotextotexto
31 textotextotextotextotextotextotextotexto
 1 textotextotextotexto
 1 textotextotextotexto
41 textotextotextotextotextotextotextotexto
 1 textotextotextotexto
 1 textotextotextotexto
 1 textotextotextotextotextotextotextotexto

como eu faria para que ele ficasse com a seguinte caracteristica no inicio das
strings:

11 primeiro registro
21 textotextotextotexto
21 textotextotextotextotextotextotextotextotextotextotextotexto
21 textotextotextotextotextotextotextotexto
21 textotextotextotexto
31 textotextotextotextotextotextotextotexto
31 textotextotextotexto
31 textotextotextotexto
41 textotextotextotextotextotextotextotexto
41 textotextotextotexto
41 textotextotextotexto
41 textotextotextotextotextotextotextotexto
11 segundo registro
21 textotextotextotexto
21 textotextotextotextotextotextotextotextotextotextotextotexto
21 textotextotextotextotextotextotextotexto
21 textotextotextotexto
31 textotextotextotextotextotextotextotexto
31 textotextotextotexto
31 textotextotextotexto
41 textotextotextotextotextotextotextotexto
41 textotextotextotexto
41 textotextotextotexto
41 textotextotextotextotextotextotextotexto

agradeço a colaboração
Joao Carlos

 

Ele sempre vem ordenado assim?

sim, vem em ordem crescente no inicial 1 da string (11,21,41) só que quando o campo,por exemplo 21 tem mais que 1 linha entao ele vem como 21,espaçco e 1,espaço e  1, espaço e  1, espaço e  1 e assim por diante com os demais

luiz

 

 

    Dim i As Integer, f As Integer
    Dim x As Integer
   
    Dim Val As String
    Dim StrArquivo As String
   
    f = FreeFile
    Open App.Path & IIf(Right$(App.Path, 1) = "", "", "") & "TEXTO.Txt" For Input As #f
    Do While Not EOF(f)
        Line Input #f, Val
       
        If Mid$(Val, 1, 1) <> " " Then
            x = Mid$(Val, 1, 1)
        End If
        Val = Trim$(x) & Mid$(Val, 2)
        StrArquivo = StrArquivo & Val & vbCrLf
    Loop
    Close #f
      
    f = FreeFile
    Open App.Path & IIf(Right$(App.Path, 1) = "", "", "") & "TEXTO.Txt" For Output As #f
        Print #f, StrArquivo;
    Close #f

valeu....

era isso mesmo que eu precisava...mais uma vez vcs mostraram competencia

parabens e muito obrigado

joao carlos