Créer un tableau d'un string avec evaluate

Version imprimable

20/10/2015, 15h09
patricktoulon

Créer un tableau d'un string avec evaluate
Bonjour a tous
Dans ma précedente discussion ,dans divers exemple que l'on m'a proposé il y en a un qui m'interesse

la fonction evaluate sur join(une chaine splitée) donne un tableau
exemple
Code:

1 2 chaine=split("1 2 3 4 5 6 7 8 9") tablo2 = Evaluate("{" & Join(chaine),"," & "}") 'DONNE UN TABLEAU A 1 LIGNE
pour plusieur ligne il a été dis que la chaine soit scinder par un ";"

donc normalement si je fait
Code:

1 2 chaine=split("1 2 3 4 5 6 7 8 9 ;10 20 30 40 50 60 70 80 90") tablo2 = Evaluate("{" & Join(chaine),"," & "}") 'DONNE UN TABLEAU A 2 LIGNE
non?? ou je n'ai pas compris quelque chose ??

join(tablo) donne bien une chaine string non??

donc si je met
Code:

1 2 chaine="1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90" tablo2 = Evaluate("{" & chaine & "}") 'DONNE UN TABLEAU A 2 LIGNE
merci pour le retour
20/10/2015, 15h21
mercatog
Bonjour Patrick
Pour voir, mets un
Code:

1 2 Debug.Print Tablo2(1, 3) Debug.Print Tablo2(2, 4)
20/10/2015, 15h42
Marc-L
Salut Patrick !

Comme je l'avais précisé en préambule dans ta précédente discussion,
comme indiqué dans l'aide VBA des fonctions texte Filter, Join & Split,
c'est uniquement pour une matrice d'une seule dimension …

chaine = Split("1 2 3 4 5 6 7 8 9 ;10 20 30 40 50 60 70 80 90") :

ici comme le délimiteur n'est pas précisé, c'est donc par défaut l'espace
et tu obtiens donc une variable tableau unidimensionnelle, le ; étant un caractère comme un autre …

Pour créer une matrice de deux dimensions : tablo = [{1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90}] …

En passant par Split, il faut décomposer :

tablo = Evaluate("{" & Join(Split("1 2 3 4 5 6 7 8 9"), ",") & ";" & Join(Split("10 20 30 40 50 60 70 80 90"), ",") & "}") …

Mais vu la chaine source, c'est plus simple sans Split via la fonction Replace :
Code:

1 2 chaine = "1 2 3 4 5 6 7 8 9 ;10 20 30 40 50 60 70 80 90" tablo2 = Evaluate("{" & Replace(Replace(chaine, " ;", ";"), " ", ",") & "}")
_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

Bonjour,
peut-être comme cela si j'ai bien compris ta demande :
Code:

1 2 chaine = Split("1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90", ";") tablo2 = Evaluate("{" & chaine(0) & ";" & chaine(1) & "}")
A+

20/10/2015, 16h21
patricktoulon

re

re
Bonjour Davido
Ok ca fonctionne
et maintenant comment intégrer plus de ligne
sans devoir faire chaine(1) & chaine(2) etc......
car ma chaine peut aller de 55 à 74 lignes
20/10/2015, 16h40
Marc-L

Si tu pars d'une table HTML, connaissant déjà le nombre de colonnes et de lignes,
je passerais directement par une variable tableau et une classique boucle imbriquée …
20/10/2015, 16h45
davido84
Pourquoi passer par un Split ?
Code:

1 2 chaine = Array("1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90;100,200,300,400,500,600,700,800,900") tablo2 = Evaluate("{" & Join(chaine) & "}")
ou

Code:

chaine = Evaluate("{1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90;100,200,300,400,500,600,700,800,900}")

Ne fait-il pas l'affaire ?
A+
20/10/2015, 17h00
patricktoulon

re

salut Marc
je ne passe pas par un tablo en 2 boucleS imbriquées parce que le code html des tables est une véritable infestation
des cellules vide des sous elemS etc...

exemple

sur la page web

1,,2,3,,,4

OU
1.2,3;4

parfois même 3 éléments dans un même TH

Voila comme tu peut le voir je suis obligé de traiter le innertext de chaque éléments

bref
j'arrive a la fin
avec un texte du genre
exemple
nom1 |1|2|3|4|5|6|7|8|9
NOM2|1|2|3|4|5|6|7|8|9
un replace sur les saut de ligne par un point virgules et le"|" par une virgule et voila
Les numéros étant différents bien sur

davido
quand je met le texte comme tel dans le evaluate ca ne fonctionne pas

du genre

Code:

chaine = Evaluate("{1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90;100,200,300,400,500,600,700,800,900}")

Comment ça ? Cela te crée bien un Tableau non ?
J'ai testé chez moi et cela fonctionne...
A+
Code:

1 2 3 4 Sub c() chaine = Evaluate("{1,2,3,4,5,6,7,8,9;10,20,30,40,50,60,70,80,90;100,200,300,400,500,600,700,800,900}") MsgBox UBound(chaine) & " - " & UBound(chaine, 2) End Sub
te ramène bien un résultat non ?

re
bon pour ne pas tergiverser voila le code entier qui récupère les cellules des tables des 4 pages

le résultat dans la fenêtre d'exécution est sans appel il est parfait pour mes deux tableaux mais toujours rien dans le sheets

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub tableau()
 
    Dim i As Long, Ie1, url(4), supp, tablo1, tablo2
    url(1) = "http://www.pronostics-turf.info/fg-pronostics-presse.php"
    Set dico = CreateObject("Scripting.Dictionary")
    Set Ie1 = CreateObject("internetexplorer.application")
    Ie1.Visible = False
    Ie1.navigate url(1)
    Do: DoEvents: Loop While Ie1.readystate = False Or Ie1.busy
    codehtml = Ie1.document.body.innerhtml
       Set fauxdoc = CreateObject("htmlfile")
    For p = 1 To 5
        'Debug.Print Ie1.locationurl
        With fauxdoc
            .write codehtml
            Set mestables = .getelementsbytagname("TR")
            For i = 0 To mestables.Length - 1
                If mestables(i).innertext Like "*" & "PRONOSTICS EN DÉTAIL:" & "*" Then Exit For
                For Each elem In mestables(i).all
                    If IsNumeric(Trim(elem.innertext)) Then elem.innertext = "|" & Trim(elem.innertext)
                Next
                If Not dico.exists(mestables(i).innertext) Then
                    dico(mestables(i).innertext) = ""
                    ligne = Replace(Replace(mestables(i).innertext, vbCrLf, " "), "   ", " ")
                    If ligne Like "*" & "[1-9]" & "*" Then codi = codi & ligne & vbCrLf
                End If
            Next
        End With
        passe = Ie1.locationurl = "http://www.pronostics-turf.info/suite3-pronostics-presse-hippique.php"
        On Error Resume Next
        For Each elem In Ie1.document.all
            Select Case passe
            Case True
                If elem.tagname = "A" And elem.outerhtml Like "*" & "liste-synthese" & "*" Then elem.Click: Exit For
            Case False
                If elem.tagname = "A" And elem.outerhtml Like "*" & "suite" & "*" Then elem.Click: Exit For
            End Select
        Next
        Err.Clear
          Do: DoEvents: Loop While Ie1.readystate = False Or Ie1.busy
        codehtml = Ie1.document.body.innerhtml
    Next
    Ie1.Quit
 
 
 
codi1 = Replace(Replace(Split(codi, "Places")(0), "|", ","), vbCrLf, ";")
codi2 = Replace("Places" & Replace(Split(codi, "Places")(1), "|", ","), vbCrLf, ";")
Debug.Print codi1
Debug.Print "suite page "
Debug.Print codi2
tablo1 = Evaluate("{" & codi1 & "}")
tablo2 = Evaluate("{" & codi2 & "}")
Cells(Rows.Count, 1).End(xlUp).Resize(UBound(tablo1), 9) = tablo1
Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).Resize(UBound(tablo2), 16) = tablo2
End Sub

20/10/2015, 20h58
davido84
Code:

codi2 = Replace("Places" & Replace(Split(codi, "Places")(1), "|", ","), vbCrLf, ";")

ne ramène rien.
Pas plus que
Code:

1 2 3 tablo1 = Evaluate("{" & Join(codi1, ";") & "}") tablo2 = Evaluate("{" & codi2 & "}")
A priori je ne pense pas qu'Evaluate soit la solution mais pour t'en dire plus il faudrait savoir exactement ce que tu veux ramener dans Tablo1 et Tablo2.
N'hésite pas à inscrire manuellement sur un fichier le résultat attendu pour que l'on comprenne mieux.
A+
20/10/2015, 22h35
patricktoulon

re

re

Citation:

mais pour t'en dire plus il faudrait savoir exactement ce que tu veux ramener dans Tablo1 et Tablo2.

a tu regardé dans la fenêtre d'exécution ???
20/10/2015, 22h57
davido84

Oui bien sûr !
codi1 me ramène bien la chaîne de caractères
codi2 ne me ramène rien (en tout cas une chaîne sans aucun caractères, que des espaces à la limite)
tablo1 ne ramène rien et tablo2 provoque une erreur 2015.
A+
20/10/2015, 23h02
patricktoulon

re

oui ca me le fait de temps en temps il faut relancer j'ai pas encore trouver le moyen de passer a coup sur la 4 eme page c'est du a la protection anticopie du site