Fórum Espaços em arquivo CSV #362120

var Arquivo, Palavras: TStringList;
    Linha, NovaLinha: string;
    I, // Laço for para o arquivo
    N, // Qtde registros do arquivo
    Y: Integer; // Posição do ; na linha
begin
  Arquivo   := TStringList.Create;
  Palavras  := TStringList.Create;

  Arquivo.LoadFromFile(´D:\DADOS\ARQUIVO.TXT´);

  N := Arquivo.Count-1;

  Palavras.Delimiter := ´ ´;

  for I := 0 to N do
  begin
    Linha     := Arquivo.Strings[I];
    NovaLinha := ´´;

    repeat
      Y                       := Pos(´;´, Linha);
      Palavras.DelimitedText  := Copy(Linha, 1, Y-1);
      Linha                   := Copy(Linha, Y+1, Length(Linha));
      if Y>0 then
      begin
        NovaLinha := NovaLinha + Format(´¬-´+IntToStr(Y-1)+´s´,[Palavras.DelimitedText])+´;´;
      end;

    until Y = 0;

    Arquivo.Strings[I] := NovaLinha;

  end;

  Arquivo.SaveToFile(´D:\DADOS\ARQUIVO.TXT´);

  Palavras.Free;
  Arquivo.Free;
end;

for I := 0 to N do
    begin
      Linha     := Arquivo.Strings[I] + ´; ´;  // Verifica linha por linha
      NovaLinha := ´´;

      repeat
        Y                       := Pos(´;´, Linha);       //Pega a posição da string + ;
        Palavras.DelimitedText  := Copy(Linha, 1, Y-1);  //Pega palavra antes da virgula
        Linha                   := Copy(Linha, Y+1, Length(Linha));
        if  Y > 0 then            // Verifica quantidade de caracteres por coluna
          begin
           {Formata linha a linha}
            NovaLinha := NovaLinha + Format(´¬-´+IntToStr(Y-1)+´s´,[Palavras.DelimitedText])+´;´;
          end;

      until Y = 0;

      //------------------------------------------------------------------------
      {Exclui ; e espaço no final de cada linha}

       Tam       := length(NovaLinha);
       NovaLinha := Copy(NovaLinha, 1, Tam-1);

      //------------------------------------------------------------------------
      {Adiciona as linhas já formatadas ao array }
       Arquivo.Strings[I] := NovaLinha;