Discussion :

[pimprenelle57]

Bonjour,

j'ai des données sous la forme d'un tableau normesplots (iindex, n).

Je voudrais faire quelque chose qui ressemble à

Code :

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

Print #1, iindex, normesplots (iindex, n), ..., normesplots(iindex, i), ...,normesplots (iindex, File1.ListIndex)

Or je n'ai pas trouvé comment introduire une boucle for pour ne pas taper à la main les 150 fois "normesplots()" (sachant que ça n'est pas toujours 150)
Y a-t-il une façon de faire propre?

Merci! (c'est pour faire avancer la science d'une pauvre thésarde biophysicienne un peu (beaucoup) nulle en programmation...)

Pimprenelle

EDIT : j'ai des données qui sont dans une matrice et que je souhaite récupérer dans un fichier texte sous cette forme, et non sous forme de colonne comme on le faisait jusqu'à maintenant.

[Najdar]

Bonjour pimprenelle57,

Regarde la fonction Join qui renvoi une chaine de carectères contenant tous les éléments d'un tableau séparés par le séparateur de ton choix.

La fonction Split fait l'inverse : d'une chaine elle crée un tableau

[Asdorve]

tu as une fonction UBound qui renvoie une valeur de typeLong contenant le plus grand indice disponible pour la dimension indiquée d'untableau.

Tu fais

Code :

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

1
2
3
4
5
6
7
8
 
NbreElement = UBound (NomTableau)
 
For i = 0 to NbreElement
 
Print ...
 
Next

J'espère avoir bien compris ta demande....

++

[avigeilpro]

Voici un petit exemple qui parcours tout un tableau de dimension (A,B) et loge les valeurs dans une variable texte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim iindex As Integer
Dim nindex As Integer
Dim Total As String
Dim MonTab(A,B) As Integer
 
Total = ""
 
For iindex = 0 to A
For nindex = 0 to B
Total = Total & MonTab(iindex,nindex) & ";"
Next
Next

Le tableau est parcouru par lignes, les valeurs sont séparées par des ";" ce qui equivaut à :

Code :

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

1
2
3
4
5
 
Total = MonTab(0,0) & ";" & MonTab(0,1) & ";" & ... & MonTab(0,B) & ";"  & _
MonTab(1,0) & ";" & ... & MonTab(1,B) & ";" & _
..... & _
MonTab(A,0) & ";" & ... & MonTab(A,B) & ";"

En esperant avoir répondu à ta question.

[SfJ5Rpw8]

bonjour pimprenelle57 ... et bienvenue sur le forum ...

pourrai-tu être plus claire sur ce que tu désire obtenir dans le fichier ...?

[pimprenelle57]

J'ai eu ce que je voulais avec la dernière solution (je ne dis pas que les autres ne fonctionnent pas, mais j'avais une erreur avec la première et j'ai pas compris la deuxième )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For iindex = numeroimage To File1.ListCount - 1
LineOfText = ""
 
    For nbplotselec = 0 To totalplotselec - 1
        LineOfText = LineOfText & listenormes(nbplotselec) & " "
    Next nbplotselec
 
    nomfichierresult = chemin$ + "toutes les normes triees.txt"
    Open nomfichierresult For Append As #1
    Print #1, LineOfText
    Close #1
 
Next iindex

Et là, ça ressemble enfin à un fichier exploitable.

Merci beaucoup à tous, vous êtes en plus rapides comme l'éclair!