Discussion :

[noarno]

salut voila j'aimerais votre avis sur un pb,
en gros j'essai de récupérer des informations dans des pages html(composé casiment que d'un tableau+title+body...) pour les mettre dans une bdd. la structure est déjà faite. maintenant je dois trouver un moyen pour extraire les données des tableaux et les insérer dans ma bdd?

Est ce que c'est faisable? Est ce que quelqu'un a deja vu des scripts pour faire ce genre de chose? Merci d'avance pour vos conseils.

En fait j'ai un début de script pour essayer de stocker le contenu des balises dans un tableau mais je suis bloqué sur une erreur : "Indice en dehors de la plage '2'"

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
 
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("TestDico/")
Fnm = dir & "\D_acquis.html"
 
if FSO.FileExists(Fnm) then 
	set inF = FSO.OpenTextFile(Fnm,1,false)
	contenu = inF.readAll
 
	Dim regEx
	Dim tab
	Dim i
	i=0
	Set regEx = New RegExp
	regEx.Global = True
	' ^ signifie "tout sauf"
	' + signifie 1 car au moins
	regEx.Pattern = "<[^>]+>"
	' remplace par vide
	notag = regEx.replace(contenu,"")
	tab = split(notag,"")
 
	For i = 0 to 50
		response.write tab(i)
		i=i+1
	Next
 
	response.write notag
	inF.close
Else
	Response.write ("bouuuuuuuuuuuuu")
End If
%>

[jérôme]

Code :

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

1
2
3
4
For i = 0 to 50
      response.write tab(i)
      i=i+1
   Next

Comment sais-tu que ton tableau tab possède 51 éléments ?
Utilise plutôt ubound() pour le calculer

[noarno]

merci pour le bug, c t ça