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

ricgodi · **Enviado:** Quarta Set 19, 2007 3:33 pm

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 · **Enviado:** Quarta Set 19, 2007 3:50 pm

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:

Citar:

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 · **Registado:** Sexta Ago 24, 2007 4:58 pm **Mensagens:** 56

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 · **Enviado:** Quarta Set 19, 2007 3:59 pm

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 · **Registado:** Sexta Ago 24, 2007 4:58 pm **Mensagens:** 56

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

ricgodi · **Enviado:** Quarta Set 19, 2007 4:15 pm

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 · **Registado:** Sexta Ago 24, 2007 4:58 pm **Mensagens:** 56

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

RDK · **Registado:** Sexta Ago 24, 2007 4:58 pm **Mensagens:** 56

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 · **Enviado:** Sexta Mai 16, 2008 3:22 pm

Sugestão aceite, script actualizado.

Guardião · **Enviado:** Domingo Mai 25, 2008 5:57 pm

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

jdhome · **Registado:** Quinta Set 04, 2008 3:33 pm **Mensagens:** 2

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

RDK · **Registado:** Sexta Ago 24, 2007 4:58 pm **Mensagens:** 56

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

Vilabong · **Enviado:** Domingo Abr 25, 2010 5:55 pm

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

.

__________
grow taller

Athos · **Registado:** Sexta Mai 07, 2010 6:00 pm **Mensagens:** 1

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

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

Quem está ligado: