Fórum Tribo Gamer

Bom galera, criei isso pra baixar coisas que só encontrva em blogs mas eles ficavam pedindo pra cadastrar cel, o link tava só invertido.

Pronto galera, fiz as modificações que o ETdr sugeriu, agora qualquer link que botar ele converte.

E adicionei a opção de abrir o link, depois que ele converte é só clicar uma vez no link convertido que ele já vai abrir no navegador. (aqui abre :-X);

Galera, feedback on this crap!
Caso algum link não seja corretamente convertido, posta aqui que vo tentar dar suporte.!!


ChangiLogi
Adicionadas as modificações que o ETdr pediu.
Só clicar no link gerado que ele já abre no navegador.
27/07/10 Adicionada modificação que o Spyblack pediu, o link gerado vai pra area de transferencia.

O código fonte a seguir é muito complicado, tentem não babar...

Código: Selecionar todos

procedure TForm1.Button1Click(Sender: TObject);
var
str0,str1:string;
i,i2,a:integer;
begin
memo2.Clear;
a:=1; str1:=''; i2:=0; //zerando variaveis...
str1:=memo1.Text; //passando o texto do memo1 para a variavel str1
for i:=0 to length(memo1.text)-1 do //laço de 0 até o tamanho do texto -1 faça isso
 begin
 if copy(str1,i,4)='url=' then //se ele chegar na parte do link que aparece url faça isso
  begin
  str1:=copy(str1,i+4,length(str1)); //copiar o resto a partir dali...
  break; //quebra o laço
  end;
 end;
 if copy(str1,1,4)='http' then //condição pra saber se o link tá invertido...
  begin
  memo2.Text:=str1; //caso não ele só joga o link gerado no memo debaixo.
  exit; //sai da procedure.
  end
   else //senão..
   begin
     for i2:=0 to length(str1)-1 do //de 0 até o tamanho do link -1 faça..
       begin
       str0:=str0+copy(str1,length(str1)-i2,a); //copiando o link do fim pro começo... 
       end;
      memo2.Text:=str0; //passando o link 'desinvertido' para o memo 2.
    end;
    memo2.SelectAll; //selecionando todo o texto do memo2
    memo2.CopyToClipboard; //passando pra area de transferencia..
end;

H3rdell escreveu:Muito bom cara, parabéns.

EdnaldoTrajano escreveu:Eloi, tu é o cara! vou pegar esse programa aí!

Marsicano escreveu:O cara ai é o mestre do C#, caramba... nunca pensei em fazer nada assim.

AHEuaheuAHEUaheuAE.

Bastante útil isso ai.

Abraços, Marsicano.

Samus escreveu:Olá pessoal, só para dar mais uma alternativa a vocês: tem um programa chamado "BlogFck", feito pelo nosso amigo Caws.
Postagem oficial do Caws lá no FUT:

Bom galera, criei isso pra baixar coisas que só encontrva em blogs mas eles ficavam pedindo pra cadastrar cel, o link tava só invertido.

Pronto galera, fiz as modificações que o ETdr sugeriu, agora qualquer link que botar ele converte.

E adicionei a opção de abrir o link, depois que ele converte é só clicar uma vez no link convertido que ele já vai abrir no navegador. (aqui abre :-X);

Galera, feedback on this crap!
Caso algum link não seja corretamente convertido, posta aqui que vo tentar dar suporte.!!


ChangiLogi
Adicionadas as modificações que o ETdr pediu.
Só clicar no link gerado que ele já abre no navegador.
27/07/10 Adicionada modificação que o Spyblack pediu, o link gerado vai pra area de transferencia.

O código fonte a seguir é muito complicado, tentem não babar...

Código: Selecionar todos

procedure TForm1.Button1Click(Sender: TObject);
var
str0,str1:string;
i,i2,a:integer;
begin
memo2.Clear;
a:=1; str1:=''; i2:=0; //zerando variaveis...
str1:=memo1.Text; //passando o texto do memo1 para a variavel str1
for i:=0 to length(memo1.text)-1 do //laço de 0 até o tamanho do texto -1 faça isso
 begin
 if copy(str1,i,4)='url=' then //se ele chegar na parte do link que aparece url faça isso
  begin
  str1:=copy(str1,i+4,length(str1)); //copiar o resto a partir dali...
  break; //quebra o laço
  end;
 end;
 if copy(str1,1,4)='http' then //condição pra saber se o link tá invertido...
  begin
  memo2.Text:=str1; //caso não ele só joga o link gerado no memo debaixo.
  exit; //sai da procedure.
  end
   else //senão..
   begin
     for i2:=0 to length(str1)-1 do //de 0 até o tamanho do link -1 faça..
       begin
       str0:=str0+copy(str1,length(str1)-i2,a); //copiando o link do fim pro começo... 
       end;
      memo2.Text:=str0; //passando o link 'desinvertido' para o memo 2.
    end;
    memo2.SelectAll; //selecionando todo o texto do memo2
    memo2.CopyToClipboard; //passando pra area de transferencia..
end;

PS: Tá em anexo ao fórum o programa

ForomirDeAlioth escreveu:Não consegui utilizar aqui. Simplesmente não abre