Discussion :

[moldock]

bonjours
j'aimerais savoir comment je pourrais faire pour récupérer la cote d'une valeur boursiere sur un site comme boursorama ou autre .
Je connais pas trop les composant a utiliser .
j'ai réussi a faire un petit navigateur web qui m'affiche la page d'un site en question j'ai réussi aussi a exporter la page texte de se site d'un un memo1.texte.
Mais je suis bloquer car la valeur boursier que je recherche et noyer parmitout un tas d'information.
je ne sais pas comment trier ce mémo.text pour qu'il me garde que la valeur qui m'interesse sachant que cette valeur change régulierement aussi.
ou bien quequ'un aurais une meilleur idée pour effectuer cette manoeuvre
merci .

[Aka Guymelef]

Bonjour.

Malheureusement tu ne vas pas pouvoir t'en tirer autrement qu'en parsant la page HTML revenu de Boursorama ou autre pour extraire les informations qui t'intéressent.

Tu arrives déjà à récupérer une page web, le plus gros est déjà fait

[_IpC_]

Je ne suis pas un expert en Delphi, mais il me semblerai plus approprié d'utiliser les web services pour ce genre de récupération de données. Ca se fait très bien dans beaucoup de langages ...

[moldock]

Je ne suis pas un expert en Delphi, mais il me semblerai plus approprié d'utiliser les web services pour ce genre de récupération de données. Ca se fait très bien dans beaucoup de langages ...

bonjours je vien d'essayer sur un exemple facile mais je but
pour resoudre mon probleme.
j'ai sur ma form edit1
edit2
memo1
bouton
j'essay de rechercher la valeur que je tape dans mon edit1 dans le mémo.
et si il la trouve il me la renvoi dans mon edit2
voici mon code

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 1000   do
begin
if pos(edit1.text,Form1.memo1.Text)=i then
edit2.text:=memo1.Lines[i] else
end;
end;
end.

mais je but car lorsque je rentre dans edit1 la valeur 1 qui se trouve dans mon memo il me renvoi la valeur juste en dessous.
puis lorsque je tape la valeur 2 il me renvois la valeur qui se trouve 3 ligne plus bas .
comprend pas

[Droïde Système7]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(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;

[moldock]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(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;

merci encore c'est exactement ce que je cherche