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

[ricgodi]

obrigado pelo script

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

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

[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.

[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

[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]

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

[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]

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

[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?

[Guardião]

Sugestão aceite, script actualizado.

[Guardião]

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

[jdhome]

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

[RDK]

Corrigi o erro no link, até acho estranho o Guardião não ter reparado nisto...

[Vilabong]

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

__________
grow taller

[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.


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

Já agora, o mesmo acontece aos outros scrips!


Cumps

[nuno_cortez]

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