recupérer des données a partir d'un tableau sur un url

Version imprimable

28/02/2014, 15h43
coolirc

recupérer des données a partir d'un tableau sur un url

Bonjour a tous

je souhaite récupérer les informations situé dans un site avec un tableau

par exemple http://site.com/pack.php

le contenu : un tableau avec titre 1 titre 2 titre3 titre 4 .... titre 13
info1 info 2 info3 info4 .... info 13

et pouvoir les récupérer dans un tlistview par ordre .

récupérer 1 récupérer 2 récupérer 3 récupérer 4 récupérer 5 récupérer 6 récupérer 7 jusqu’à 13 récupérer 13

j'ai déjà fait des recherche sur Google j'ai trouver un exemple avec HTML mais j'ai essayer avec PHP ça marche pas .
merci
28/02/2014, 16h35
Linkin

Que la page soit statique (HTML) ou dynamique (PHP) ne change rien au problème.
L'important c'est la structure des données renvoyées (code source de la page).

Pour un tableau en HTML, ça devrait être la balise "table" à parser.

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
//1- Il faut récupérer le source html de la page
     source:=...    {
     - Indy
     - NMHTTP
     - ICS
     - Webbrowser
     - Etc.}
 
//2- Extraire le tableau avec les balises : "<Table...>...</Table> //Maintenant les pages html inclues habituellement plusieurs tableaux il faut donc extraire le bon...
      tableau:=copy(source,debut,fin);
 
//3- Effacer les #10#13
      tableau:=EffaceCars(tableau,[#1..#31]);//n'importe quelle fonction d'effacement
 
//4- Remplacer les </TR> par #10#13 //sépare chaque ligne
      tableau:=Remplace(tableau,'</TR>',#13#10)//n'importe quelle fonction de remplacementt 
                                               //attention au </tr> et </TR>  : Webbrowser donne des balises différentes de indy ou autre -> Uppercase()
 
//5- Affecter une tstringlist avec la chaine précedente
     ligne:=tstringlist.create;
     ligne.text:=tableau;
 
6- Extraire chaque colonne
    colonne:=tstringlist.create;
    for i:=0 to l.count-1 do begin
       colone.text:=remplace(l[i],'<tr>',#13#10);
       ...//transfert dans listview
    end;

Ça c'est le plus simple. Il y a plein de pièges.

Si les pages sont modifiées en temps réel et autre: (Peut-être que les versions plus récente de Delphi (7&+) donne accès au DOM(?html modifié dynamique))
Il faut :
- se servir de webbrowser
- Extraire le texte : équivalent à "CTRL A" suivi de "CTRL C"
- Faire du ménage et là parfois les colonnes sont collées sans espace ou autre repère: des heures de plaisir pour séparer le pain de sucre.