Split et récuperation des donnéesRésolu

Question

Voila mon probleme:

Dim monTab() As String
monTab = Split(Adodc1.Recordset.Fields("Block").Value, ";")

En fait je coupe:

22;23;24;25;14;3;66;67;68;69;80;91;95;84;73;74;75;76;32;31;30;29;18;7;

Je voudrais par la suite pouvoir utiliser les valeurs pour faire un espece de

picture1(montab(1)).blablabla  

J'obtient un erreur puisque les variables sont en string (Type Mismatch)

n'y aurai-t-il pas un moyen de redim montab en preservant leur valeur en integer ? 

2eme question comment je peux savoir la plus grande valeur de montab(?) je connais absolument rien au tableau
N'y a t-il pas un espece de truc similaire a UBOUND ???? 

merci pour vos reponses !

scrincer · Accepted Answer

OK dsl pour la question je viens de trouver :(

Dim monTab() As String
monTab = Split(Adodc1.Recordset.Fields("Block").Value, ";")
For i = 0 To UBound(monTab)
block = Val(monTab(i))
pbmap(block).Tag = "B"
Next i

Mais tant qu'a y etre j'aurai une question extremement stupide, avec le controle ADODC comment puis-je sauter d'un enregistrement a l'autre sans passer necessairement du 1 a 2 pour aller a 3... je trouve pas la commande qui doit etre asser simple

DblK · Answer

Bonjour,

Juste une petite remarque la boucle suivante :

For i = 0 to Ubound(monTab)
doit être remplacé par
For i = 0 to Ubound(monTab) - 1

Car le tableau commence à 0.
De plus il faut savoir qu'à chaque itération de la boucle, vb recalcul ubound(montab) ; donc cela ralenti ton code pour rien.

Il serait plus judicieux de calculer la valeur de "ubound(montab) -1" dans un integer ou long et de l'utiliser dans ta boucle.

En ce qui concerne ta question sur le controle ADODC je n'en sais rien xD

DblK

jean_marc_n2 · Answer

Hello,

pour calculer la plus grande valeur de ton tableau, il suffit de parcourir tous les élémente et de calculer le maximum au fur et à mesure.

Voici par exemple:

Dim montab()    As String
Dim upBound     As Long
Dim s           As String
Dim i           As Long
Dim Max         As Long

    s = "12;78;45;23;1;98;46;32;91;17;32"
    
    montab = Split(s, ";")
    
    Max = -1
    upBound = UBound(montab)
    For i = 0 To upBound
        If CLng(montab(i)) > Max Then
            Max = CLng(montab(i))
        End If
    Next i
    
    MsgBox "Plus grande valeur de montab() : " & Max

Pour tout ce qui concerne la manipulation de chaînes de caractères, je te conseille la lecture de ces 2 articles du site de la FAQ VB:

http://faq.vb.free.fr/index.php?question=188

et

http://faq.vb.free.fr/index.php?question=187

Tu y trouveras du code prêt à l'emploi, des explications détaillées et de nombreux liens vers la documentation de Visual Basic concernant ces questions.

Cordialement;

(jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/

Split et récuperation des données

3 réponses

Votre réponse

Discussions similaires