(RESOLVIDO) Qual a Menor Data?

[Douglas Soares]

Olá pessoal, tenho um programa que envia arquivos de backup para um ftp, e o nome deses arquivos são sempre a data do dia + backup.zip, então o limite de backups é 2 que podem estar no ftp, dai eu pretendo fazer o seguinte:

Quando tiver 2 backups já eu vo carregar o terceiro, e dps eu mando pra um listbox todos os arquivos no diretorio fdp, em seguida eu queria saber qual desses 3 arquivos tem a menor data no nome do arquivo.... sabendo disse eu irei deletar do ftp e boa... ehehee, por favor me deem uma luz!

Abraços

Editado Agosto 3, 2009 por Douglas_Soares

[Douglas Soares]

ae já consegui!, mandei pro listbox dai la eu dei sorted = true, ele organizou, dai eu peguei e fiz assim:

if listbox1.items.count > 2 then

idftp1.delete(listbox1.items.strings[0]);

dai deu certinho, eheheh obrigado !

[Douglas Soares]

Pessoal por favor me ajudem, como virou o mes, fui fazer o backup, porem ele da erro, porque ele vai no site e emvez de deletar o que tem a menor data, deleta o arquivo que acabei de enviar, pois o arquivo que enviei se chama, backup01082009.zip, e os outros 2 arquivos que estavão no ar se chamam, backup28072009.zip e backup27072009.zip, dai quando o listbox deu o sorted = true, ele orgazinou por nome, e não pela data...... por favor alguém me ajuda organizar esse listbox por data!!!!, mt obrigado!

[Jhonas]

Pessoal por favor me ajudem, como virou o mes, fui fazer o backup, porem ele da erro, porque ele vai no site e emvez de deletar o que tem a menor data, deleta o arquivo que acabei de enviar, pois o arquivo que enviei se chama, backup01082009.zip, e os outros 2 arquivos que estavão no ar se chamam, backup28072009.zip e backup27072009.zip, dai quando o listbox deu o sorted = true, ele orgazinou por nome, e não pela data...... por favor alguém me ajuda organizar esse listbox por data!!!!, mt obrigado!

vou te passar a lógica do negocio

1 - criar um array de string

2 - retirar a parte numeria da string ( backup01082009.zip => 01082009 )

3 - inserir as barras nesta string para virarem datas validas ( 01/08/2009 )

4 - ordenar o array de datas ( tipo strings )

5 - montar novamente o ListBox com a nova sequencia ordenada dos arrays tirando as barras e vontando a string original

exemplo:

leitura dos itens jogados no array :

backup28072009.zip

backup27072009.zip

backup01082009.zip

dentro do array :

28/07/2009

27/07/2009

01/08/2009

ordenado e inserido a parte faltante da string:

backup01082009.zip

backup28072009.zip

backup27072009.zip

Veja se consegue fazer

abraço

[Daniel Sanches]

uma dica:

sempre que quiser ordenar datas, para facilitar, utilize o formato aaaammdd, assim, não precisa ficar convertendo para classificar...

abraços !!!

[Douglas Soares]

Vlw Jhonas vou tentar fazer isso... ehehe... é meu primeiro array.... mas você deu o caminho das pedras... espero conseguir.....

e você daniel vlw tambem pela resposta, mas não posso mudar o nome pois o sistema já tem esse nome no backup faz uns 5 anos ou mais, e eu não posso mudar de uma hora pra outra... eheheh eu trabalho aqui.... num posso fazer tudo que queria, rsrsrs.

Abraços

___________________________________________________________________________

editando....

buaaaaa, descobri que num sei faze array, hauhuhahua, se alguém puder me ajudar, disculpem pela minha ignorancia... eu so amador nisso, ehehheeh

Abraços

Editado Agosto 3, 2009 por Douglas_Soares

[Jhonas]

buaaaaa, descobri que num sei faze array, hauhuhahua, se alguém puder me ajudar, disculpem pela minha ignorancia... eu so amador nisso, ehehheeh

Já imaginava que voce não ia conseguir .... vou te dar uma colher de chá ... não uma de sopa ...não melhor uma de pegar feijão ..rs

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  datas: array of string; //vetor de string

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  valor, s: string;
  indice: Integer;
  ok: Boolean;
begin
  //aloca espaço para os itens no vetor
  SetLength(datas,ListBox1.Items.Count);

  // retira parte da string e converte para data
  for i := 0 to ListBox1.Items.Count -1 do
    begin
       s := copy(ListBox1.Items.Strings[i],7,8);
       insert('/',s,3);
       insert('/',s,6);
       datas[i] := 'backup'+(formatdatetime('dd/mm/yyyy',strtodate(s)))+'.zip';
    end;

  // faz a ordenação
  repeat
    ok := False;
    indice := 0;
    repeat
      if CompareStr(datas[indice], datas[indice + 1]) = 2 then
      begin
        valor := datas[indice];
        datas[indice] := datas[indice + 1];
        datas[indice + 1] := valor;
        ok := True;
      end;
      Inc(indice);
    until(indice > High(datas));
  until(ok = False);
  // fim ordenação

  // exibe o array ordenado no proprio listbox
  ListBox1.Clear;
  for i := Low(datas) to High(datas) do
     begin
        delete(datas[i],9,1);
        delete(datas[i],11,1);
        ListBox1.Items.Append(datas[i]);
     end;
end;

end.

OBS: Procure sempre usar a cabeça para tentar descobrir como fazer ( leia tudo o que puder a respeito e pratique sempre no computador )

abraço

[Douglas Soares]

Vlw jhonas, é mais ou menos isso ai, porem o meu amigão :wub: Churc, conseguiu resolver meu problema!, uhuuuuuuuuuu

Abraços!