silvanirms

não estou conseguindo, ele não consegue calcular os valores dos campos "numero1" e "numero2" corretamente, sera que existe algum erro nesse codigo que postei, de repente no $_GET? abs

Pessoal preciso da ajuda de voces, tenho o codigo que segue abaixo, ele basicamente faz o seguinte: voce informa um intervalo, por exemplo, do numero 100 ao numero 200 e ele checka numa pagina se esses numeros são validos (pois nessa pagina se os numeros forem validos a pagina informa abrindo uma outra pagina informando que o numero existe) acho que da para entender melhor dando uma lhada no codigo, enfim, basicamente é uma busca. O problema que estou encontrando é fazer uma pagina de entrada com dois campos para se inserir os intervalos e que essa pagina chame o codigo abaixo no momento da busca: (acho que esses campos de buscas teriam quer ter as variaveis numero1 e numero2, certo?) <?php //pega o campo fieldtext da outra página anterior com o numero de numero1 $numero1=$_GET['numero1']; //pega o campo fieldtext da outra página anterior com o numero de numero1 $numero2=$_GET['numero2']; //inicio do link $inicio="https://www.testando123.hpg.com.br/&listadenumeros.php"; //final do link $final="/resultado/&listadenumeros.php"; //comando for para fazer com que seja checado cada numero no intervalo entre o numero1 e numero2 for($=$numero1;$numero<=$numero2;$numero++){ $url=$inicio.$numero.$final; ob_start(); $ch = curl_init($url); curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false); curl_setopt($ch, CURLOPT_HEADER, TRUE); curl_exec($ch); $retorno = ob_get_contents(); ob_end_clean(); curl_close($ch); if(eregi("O NUMERO EXISTE", $retorno)){ $arq=fopen("resultados.txt", "a+"); fwrite($arq, $url."\n"); fclose($arq); $mostra=file("resultados.txt"); echo "<br><br>Encontrado o numero ".$numero."<br>"; echo ($url."<br><br>"); } else { echo "numero ".$numero." não foi encontrado<br>";} // fim do for }; ?> Um abraco e mais uma vez obrigado pela ajuda de vocês.

Jhonas obrigado pela ajuda, fiz da segunda forma que voce indicou. Abs

Pessoal, estou fazendo um programa com um form de busca, quando o usuario clica em 'buscar" e o campo de busca esta vazio ele retorna uma mensagem informando que o usuario deve preencher o campo busca para clicar no botao "buscar", porem, este aviso esta permanecendo no form, mesmo depois que o usuario faz novas buscas.. como faço para limpar esse aviso depois de que ele seja dado? (o aviso é dado no label4) Essa é a parte do codigo: procedure TForm1.Button1Click(Sender: TObject); var txt: TStringList; i: integer; begin if ( edit1.Text <> '' ) then begin txt := TStringList.Create; txt.LoadFromFile(ExtractFilePath(ParamStr(0))+'carteiras.txt'); for i:=0 to txt.Count -1 do begin if Pos(edit1.Text,txt[i])>0 then begin label1.caption := 'NÃO LIBERADA'; txt.free; exit; end; end; txt.Add(edit1.Text); txt.SaveToFile(ExtractFilePath(ParamStr(0))+'carteiras.txt'); label1.caption := ' LIBERADA'; Label3.Caption := intToStr( txt.count ); txt.Free; Edit1.Clear; Edit1.SetFocus; end else begin label4.caption := 'Atenção: Digite uma palavra antes de efetuar a busca.'; Edit1.SetFocus; end; end; Abs

Pessoal, estou elaborando um programa bem simples (o codigo esta em outro tópico criado há alguns dias) basicamente é um form onde voce digita certo numero ou palavra e ele faz a busca em um arquivo .txt, caso essa palavra esteja no .txt ele retorna a mensagem "encontrada" e caso não esteja ele retorna a mensagem "não encontrada" e adiciona a novo palavra a lista do .txt. O que estou precisando para finaliza o programa é o seguinte: gostaria que fosse exibido na tela do programa o numero de linhas desse arquivo .txt (não sei se nesse caso seria um tlabel) que codigo eu poderia usar para que esse numero de linhas pudesse ser exibido? obrigado pela ajuda de todos. Abs

Como faço para que o programa exiba na propria janela do programa, algo como "numero de buscas:" e mostre quantas palavras foram buscadas (podendo ate ser quantas linhas existem no arquivo .txt que foi gerado contendo as palavras que foram buscadas). Abs

Estava tendo alguns problemas com as permissoes (alguns sistemas como o vista, geralmente apenas o administrador tem a permissao de modificar/criar um arquivo) resolvi o problema salvando o arquivo na pasta "meus documentos": txt.SaveToFile(ExtractFilePath(ParamStr(0))+'carteiras.txt'); //salva arquivo

Consegui apos adicionar a unit 'SysUtils' (para usar o FileExists) obrigado a todos pela ajuda, abs

Micheus tentei da forma que voce indicou, mas tambem não deu.. esta retornando o erro: Abraco

Refiz o programa, procedure por procedure e não consegui que o codigo fizesse o programa fechar.. alguém poderia dar uma olhada nesse codigo que postei acima se esta tudo correto? (acho que deve ser algum detalhe que esteja passando despercebido e esta evitando que o codigo de fechar o programa funcione). Obrigado, abs s

ok, vou fazer isso sim, mais uma vez obrigado pela ajuda. abs

So o codigo funcionou, mas já procurei aqui e não existe nenhum teste.dll e mesmo assim ele não ta fechando, deve ter algum erro nesse meu codigo, algum detalhe que esteja impedindo o programa de fechar..

O programa ate compilou, mas não deu o resultado esperado (fechar na ausencia do arquivo teste.dll) vou te postar o codigo, ok? ahh e obrigado pela paciencia. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls, ShellApi; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Image1: TImage; Shape1: TShape; Label1: TLabel; Timer1: TTimer; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure Button2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); begin if not FileExists('C:\windows\Teste.dll') then application.Terminate; end; end.

Jhonas coloquei a imagem em outro lugar, o que eu posso estar fazendo de errado? (estou abrindo o form e colando o codigo que voce me passou depois dos outros procedures) foto

Tinha colocado uma imagem sim, o link é esse: http://www.uploadimagens.com/upload/fd8348...fb8d17f855a.jpg aqui não ta dando certo, retorna um erro na hora de compilar, o codigo ta certo acho que eu q não estou sabendo onde por. abs