Software e Programação
Data/Hora: Quinta Set 09, 2010 2:32 pm

Os Horários são TMG [ Horário de Verão activo ]




Criar Novo Tópico Responder a este Tópico  [ 29 mensagens ]  Ir para página Anterior  1, 2
Autor Mensagem
 Assunto da Mensagem:
MensagemEnviado: Quarta Set 19, 2007 3:33 pm 
Offline
Utilizador

Registado: Segunda Set 17, 2007 2:58 pm
Mensagens: 2
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


Topo
 Perfil  
 
 Assunto da Mensagem:
MensagemEnviado: Quarta Set 19, 2007 3:50 pm 
Offline
Programador
Avatar do Utilizador

Registado: Quinta Out 28, 2004 11:00 pm
Mensagens: 1236
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:

_________________
Acompanha o desenvolvimento dos vários programas

Imagem


Topo
 Perfil  
 
 Assunto da Mensagem:
MensagemEnviado: Quarta Set 19, 2007 3:56 pm 
Offline
Utilizador

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 :D


Topo
 Perfil  
 
 Assunto da Mensagem:
MensagemEnviado: Quarta Set 19, 2007 3:59 pm 
Offline
Programador
Avatar do Utilizador

Registado: Quinta Out 28, 2004 11:00 pm
Mensagens: 1236
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.

_________________
Acompanha o desenvolvimento dos vários programas

Imagem


Topo
 Perfil  
 
 Assunto da Mensagem:
MensagemEnviado: Quarta Set 19, 2007 4:01 pm 
Offline
Utilizador

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? :? :oops:


Topo
 Perfil  
 
 Assunto da Mensagem:
MensagemEnviado: Quarta Set 19, 2007 4:15 pm 
Offline
Utilizador

Registado: Segunda Set 17, 2007 2:58 pm
Mensagens: 2
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.


Topo
 Perfil  
 
 Assunto da Mensagem:
MensagemEnviado: Quarta Set 19, 2007 4:23 pm 
Offline
Utilizador

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


Topo
 Perfil  
 
 Assunto da Mensagem: Re: www.cinema.ptgate.pt v2.0 (19 Setembro 2007)
MensagemEnviado: Quinta Mai 15, 2008 5:45 pm 
Offline
Utilizador

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?

_________________
Moderador a part-time. :)


Topo
 Perfil  
 
 Assunto da Mensagem: Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
MensagemEnviado: Sexta Mai 16, 2008 3:22 pm 
Offline
Programador
Avatar do Utilizador

Registado: Quinta Out 28, 2004 11:00 pm
Mensagens: 1236
Sugestão aceite, script actualizado. :)

_________________
Acompanha o desenvolvimento dos vários programas

Imagem


Topo
 Perfil  
 
 Assunto da Mensagem: Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
MensagemEnviado: Domingo Mai 25, 2008 5:57 pm 
Offline
Programador
Avatar do Utilizador

Registado: Quinta Out 28, 2004 11:00 pm
Mensagens: 1236
O script que se encontra na PTGate acabou de ser actualizado.

_________________
Acompanha o desenvolvimento dos vários programas

Imagem


Topo
 Perfil  
 
 Assunto da Mensagem: Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
MensagemEnviado: Sexta Set 05, 2008 11:04 pm 
Offline
Utilizador

Registado: Quinta Set 04, 2008 3:33 pm
Mensagens: 2
mas o Script pt gate ao fazer o dow e o mesmo do cineteka


Topo
 Perfil  
 
 Assunto da Mensagem: Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
MensagemEnviado: Sexta Jan 09, 2009 12:38 pm 
Offline
Utilizador

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

_________________
Moderador a part-time. :)


Topo
 Perfil  
 
 Assunto da Mensagem: How did i get Anti virus Live?
MensagemEnviado: Domingo Abr 25, 2010 5:55 pm 
Offline
Utilizador

Registado: Domingo Abr 25, 2010 5:55 pm
Mensagens: 1
I don't have an anti-virus system, and this needs to be done ASAP thank you for whoever helps :).

__________
grow taller


Topo
 Perfil  
 
 Assunto da Mensagem: Re: www.cinema.ptgate.pt v2.1 (16 Maio 2008)
MensagemEnviado: Sexta Mai 07, 2010 6:13 pm 
Offline
Utilizador

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


Topo
 Perfil  
 
Mostrar mensagens anteriores:  Ordenar por  
Criar Novo Tópico Responder a este Tópico  [ 29 mensagens ]  Ir para página Anterior  1, 2

Os Horários são TMG [ Horário de Verão activo ]


Quem está ligado:

Utilizador a ver este Fórum: Nenhum utilizador registado e 1 visitante


Criar Tópicos: Proibído
Responder Tópicos: Proibído
Editar Mensagens: Proibído
Apagar Mensagens: Proibído
Enviar anexos: Proibído

Pesquisar por:
Ir para:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzido para português europeu por phpBB Portugal / CC BY-NC-ND 2.5