Discussion :

[philippef]

Je récupère une partie de code d'une page html.

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
<!-- COLONNE 1 -->
		<TD WIDTH="80%" VALIGN="TOP">
		  <TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="2" BORDER="0">
		    <TR><TD>Cours</TD><TD align=right><FONT SIZE=2><B>4005.50</B></FONT></TD><TD align=right class=fondup><FONT SIZE=1><BIG><B><span class="vardown">-0.09%</span></B></BIG></FONT></TD></TR>
		    <TR><TD NOWRAP>Cours clôt. préc.</TD><TD ALIGN="RIGHT">4009.02</TD><TD>&nbsp;</TD></TR>
		    <TR><TD COLSPAN="3" BGCOLOR="#696969"><IMG SRC="/i/d.gif" BORDER="0" WIDTH="1" HEIGHT="1"></TD></TR>
		    <TR><TD>Ouverture</TD><TD ALIGN="RIGHT">4011.04</TD><TD>&nbsp;</TD></TR>
		    <TR><TD>+ haut</TD><TD ALIGN="RIGHT">4024.65</TD><TD>&nbsp;</TD></TR>
		    <TR><TD>+ bas</TD><TD ALIGN="RIGHT">4004.20</TD><TD>&nbsp;</TD></TR>
		    <TR><TD COLSPAN=3 BGCOLOR="#696969"><IMG SRC="/i/d.gif" BORDER="0" WIDTH="1" HEIGHT="1"></TD></TR>
		    <TR><TD>Rotation du capital</B></TD><TD ALIGN="RIGHT" COLSPAN="2">N/D</TD></TR>
		    <TR><TD COLSPAN="3" BGCOLOR="#696969"><IMG SRC="/i/d.gif" BORDER="0" WIDTH="1" HEIGHT="1"></TD></TR>
		    <TR><TD COLSPAN="3">(c) cours clôture précédent</TD></TR>
		  </TABLE>
		</TD>
<!-- COLONNE 2-->
			<TD VALIGN="TOP" ALIGN="CENTER"><IMG SRC="/cgi-local/petit_intraday_small?&symbole=1rPCAC&anticache=1108660465" BORDER="0" WIDTH="200" HEIGHT="85"><BR>
		  <TABLE WIDTH="200" CELLPADDING="0" CELLSPACING="2" BORDER="0">
		    <TR><TD COLSPAN="2" BGCOLOR="WHITE"><IMG SRC="/i/d.gif" BORDER="0" WIDTH="1" HEIGHT="2"></TD></TR>
		    <TR><TD>Var./ 1er janv </TD><TD CLASS="fondup" ALIGN="RIGHT"><span class="varup">+4.82%</span></TD></TR>
		    <TR><TD COLSPAN="2" BGCOLOR="#696969"><IMG SRC="/i/d.gif" BORDER="0" WIDTH="1" HEIGHT="1"></TD></TR>
		    <TR><TD>+ Ht année</TD><TD ALIGN="RIGHT">4034.01</TD></TR>
		    <TR><TD>+ Bs année</TD><TD ALIGN="RIGHT">3804.92</TD></TR>
		  </TABLE>
		</TD>
	      </TR>
	      <TR><TD COLSPAN="2"><IMG SRC="/i/d.gif" BORDER="0" WIDTH="1" HEIGHT="1"></TD></TR>
	      <TR>
		<TD>
	    </TABLE>
<BR>
<DIV ALIGN="RIGHT">

Dans mon code j'ai mis :

Code :

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

1
2
3
CodeSrc = WebBrowser1.Document.documentElement.innerHTML
CodeSrc = Replace(CodeSrc, "<!-- COLONNE 1 -->", Empty)
CodeSrc = Replace(CodeSrc, "<TD WIDTH="80%" VALIGN="TOP">, Empty)

Ca marche mais vous voyez le nombre de lignes à écrire

Donc je voudrais savoir si il y a pas un moyen plus imple pour supprimer tout ce qui est entre les balises < et > pour faire ensuite un replace des balises.

Merci d'avance


Y a que l'espoir qui fait vivre

[Tofalu]

Bonjour, il suffit de parser la chaine de caractère et de remplir uen deuxième chaine caractère par caractère

Dés que l'on rencontre un "<" , on conitnue à parser mais sans remplir la deuxième chaine puis qu'en on rencontre un ">" on remplit à nouveau.

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
 
Function SansBalise(Chaine as string) as string
dim Temp as string, C as string
Dim Stopperremplir as boolean
Dim i as integer
While i<=len(chaine)
C=mid(chaine,i,1)
Select case C
 case "<" 
 Stopperremplir=true
 case ">"
 Stopperremplir=false
 case else
 if not stopperremplir Temp=Temp & c
End Select
i=i+1
Wend
Sansbalise=Temp
End function

Quelque chose comme ça devrait faire l'affaire