Página 2 de 3

Enviado: quarta set 19, 2007 3:33 pm
por ricgodi
obrigado pelo script

ontem comecei a tentar perceber como funcionam estes scripts e já tinha alterado o teu (sem muito sucesso diga-se :D ).

ainda n experimentei este script mas tive a dar uma vista de olhos e fiz apenas uma pequena alteração k passo a explicar:

o ciclo for percorria todas as linha da página o k é desnecessario, assim fiz esta alteração:

LineNr_inicio := FindLine('<div id="clleft">', Page, LineNr_inicio);
LineNr_fim := FindLine('<div id="clright">', Page, LineNr_fim);


for i:=LineNr_inicio to LineNr_fim do

Como os resultados da pesquisa ficam sempre na <b>div clleft</b> penso k era desnecessario percorrer todas as linhas da pagina.

Apesar de programar em VB e n pascal vou tentar fazer um script baseado neste mas com algumas nuances diferentes.

Mais uma vez obrigado

Enviado: quarta set 19, 2007 3:50 pm
por Guardião
Olá, finalmente tenho alguém que encontra erros nos meus scripts.
Neste caso usar um ciclo for ou FindLine é quase a mesma coisa já que o FindLine também vai percorrer as linhas todas da pagina. Como podes ver no seguinte codigo:
function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer;
var
i: Integer;
begin
result := -1;
if StartAt < 0 then
StartAt := 0;
for i := StartAt to List.Count-1 do
if Pos(Pattern, List.GetString(i)) <> 0 then
begin
result := i;
Break;
end;
end;


Caso tenhas mais alguma sugestão para optimizar o código diz. :wink:

Enviado: quarta set 19, 2007 3:56 pm
por RDK
Bem... resumindo, o código do Guardião nessa parte usa um ciclo for, o do ricgodi usa três, certo?

Eu também percebo de programação :D

Enviado: quarta set 19, 2007 3:59 pm
por Guardião
Com a resposta do RDK vi melhor o teu código, se quiseres usar o FindLine recomendo a fazeres uma alteração:
LineNr_inicio := FindLine('<div>', Page, LineNr_inicio);
para
LineNr_inicio := FindLine('<div>', Page, 0);

Porque o LineNr_inicio é uma variavel sem valor definido, por acaso por defeito fica com o valor 0.

Enviado: quarta set 19, 2007 4:01 pm
por RDK
Guardião, fiquei com o ego magoado. Como é possível eu não ter visto isso? :? :oops:

Enviado: quarta set 19, 2007 4:15 pm
por ricgodi
Percebi, é o problema de n programar em Pascal. Nem sabia para k servia o LineNr_inicio, apenas tinha visto assim noutros scripts.

já agora k editores de pascal utilizas?

podes recomendar algum onde possa ficar a conhecer a syntax?

tipo Visual Studio para .NET se é k existe algum para pascal.

Enviado: quarta set 19, 2007 4:23 pm
por RDK
Ele usa Delphi, só não sei qual é a versão. Deve ser a última digo eu...

Re: www.cinema.ptgate.pt v2.0 (19 Setembro 2007)

Enviado: quinta mai 15, 2008 5:45 pm
por RDK
No script do ptgate quando não há sinopse aparece-me a seguinte mensagem na descrição: "Não existe uma sinopse para este filme. Adicionar uma sinopse.". Não podias tirar isso?

Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)

Enviado: sexta mai 16, 2008 3:22 pm
por Guardião
Sugestão aceite, script actualizado. :)

Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)

Enviado: domingo mai 25, 2008 5:57 pm
por Guardião
O script que se encontra na PTGate acabou de ser actualizado.

Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)

Enviado: sexta set 05, 2008 11:04 pm
por jdhome
mas o Script pt gate ao fazer o dow e o mesmo do cineteka

Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)

Enviado: sexta jan 09, 2009 12:38 pm
por RDK
Corrigi o erro no link, até acho estranho o Guardião não ter reparado nisto...

How did i get Anti virus Live?

Enviado: domingo abr 25, 2010 5:55 pm
por Vilabong
I don't have an anti-virus system, and this needs to be done ASAP thank you for whoever helps :).

__________
grow taller

Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)

Enviado: sexta mai 07, 2010 6:13 pm
por Athos
Boas grande Guardião.

Tinha o Ant Movie a trabalhar a 100%

Entretanto tive de formatar o PC e troquei o SO de XP para Windows 7.
Instalei o Ant Movie, importei os ficheiros e tudo ok.

Agora fui a adicionar novos filmes e os scrips não trabalham...
Aparece esta mensagem de erro.
Imagem

Se der para fazer alguma coisa eu dizer como posso resolver, agradecia.

Já agora, o mesmo acontece aos outros scrips!


Cumps

Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)

Enviado: segunda jan 17, 2011 11:02 pm
por nuno_cortez
O Site PTGATE mudou e o script deixou de funcionar. este script ainda vai ser alterado ou nao?