Tableau de String en tableau d'Integer

Version imprimable

12/04/2012, 15h27
brownthefou

Tableau de String en tableau d'Integer

Bonjour à tous,

Je suis actuellement en projet et je dois gérer des fichiers textes bruts.

Pour se faire je récupère toutes les données d'un fichier texte dans un tableau, ce tableau étant obligatoirement en string car pour récupérer ces valeurs j'utilise la fonction "split".

Cependant il m'est demandé d'effectuer des opérations à partir des valeurs récupérées sur le fichier texte ( une moyenne en l'occurence).

Pour se faire il me faudrait convertir mes strings en integers car il y a une incompatibilité de type quand j'additionne mes strings...

Si qqun a une idée, je suis preneur !

Cordialement
12/04/2012, 15h33
Jean-Philippe André

salut,

peux-tu nous donner ton code VBA actuellement utilisé, qu'on puisse s'en servir de base et te donner des pistes les plus adéquates avec ton code existant ? :ccool:

Pour "forcer" la lecture en nombre, tu auras deux choses à faire
- vérifier que la chaîne de caractères correspondrait à une valeur numérique (IsNumeric())
- caster la chaîne de caractères en valeur numérique (CDbl())

Je vais essayé d'intégrer tout ça, merci beaucoup.
Je t'envoie une petite partie de mon code qui en l'occurence me gène.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim Tab_fin() As String
    Dim Tab_moy() As Variant
    'insérer les moyennes
        'mode read
 
    Set oTs = fso.OpenTextFile(sFichierTxt, ForReading)
 
    While Not oTs.AtEndOfStream
        sContenu1 = oTs.ReadAll
    Wend
    oTs.Close
 
    ' création de différents tableaux
    Tab_fin = Split(sContenu1, Chr(9))
    Tab_moy = Split(sContenu1, Chr(9))
 
    'calcul de la moyenne glissante
    x = nb_mod * nb_param + 1
    For i = (nb_param + 2) To UBound(Tab_moy)
        Tab_moy(i) = (Tab_moy(i) + Tab_moy(x + i) + Tab_moy(2 * x + i) + Tab_moy(3 * x + i) + Tab_moy(4 * x + i) + Tab_moy(5 * x + i) + Tab_moy(6 * x + i) + Tab_moy(7 * x + i) + Tab_moy(8 * x + i) + Tab_moy(9 * x + i)) / 10
    Next i

Du coup si je fais ce que tu m'as recommandé, je peux remettre les valeurs numériques dans un autre fichier texte directement ou je dois faire une manipulation inverse ?

Cordialement

PS : gg les 10 000 points

12/04/2012, 15h57
Jean-Philippe André
Merci :oops:

un changement simple du code avec

Code:

Tab_moy(i) = (Cdbl(Tab_moy(i)) + Cdbl(Tab_moy(x + i)) + Cdbl(Tab_moy(2 * x + i)) + Cdbl(Tab_moy(3 * x + i)) + Cdbl(Tab_moy(4 * x + i)) + Cdbl(Tab_moy(5 * x + i)) + Cdbl(Tab_moy(6 * x + i)) + Cdbl(Tab_moy(7 * x + i)) + Cdbl(Tab_moy(8 * x + i)) + Cdbl(Tab_moy(9 * x + i))) / 10

à voir qu'on pouvait faire un peu plus direct avec une boucle :D
Code:

1 2 3 4 For j = 0 to 9 Tab_moy(i) = Tab_Moy(i) + Cdbl(Tab_moy(j*x+i)) Next j Tab_moy(i) = Tab_moy(i)/10

J'ai toujours une incompatibilité de types.
J'ai essayé de décomposer au maximum mon code pour voir ou ça aurait pu buguer mais je ne trouve toujours pas :
Code:

1 2 3 4 5 6 7 8 9 10 11 ' création de différents tableaux Tab_fin = Split(sContenu1, Chr(9)) Tab_moy = Split(sContenu1, Chr(9)) 'calcul de la moyenne glissante x = nb_mod * nb_param + 1 y = 0 For i = (nb_param + 2) To UBound(Tab_moy) Tab_num(y) = (CDbl(Tab_moy(i)) + CDbl(Tab_moy(x + i)) + CDbl(Tab_moy(2 * x + i)) + CDbl(Tab_moy(3 * x + i)) + CDbl(Tab_moy(4 * x + i)) + CDbl(Tab_moy(5 * x + i)) + CDbl(Tab_moy(6 * x + i)) + CDbl(Tab_moy(7 * x + i)) + CDbl(Tab_moy(8 * x + i)) + CDbl(Tab_moy(9 * x + i))) / 10 y = y + 1 Next i
Incompatibilité toujours au niveau de "l'indice de Tab_num" avec:

Code:

Dim Tab_num() as Double

pour coincider avec tes CDbl.

Tu aurais une idée du pourquoi et du comment changer ça ?

Cordialement

Ca commence à devenir du grand n'importe quoi.

Tu es sur qu'il n'y a pas une autre commande pour covnertir ma chaine en valeur ?

En effet, au bout d'u nmoment je me suis mis à vérifier que c'était bien des nombres avec la fonction IsNumeric, et bah en fait ça me renvoie faux...

En déboguant je regarde dans mon tableau Tab_moy et pourtant ce sont bien des nombres ... !

Incroyable, je ne comprends pas ce qu'il faut que je fasse pour avancer.

Tab_moy :
"blabla"
"blabla"
"nbre1"
"nbre2"
"nbre3"
Etc...

blabla ==> chaine de caractère (lettre)

Cependant je saute les deux premiers blabla avec ma boucle donc normalement, vu que tous les autres paramètres de ce tableau sont des nombres, le CDbl(Tab_moy(i)) devrait marché.

En plaçant la souris sur CDbl(Tab_moy(i)) en déboguant, il y a encore marqué incompatibilité de types...

Donc la je rame, je coule même.

Si tu as une astuce quelconque pour m'aider, je suis preneur ou alors n'importe qui pouvant m'apporter une aide quelconque n'hésitez pas même s'il me faut recommencer mon code !

Cordialement

13/04/2012, 10h16
Jean-Philippe André
:koi:

tu as un exemple de valeur stp ?

on peut avoir le coup du "," vs "." comme virgule, avec des paramètres régionaux qui font des misères :calim2:

exemple sur mon poste :
Code:

1 2 3 4 ?isnumeric("5.5") Faux ?isnumeric("5,5") Vrai
13/04/2012, 10h28
brownthefou

En effet ce sont des '.' pas des ',' dans les cellules !

Je vais essayer de modifier ça et je te tiens au courant.

Sinon pour les valeurs je vais de :

"0.xxxxxxxxxxxxxxx" (15 x !)
La valeur avec le plus de décimales possibles

"100"
La valeur la plus grande ateignable dans mon tableau sans décimales

Sachant que ces valeurs peuvent parfois être négative mais je ne pense pas que ça soit ça qui change; enfin maintenant plus rien ne m'étonne !

Merci de ton aide en tout cas, je reviens rapidement !
13/04/2012, 10h31
Jean-Philippe André

il faut faire un replace du "." par le "," dans ton code, ca roulera tout seul :)

En effet, tu avais bien raison !
Les "." et les "," créaient des soucis.

J'ai donc modifié mon code pour changer ces points en virgules.

J'ai (encore) une erreur toujours à la même ligne, en me disant que "l'indice n'appartient pas à la sélection"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 sContenu2 = Replace(sContenu1, Chr(9) & Chr(9), Chr(9)) sContenu2 = Replace(sContenu2, ".", ",") sContenu2 = Replace(sContenu2, vbCrLf, "") ' création de différents tableaux Tab_fin = Split(sContenu1, Chr(9)) Tab_moy = Split(sContenu2, Chr(9)) 'calcul de la moyenne glissante x = nb_mod * nb_param + 1 y = 0 For i = (nb_param + 1) To UBound(Tab_moy) 'UBound(Tab_moy) - 1 Tab_num(y) = CStr((CDbl(Tab_moy(i)) + CDbl(Tab_moy(x + i)) + CDbl(Tab_moy(2 * x + i)) + CDbl(Tab_moy(3 * x + i)) + CDbl(Tab_moy(4 * x + i)) + CDbl(Tab_moy(5 * x + i)) + CDbl(Tab_moy(6 * x + i)) + CDbl(Tab_moy(7 * x + i)) + CDbl(Tab_moy(8 * x + i)) + CDbl(Tab_moy(9 * x + i))) / 10) y = y + 1 'erreur sur ce y Next i
Je n'ai pas définit le "y" pensant que ça n'importe pas dans le code vu qu'il est définit par le For.

En tout cas tu m'as fait avancer d'un bon pas car ces points me rendaient fou !

Cordialement

13/04/2012, 10h55
Jean-Philippe André

il faut dimensionner ton tableau tab_num pour cela ;)
mots clé
Redim et Preserve :)

Tu as du génie !

Le tableau reçoit les bonnes valeurs en paramètre avec le redim preserve, cependant l'erreur "l'indice n'appartient pas à la sélection apparait toujours et me fais arréter mon exécution, saurais-tu pourquoi ?
Code:

1 2 3 4 5 6 y = 0 For i = (nb_param + 1) To UBound(Tab_moy) 'UBound(Tab_moy) - 1 ReDim Preserve Tab_num(y) Tab_num(y) = CStr((CDbl(Tab_moy(i)) + CDbl(Tab_moy(x + i)) + CDbl(Tab_moy(2 * x + i)) + CDbl(Tab_moy(3 * x + i)) + CDbl(Tab_moy(4 * x + i)) + CDbl(Tab_moy(5 * x + i)) + CDbl(Tab_moy(6 * x + i)) + CDbl(Tab_moy(7 * x + i)) + CDbl(Tab_moy(8 * x + i)) + CDbl(Tab_moy(9 * x + i))) / 10) y = y + 1 Next i
(En déboguant le tableau à les bonnes valeurs à la bonne place donc presque gagné !!)

Cordialement

13/04/2012, 11h08
Jean-Philippe André

Il suffit de comparer Ubound(tab_moy) et 9 * x + i

Tu ne peux demander une valeur tab_moy(aa) si aa est > Ubound(tab_moy)-1, donc il y a astuce à trouver ;)
13/04/2012, 14h49
brownthefou

Encore une ou deux erreurs dans mon code mais qui ne dépendent plus de ça.
Merci beaucoup pour ton aide JPcheck
:ccool: