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

Scripts feitos por mim para o Ant Movie Catalog 3.50.2
Mensagem
Autor
ricgodi
Utilizador
Mensagens: 2
Registado: segunda set 17, 2007 2:58 pm

#16 Mensagem 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

Avatar do Utilizador
Guardião
Programador
Mensagens: 1019
Registado: quinta out 28, 2004 11:00 pm
Contacto:

#17 Mensagem 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:

RDK
Utilizador
Mensagens: 55
Registado: sexta ago 24, 2007 4:58 pm

#18 Mensagem 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

Avatar do Utilizador
Guardião
Programador
Mensagens: 1019
Registado: quinta out 28, 2004 11:00 pm
Contacto:

#19 Mensagem 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.

RDK
Utilizador
Mensagens: 55
Registado: sexta ago 24, 2007 4:58 pm

#20 Mensagem por RDK »

Guardião, fiquei com o ego magoado. Como é possível eu não ter visto isso? :? :oops:

ricgodi
Utilizador
Mensagens: 2
Registado: segunda set 17, 2007 2:58 pm

#21 Mensagem 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.

RDK
Utilizador
Mensagens: 55
Registado: sexta ago 24, 2007 4:58 pm

#22 Mensagem por RDK »

Ele usa Delphi, só não sei qual é a versão. Deve ser a última digo eu...

RDK
Utilizador
Mensagens: 55
Registado: sexta ago 24, 2007 4:58 pm

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

#23 Mensagem 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?
Moderador a part-time. :)

Avatar do Utilizador
Guardião
Programador
Mensagens: 1019
Registado: quinta out 28, 2004 11:00 pm
Contacto:

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

#24 Mensagem por Guardião »

Sugestão aceite, script actualizado. :)

Avatar do Utilizador
Guardião
Programador
Mensagens: 1019
Registado: quinta out 28, 2004 11:00 pm
Contacto:

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

#25 Mensagem por Guardião »

O script que se encontra na PTGate acabou de ser actualizado.

jdhome
Utilizador
Mensagens: 2
Registado: quinta set 04, 2008 3:33 pm

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

#26 Mensagem por jdhome »

mas o Script pt gate ao fazer o dow e o mesmo do cineteka

RDK
Utilizador
Mensagens: 55
Registado: sexta ago 24, 2007 4:58 pm

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

#27 Mensagem por RDK »

Corrigi o erro no link, até acho estranho o Guardião não ter reparado nisto...
Moderador a part-time. :)

Vilabong
Utilizador
Mensagens: 1
Registado: domingo abr 25, 2010 5:55 pm

How did i get Anti virus Live?

#28 Mensagem por Vilabong »

I don't have an anti-virus system, and this needs to be done ASAP thank you for whoever helps :).

__________
grow taller

Athos
Utilizador
Mensagens: 1
Registado: sexta mai 07, 2010 6:00 pm

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

#29 Mensagem 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

nuno_cortez
Utilizador
Mensagens: 4
Registado: quinta ago 23, 2007 10:45 am

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

#30 Mensagem por nuno_cortez »

O Site PTGATE mudou e o script deixou de funcionar. este script ainda vai ser alterado ou nao?

Responder