Discussion :

[moldock]

bonjours voici mon probléme ;
je recherche le moyen de recupèrer les cote inférieur a 1.30 sur une cette page web
http://fr.betclic.com/Sport/calendar.aspx
Mais j'ai d'abords commencer par rechercher des valeur égal qui se trouve sur cette page
j'ai essayer en recherchant cette page via webbrowser en la copiant dans un memo1 et j'ai essayer de la trier cette procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
var
i:word;
line:string;
begin
for i:=0 to memo1.lines.count-1 do
begin
line:=memo1.lines[i];
if pos(edit1.text,line)=1 then edit2.text:=line;
end;

pour qu'il m'affiche ma valeur rechercher dans edit2.text
mais l'orsque je tape il ne m'affiche rien dans edit 2 je pense que ma procédure ne doit pas étre la bonne car lorsque il transfert les données dans le memo1 il les colle donc il doit avoir du mal a les retrouver .
donc je suis blocker

[Droïde Système7]

mais l'orsque je tape il ne m'affiche rien dans edit 2 je pense que ma procédure ne doit pas étre la bonne car lorsque il transfert les données dans le memo1 il les colle donc il doit avoir du mal a les retrouver

Si tu ne nous exposes ça pas plus clairement, les réponses seront à l'image de ta question.

N"oublie pas l'indentation, sinon ce n'est plus du code ; c'est de la bouillie visuelle...

[moldock]

bonjours

Si tu ne nous exposes ça pas plus clairement, les réponses seront à l'image de ta question.

N"oublie pas l'indentation, sinon ce n'est plus du code ; c'est de la bouillie visuelle...

en claire
j'essaye de récuperer dans un edit2 une cote que j'aurai entrer dans un edit 1
Je souhaite qu'il recherche et qu'il m'affiche dans un edit2 la ligne complete ou ce trouve cette cote dans cette page web.
j'ai essayer avec un webbrowser , un mémo1 ,un combobx,2 bouton
lorsque je lance mon programme il m'affiche la page du site dans un webbrowser.
Ensuite j'ai un bouton qui me transfere au forma texte tous ce qui se trouve sur ma page web.
puis je rentre une valeur rechercher dans mon edit1
et l'orsque j'apuis sur mon bouton de recherche il ne me trouve pas la valeur que j'ai rentrer dans mon edit 1.
Pour exemple
Ces valeurs ci dessous sont transferer de mon web browser a mon memo1

Football, Amicaux clubs1Nul2
Ajax - Benfica 2,153,303,00

lorsque je rentre dans mon edit1 la valeur 2.15 il ne me renvoi rien dans mon edit 2
hors il se trouve bien sur le site donc je bute

voici le code complet de mon aplication

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    WebBrowser1: TWebBrowser;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
 
begin
WebBrowser1.Navigate(ComboBox1.Text,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.text:=WebBrowser1.OleObject.Document.body.Innertext;
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
i:word;
line:string;
begin
for i:=0 to memo1.lines.count-1 do
begin
line:=memo1.lines[i];
if pos(edit1.text,line)=1 then edit2.text:=line;
end;
end;
end.

merci de vos reponces

[mick605]

Ces valeurs ci dessous sont transferer de mon web browser a mon memo1

Football, Amicaux clubs1Nul2
Ajax - Benfica 2,153,303,00

lorsque je rentre dans mon edit1 la valeur 2.15 il ne me renvoi rien dans mon edit 2
hors il se trouve bien sur le site donc je bute

Salut

Donc, tu veux chercher des valeurs dans un "texte" ?

Utilises la fonction Pos() dans chaque ligne de ton mémo ... Si la valeur est différente de 0, alors tu copies la ligne ...

N'oublies pas de mettre ton code dans les balises [CODE] (#) sinon c'est illisible

Bonne chance !

[Droïde Système7]

Salut,

Football, Amicaux clubs1Nul2
Ajax - Benfica 2,153,303,00

lorsque je rentre dans mon edit1 la valeur 2.15 il ne me renvoi rien dans mon edit 2
hors il se trouve bien sur le site donc je bute

Entre "2 POINT quinze" et "deux VIRGULE quinze", il se trouve une toute petite différence.

Peut-être pas pour tout le monde, car désormais la ponctuation, tout comme l'indentation devient lettre morte

N'oublie pas cette règle d'or :
Ce qui se conçoit bien s'énonce clairement ; et les mots pour le dire arrivent aisément.

Sans indentation, un code devient de la bouillie et tout programmeur digne de ce non, passe son chemin.

N'oublie pas non plus la balise # permettant de placer ton code ici entre balises "code", merci.

Nous ne demandons pas mieux à t'aider, mais aide-nous aussi.

@+

[peter27x]

Déjà je pense qu'une partie de ton pb vient du fait que tu as codé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if pos(edit1.text,line)=1 then edit2.text:=line;

Or (et non "hors"), c'est pas forcément en position 1 de ton texte que ce que tu cherches se trouve, mais à une position autre que 0 (zéro).

Donc essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if pos(edit1.text,line)>0 then edit2.text:=line;

Ensuite effectivement si tu cherches "1,15" et que ton texte contient "1.15" forcément ça va pas marcher... point et virgule c'est pas pareil.

[moldock]

Déjà je pense qu'une partie de ton pb vient du fait que tu as codé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if pos(edit1.text,line)=1 then edit2.text:=line;

Or (et non "hors"), c'est pas forcément en position 1 de ton texte que ce que tu cherches se trouve, mais à une position autre que 0 (zéro).

Donc essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if pos(edit1.text,line)>0 then edit2.text:=line;

Ensuite effectivement si tu cherches "1,15" et que ton texte contient "1.15" forcément ça va pas marcher... point et virgule c'est pas pareil.

merci encore pour la rèponse c'est bien supèrieur a zéro ca marche
Pour ce qui est des 2 vigule 15 c'etait bien une virgule que j'avais entrez .
mais il ne me trouver pas car il fallez mètre supérieur a zéro
merci encore a tous pour vos rèponces.