Fórum Importar dados de arquivo texto #370319

function CopiaStr(Texto: String; Posicao: Integer; Ocorrencia: String): String;
var
  I : Integer;

begin
  Result := ´´;
  I :=  0;

  while (Pos(Ocorrencia, Texto) > 0) do
  begin
    Result := Copy(Texto, 0, Pos(Ocorrencia, Texto)-1);
    Delete(Texto, 1, Pos(Ocorrencia, Texto)+ Length(Ocorrencia) -1);
    Inc(I);
    if (I = Posicao) then
      Exit;

    Result := Texto;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  S: TStringList;
  I: Integer;

begin
  S := TStringList.Create;
  try
    S.LoadFromFile(´Arquivo.txt´);

    for I := 0 to S.Count -1 do
      { sdsInsert é o componente utilizado para executar querys no banco de dados
        isso irá depender da sua estrutura. eu utilizo o SQLClientDataSet, mas ele é
        DBExpress. esse componente terá de estar devidamente configurado e com uma
        query da seguinte maneira: insert into TABELA (CAMPO1, CAMPO2, CAMPO3) values (:NOME, :EMAIL, :CAMPO3) }
      with sdsInsert do
      begin
        Close;
        Params.ParamByName(´NOME´).Value  := CopiaStr(S[I], 1, ´;´);
        Params.ParamByName(´EMAIL´).Value := CopiaStr(S[I], 2, ´;´);
        {...}
        Params.ParamByName(´N-EZIMO_PARAMETRO´).Value := CopiaStr(S[I], N, ´;´);

        ExecSQL;
      end;

  finally
    S.Free;
  end;
end;