www.cinema.ptgate.pt v2.1 (16 Maio 2008)
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
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
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:
Caso tenhas mais alguma sugestão para optimizar o código diz.
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.
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.
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.
Re: www.cinema.ptgate.pt v2.0 (19 Setembro 2007)
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.
Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
Sugestão aceite, script actualizado.
Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
O script que se encontra na PTGate acabou de ser actualizado.
Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
mas o Script pt gate ao fazer o dow e o mesmo do cineteka
Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
Corrigi o erro no link, até acho estranho o Guardião não ter reparado nisto...
Moderador a part-time.
How did i get Anti virus Live?
I don't have an anti-virus system, and this needs to be done ASAP thank you for whoever helps .
__________
grow taller
__________
grow taller
Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
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
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
-
- Utilizador
- Mensagens: 4
- Registado: quinta ago 23, 2007 10:45 am
Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
O Site PTGATE mudou e o script deixou de funcionar. este script ainda vai ser alterado ou nao?