Recuppérer une info d'une balise html

eclems Messages postés 104 Date d'inscription samedi 23 décembre 2000 Statut Membre Dernière intervention 9 mai 2013 - 5 nov. 2011 à 18:47
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 - 9 nov. 2011 à 12:56
bonjour


j'ai essayer de trouver mais en vin

Comment trouver et afficher dans un label une balise du type text d'une page html

une aide pressieuse serais la bienvenu

bonne sioirée

6 réponses

Caribensila Messages postés 2527 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 16 octobre 2019 18
5 nov. 2011 à 22:51
Bonjour,

Conclusion: "In vino non veritas est"
0
eclems Messages postés 104 Date d'inscription samedi 23 décembre 2000 Statut Membre Dernière intervention 9 mai 2013
6 nov. 2011 à 01:09
pour des msg a la con tpeu aller tcoucher!
mdr
0
cs_rt15 Messages postés 3874 Date d'inscription mardi 8 mars 2005 Statut Modérateur Dernière intervention 7 novembre 2014 13
6 nov. 2011 à 13:05
Bonjour,

Merci de faire un effort sur la rédaction (Pas de style SMS, pas de vulgarité, relecture...).

Ta question est d'autre part pas évidente à comprendre.

Sinon tu risques de n'avoir que du hors sujet dans ce genre là :

procedure TForm1.Button1Click(Sender: TObject);
var
  lpFound: PChar;
  lpHtml: PChar;
  nHtmlLength: Integer;
  nStart: Integer;
const
  OPENING_TAG_LENGTH = 8;
  CLOSING_TAG_LENGTH = 9;
begin
  memoResult.Clear;
  lpHtml:= PChar(memoHtml.Text);
  nHtmlLength:= Length(memoHtml.Text);

  nStart:= 0;
  while True do
  begin
    lpFound:= SearchBuf(lpHtml, nHtmlLength, nStart, 0, '');
    if lpFound = nil then
      break;

    nStart:= lpFound + OPENING_TAG_LENGTH - lpHtml;
    lpFound:= SearchBuf(lpHtml, nHtmlLength, nStart, 0, '');
    if lpFound = nil then
    begin
      ShowMessage('Il manque au moins un tag de fermeture.');
      Exit;
    end;
    memoResult.Text:= memoResult.Text + MidStr(lpHtml, nStart + 1, lpFound - lpHtml - nStart) + sLineBreak;
    nStart:= lpFound + CLOSING_TAG_LENGTH - lpHtml;
  end;
end;
0
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
7 nov. 2011 à 16:28
Bonsoir,

TWebbrowser + parser

cantador
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
eclems Messages postés 104 Date d'inscription samedi 23 décembre 2000 Statut Membre Dernière intervention 9 mai 2013
8 nov. 2011 à 17:17
c'est ou parser????
0
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 14
9 nov. 2011 à 12:56
ohhhhhh !!!

toi tu vas te faire appeler Léon..

parser :
Algorithme qui permet d'analyser un texte et d'en déterminer sa structure syntaxique afin d'effectuer divers traitement.

Il te faut donc chercher un code ou un outil qui exploite cet Algorithme..

et il y en a beaucoup...

cantador
0