Création d'une fonction GetElementsByClass

Version imprimable

17/06/2008, 15h12
Francisco21

Création d'une fonction GetElementsByClass
Bonjour

Je souhaite de créer une fonction qui GetElementsByClass(), qui permet de recuperer une partie code source en recuperant uniquement le contenu de tag choisir par rapport à la classe.

C'est à dire :
Code:

1 2 3 4 5 6 7 8 9 10 <html> <head> </head> <body> <div class="toto"><p>Blo</p></div> <div class="tata"><p>Bla</p></div> <div class="titi"><p>Bli</p></div> <div class="tata"><p>Ble</p></div> </body> </html>
Je veux recuperer uniquement le contenu de <div class="tata"></div>
Code:

1 2 function GetElementsByClasse(const Doc: IDispatch;const Nom_tag: string ; const classename: string) : IHTMLElementCollection
La fonction resemble à getElementsByTagName en filtrant par les classes.

le problème c'est que j'ai mal à voir comment je peux créer cette fonctions
:cry: :cry:

Sinon j'ai reussi à trouver la fonction getElementById qui peut etre très utile ...

http://www.delphidabbler.com/tips/56
17/06/2008, 16h30
ShaiLeTroll

class est un attribut de div que tu peux récupérr via IHTMLElement.getAttribute (Tag étant ce IHTMLElement)

Merci ShaiLeTroll

Code:

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
function GetElementsByClasse(const Doc: IDispatch;const Nom_tag: string ; const classename: string): IDispatch;
var
  Document: IHTMLDocument2;
  Body: IHTMLElement2;
  Tags: IHTMLElementCollection;
  Tags_retour : IDispatch;
  Tag: IHTMLElement;
  I: Integer;
begin
  Result := nil;
  Tags_retour := nil;
  Body := conv_Doc_IHTMLElement2(Doc);
 
  Tags := Body.getElementsByTagName(Nom_tag);
 
  for I := 0 to Pred(Tags.length) do
  begin
    Tag := Tags.item(I, EmptyParam) as IHTMLElement;
    if AnsiSameText(Tag.className, classename) then
    begin
 
        // On va dire que je suis bloquer dans cette partie
        // comment on peut filtrer le IHTMLElementCollection;
 
     end;
  end;
  Result := Tags_retour;
 
end;

17/06/2008, 16h42
ShaiLeTroll

ton Tag.className, devrait ressemble à Tag.Attributes('class')

Après, tu veux renvoyer une seule instance, donc Result := Tag
ou une liste Collection.Add(Tag);, tu devras toi même instancier ta propre IHTMLElementCollection ou alors je crois que tu peux utiliser une TInterfaceList
17/06/2008, 17h25
Francisco21

Je voudrais recuperer la liste, car il peux avoir plusieurs tags avec le même class.

Surement je pense que c'est mieux que la fonction renvoie directement un IHTMLElementCollection pour rester dans le même principe que la fonction getElementsByTagName()

Et je ne vois pas trop comment instancier IHTMLElementCollection :cry: