Aide pour programmer un ti formulaire html php

Recherche :

7 utilisateurs inconnus

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Aide pour programmer un ti formulaire html php

Roryuken

Voila pour une board, j'essaye de faire un formulaire pour leur faciliter la tache de leur post !!! je vais metre le formulaire et vous dire les problemes :

Tapez votre texte : Rechercher sur Allocine.fr
Qualité du film : Une liste deroulante avec marquez : Dvdrip, screener, tvscreen.
Taille : On indique la taille
Durée : Ce rempli avec les informations trouvée sur allocine
Synopsis : Ce rempli avec les infos d'allocine
Image : Ce rempli avec les infos d'allocine
Anne de sortie : Info dallocine
genre : allocine
Realisateur : allocine
Nationalite : allocine

Voila et que sa fasse aussi une petite presentation ken on genere le script !!!
Alors mtnt mes problemes sont les suivant :
Ken on tape le texte, je narrive pas a ce ke sa recherche automatikement sur allocien les infos !!
Si sa trouve d info ken on clik sur linfo, sa rempli tte les case realisateur synopsis image nationalite etc et faire une tite prezentation ken on genere le script, ji arrive pa ossi !!

Voila tout mes bleme !!! Si quelqun pouvait me faire le script en entier et me le passez pour que j'essaye de refaire un pour les jeux ou mexplikez comment faire mes problemes !!! Merci davance

Message édité par Roryuken le 16-07-2004 à 13:51:22

Google

Le Veilleur

.:. .:.

Code :

// GETINFO SCRIPTING
// Allociné France import
(***************************************************
* Movie importation script for: *
* Allociné France, http://www.allocine.fr *
* *
* (c) 2002 Antoine Potten antoine@buypin.com *
* Improvements made by Soltan *
* *
* For use with Ant Movie Catalog 3.4.0 *
* www.ant.be.tf/moviecatalog ··· www.buypin.com *
* *
* The source code of the script can be used in *
* another program only if full credits to *
* script author and a link to Ant Movie Catalog *
* website are given in the About box or in *
* the documentation of the program *
***************************************************)
program Allocine_FR;
var
MovieName: string;
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;
procedure AnalyzePage(Address: string);
var
Page: TStringList;
LineNr: Integer;
Line: string;
BeginPos: Integer;
begin
Page := TStringList.Create;
Page.Text := GetPage(Address);
if pos('<TITLE>Recherche', Page.Text) = 0 then
AnalyzeMoviePage(Page)
else
begin
PickTreeClear;
LineNr := FindLine('AlloCiné</A> : Recherche', Page, 0);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
BeginPos := pos('dans les titres de films', Line);
if BeginPos > 0 then
begin
Delete(Line, 1, BeginPos);
PickTreeAdd('Films déjà sortis', '');
AddMoviesTitles(Line);
end;
BeginPos := pos('dans les films déjà sortis (de ou avec)', Line);
if BeginPos > 0 then
begin
Delete(Line, 1, BeginPos);
PickTreeAdd('Films déjà sortis (de ou avec)', '');
AddMoviesTitles(Line);
end;
BeginPos := pos('dans les prochaines sorties de films', Line);
if BeginPos > 0 then
begin
Delete(Line, 1, BeginPos);
PickTreeAdd('Prochaines sorties', '');
AddMoviesTitles(Line);
end;
BeginPos := pos('dans les prochaines sorties de films (de ou avec)', Line);
if BeginPos > 0 then
begin
Delete(Line, 1, BeginPos);
PickTreeAdd('Prochaines sorties (de ou avec)', '');
AddMoviesTitles(Line);
end;
Line := Page.GetString(LineNr);
BeginPos := pos('<LI><A HREF="rubrique.html?typerecherche=3&', Line);
if BeginPos > 0 then
begin
Delete(Line, 1, BeginPos + 12);
PickTreeMoreLink('http://www.allocine.fr/recherche/' + copy(Line, 1, pos('"', Line) - 1));
end;
if PickTreeExec(Address) then
AnalyzePage(Address);
end;
end;
Page.Free;
end;
procedure AnalyzeMoviePage(Page: TStringList);
var
Line, Value: string;
LineNr, IntValue: Integer;
BeginPos, EndPos: Integer;
begin
// Original & Translated Title
LineNr := FindLine('', Page, 0);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
BeginPos := pos('', Line) + 24;
if pos(')', Line) = 0 then
begin
EndPos := pos('', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldOriginalTitle, Value);
end else
begin
EndPos := pos('(', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos - 1);
SetField(fieldTranslatedTitle, Value);
BeginPos := EndPos + 8;
EndPos := pos(')', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldOriginalTitle, Value);
end;
//Country
if pos('', Line) > 0 then
begin
Delete(Line, 1, pos('', Line) + 19);
EndPos := pos('', Line);
Value := copy(Line, 1, EndPos - 1);
SetField(fieldCountry, Value);
Delete(Line, 1, pos('', Line));
end;
// Year
if pos('(', Line) > 0 then
begin
Delete(Line, 1, pos('(', Line));
EndPos := pos(')', Line) - 1;
Value := copy(Line, 1, EndPos);
SetField(fieldYear, Value);
end;
// Category
if pos('Class="size2"', Line) > 0 then
begin
Delete(Line, 1, pos('">', Line) + 1);
EndPos := pos('', Line);
Value := copy(Line, 1, EndPos - 1);
SetField(fieldCategory, Value);
end;
// Length
if pos('Durée ', Line) > 0 then
begin
Delete(Line, 1, pos(': ', Line) + 6);
IntValue := StrToInt(copy(Line, 1, 1), 0) * 60;
if pos('mn.', Line) > 0 then
IntValue := IntValue + StrToInt(copy(Line, 4, 2), 0);
SetField(fieldLength, IntToStr(IntValue));
end;
// Comments
if pos('mn.', Line) > 0 then
begin
Value := copy(Line, pos('mn.', Line) + 4, pos('</TD>', Line) - 1);
HTMLRemoveTags(Value);
HTMLDecode(Value);
SetField(fieldComments, Value);
end;
// Actors
if pos('"titreDescription">Avec', Line) > 0 then
begin
Delete(Line, 1, pos('Class="titreDescription">Avec', Line) + 34);
EndPos := pos('Plus...', Line);
if EndPos = 0 then
EndPos := pos('</TD>', Line);
Value := copy(Line, 1, EndPos - 1);
HTMLRemoveTags(Value);
HTMLDecode(Value);
SetField(fieldActors, Trim(Value));
end;
// Director
if pos('"titreDescription">Réalisé par', Line) > 0 then
begin
Delete(Line, 1, pos('Class="titreDescription">Réalisé par', Line) + 48);
EndPos := pos('Plus...', Line);
if (EndPos = 0) or (EndPos > pos('</TD>', Line)) then
EndPos := pos('</TD>', Line);
Value := copy(Line, 1, EndPos - 1);
HTMLRemoveTags(Value);
HTMLDecode(Value);
SetField(fieldDirector, Value);
end;
end;
// Description
LineNr := FindLine('>Synopsis<', Page, LineNr);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
Value := '';
repeat
BeginPos := pos('"size2">', Line);
if BeginPos > 0 then
BeginPos := BeginPos + 8
else
BeginPos := 1;
EndPos := pos('</DIV>', Line);
if EndPos = 0 then
EndPos := pos(' ', Line);
if EndPos = 0 then
EndPos := Length(Line) + 1;
if EndPos > 0 then
Value := Value + copy(Line, BeginPos, EndPos - BeginPos) + #13#10;
EndPos := pos('</DIV>', Line);
if EndPos = 0 then
begin
LineNr := LineNr + 1;
Line := Page.GetString(LineNr);
EndPos := Pos('<SCRIPT', Line);
end;
until EndPos > 0;
HTMLRemoveTags(Value);
SetField(fieldDescription, Trim(Value));
end;
// URL
LineNr := FindLine('class="link10" target=_blank>', Page, LineNr);
if LineNr > -1 then
begin
Line := Page.GetString(LineNr);
BeginPos := pos('class="link10" target=_blank>', Line) + 29;
EndPos := pos('</A></TD></TR>', Line);
Value := copy(Line, BeginPos, EndPos - BeginPos);
SetField(fieldURL, Value);
end;
DisplayResults;
end;
procedure AddMoviesTitles(var Line: string);
var
MovieTitle, MovieAddress: string;
StartPos, EndPos: Integer;
begin
repeat
StartPos := pos('<LI><A HREF="/film/fichefilm', Line);
if StartPos > 0 then
begin
Delete(Line, 1, StartPos + 12);
MovieAddress := copy(Line, 1, pos('">', Line) - 1);
StartPos := pos('#003399>', Line) + 8;
MovieTitle := copy(Line, StartPos, pos('</TD>', Line) - StartPos);
HTMLRemoveTags(MovieTitle);
PickTreeAdd(MovieTitle, 'http://www.allocine.fr' + MovieAddress);
end;
until (StartPos < 1) or ((pos('<LI><A HREF="/film/fichefilm', Line) > pos('', Line)) and (pos('', Line) > 0));
if (pos('Plus...',Line) > 0) and (pos('Plus...',Line) < pos('',Line)) and (pos('Plus...',Line) < pos('',Line)) then
begin
StartPos := pos('rubrique.html', Line);
EndPos := pos('Plus...',Line) - 16;
MovieAddress := copy(Line, StartPos, EndPos - StartPos);
PickTreeAdd('Plus... ', 'http://www.allocine.fr/recherche/' + MovieAddress);
end;
end;
begin
if CheckVersion(3,4,0) then
begin
MovieName := GetField(fieldOriginalTitle);
if MovieName = '' then
MovieName := GetField(fieldTranslatedTitle);
if Input('Allociné.fr Import', 'Entrez le titre du film ou l''adresse de la page :', MovieName) then
begin
if Pos('.allocine.', MovieName) > 0 then
AnalyzePage(MovieName)
else
AnalyzePage('http://www.allocine.fr/recherche/default.html?motcle='+UrlEncode(MovieName));
// AnalyzePage('http://www.allocine.fr/recherche/rubrique.html?typerecherche=3&motcle='+UrlEncode(MovieName));
end;
end else
ShowMessage('This script requires a newer version of Ant Movie Catalog (at least the version 3.4.0)');
end.

Roryuken

merci beaucoup pour ton aide, mais je n'est aps tre bien compri ce ke je doit faire de sa, j'ai essaye de le copier coller dans un txt sa marche pas !!!! si tu pouvais me dire !!! sa maiderais vraiment bcp !!! encore emrci pour ton taff

CryoGen

C'est du VB ca non ??

---------------
I am the bone of my sword...

Deather2

OpenBSD: the way to go!

Citation :

Qualité du film : Une liste deroulante avec marquez : Dvdrip, screener, tvscreen.

:whistle:

Roryuken

oui et ?? qu'ess ki ce pass ?

CryoGen

deather2 a écrit :

Citation :

Qualité du film : Une liste deroulante avec marquez : Dvdrip, screener, tvscreen.

:whistle:

demasked :lol:

---------------
I am the bone of my sword...

Homertrix

Modérateur.

Ben redirige directement sur la page d'allociné ca vas aller plus vite [:dslam]

---------------
Serveur perso: www.homertrix.com
Site consacré aux travaux de rénovations: www.traina.be

Roryuken

nan moi jaimerais faire un bon pti formulaire pour ke ken g les info sa me remplisse les case ken e clik sur le film car sinon le formulaire sert a rien !!!

CryoGen

hep , c'est pas un forum sms ici ^^ vive l'orthographe

Bah tu veux carrement faire un parser bonne chance ^^

---------------
I am the bone of my sword...

Dr Lous

I see old password

c ce ke le code fait...

---------------
Oseras-tu m'affronter ?

CryoGen

Dr Lous a écrit :

c ce ke le code fait...

oui mais lui il a l'air de connaitre keudal à php ou à VB alors ^^

---------------
I am the bone of my sword...

Dr Lous

I see old password

vu le code donnée c du vb a 80% sur... (des end partout c ke vb pour faire ca ^^)

sinon des parser y'en a partout ^^

---------------
Oseras-tu m'affronter ?

guigui07786

eh non spas du VB, un if en VB on le finit pas en end; mais en end if

Dr Lous

I see old password

arf ca fait trop lomgtemps ke g pas fait de vb... ou g peut etre fait trop de php depuis ke g stoppé le vb [:dslam]

delphi alors ?

---------------
Oseras-tu m'affronter ?

Homertrix

Modérateur.

Dr Lous a écrit :

arf ca fait trop lomgtemps ke g pas fait de vb... ou g peut etre fait trop de php depuis ke g stoppé le vb [:dslam]

delphi alors ?

:love: :love: :love:

[:dslam]

---------------
Serveur perso: www.homertrix.com
Site consacré aux travaux de rénovations: www.traina.be

Dr Lous

I see old password

[:rofl]

---------------
Oseras-tu m'affronter ?

Le Veilleur

.:. .:.

C'est le script utilisé par antmoviecatalog pour récupérer les infos chez allocine.fr

bozzo

ce script n'est plus valable depuis qu'allocine a modifier sa page de resultat

y aurait t'il quelqu'un qui en aurait fait un nouveau tout a fait par hazard ?

Message édité par bozzo le 24-10-2004 à 00:22:54

Dr Lous

I see old password

ben tu refait le parser )

---------------
Oseras-tu m'affronter ?

Google

FORUM Syndrome-OC - Jacky-PC

Programmation

Autre

Aide pour programmer un ti formulaire html php

Plan du forum
Forum MesDiscussions.Net, Version 2007.3
(c) 2000-2008 Doctissimo Software

Page générée en 0.570 secondes