Aligner en colonne

**Slumpy** · 24/04/2007, 15h34

Salut,

dans mon code j utilise ceci :

Code :

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

1
2
3
4
5
6
7
For irow = Startevent(EventID) To Endevent(EventID)
                For ncol = 0 To (nbrColumn - 1)
                    Redfile.Write(Tablebestyears(irow, ncol))
                    Redfile.Write("  ")
                Next
                Redfile.WriteLine()
            Next

ce qui me donne par exemple :

3080 2 3 9 0.2
3080 2 3 10 0
3080 2 3 11 0
3080 2 3 12 0
3080 2 3 13 0
3080 2 3 14 0
3080 2 3 15 0
3080 2 3 16 0.5
3080 2 3 17 3.1
3080 2 3 18 3.1
3080 2 3 19 3.1
3080 2 3 20 2.1
3080 2 3 21 0.6
3080 2 3 22 0
3080 2 3 23 0
3080 2 4 0 0
3080 2 4 1 0
3080 2 4 2 0
3080 2 4 3 0
3080 2 4 4 0.4

ce que je voudrais faire, c aligner a gauche chacune de mes colonnes. Mais j avoue que je n ai pas trouve. Si quelqu un sait comment faire.

Merci

**Jere76** · 24/04/2007, 15h38

avec un tableau ca marche pas ??

**Slumpy** · 24/04/2007, 15h44

Pardon ?

Mes donnees sont dans un tableau. J ecris dans un fichier .txt

**Jere76** · 24/04/2007, 15h50

je voulais parler d'un tableau de type Html <table><td><tr>.... Ca te permettrai de faire des alignements.
Mais dans un fichier .txt je sais pas trop comment ca va reagir.

**remy_74** · 24/04/2007, 16h14

Envoyé par Jere76

je voulais parler d'un tableau de type Html <table><td><tr>.... Ca te permettrai de faire des alignements.
Mais dans un fichier .txt je sais pas trop comment ca va reagir.

Essaye plutôt avec des Vbtab a la place des Redfile.Write(" ")..

**Slumpy** · 24/04/2007, 16h27

Ha oui voila !

me semblait bien que j avais deja utilise un truc tout con mais bien pratique pour faire ca ! Merci Remy.

Mon code est maintenant :

Code :

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

1
2
3
4
5
6
7
For irow = Startevent(EventID) To Endevent(EventID)
                For ncol = 0 To (nbrColumn - 1)
                    Redfile.Write(Tablebestyears(irow, ncol))
                    Redfile.Write(vbTab)
                Next
                Redfile.WriteLine()
            Next

et il donne par exemple :

3080 1 25 8 0
3080 1 25 9 0
3080 1 25 10 0
3080 1 25 11 0
3080 1 25 12 0
3080 1 25 13 1.7
3080 1 25 14 2.2
3080 1 25 15 2.2
3080 1 25 16 0.5

Encore merci.

Tant que j y suis, j aurais une autre question un peu similaire. Y a t il un moyen de definir que tel nombre doit etre place entre la colonne tant et tant et aligne a droite dans cette fenetre ?

**remy_74** · 24/04/2007, 16h44

Et si tu fait un truc genre :

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
 
For irow = Startevent(EventID) To Endevent(EventID)
                For ncol = 0 To (nbrColumn - 1)
                    Redfile.Write(Tablebestyears(irow, ncol))
                    Select Case ncol
                    case 0
                    Redfile.Write(vbTab)                     
                    case 1
                    Redfile.Write(vbTab & vbtab)
                    case 2
                    Redfile.Write(vbTab)
                    end select
                    Redfile.Write(vbTab)
                Next
                Redfile.WriteLine()
            Next

**Slumpy** · 24/04/2007, 16h58

Si je fais ce que tu dis remy, j ai donc :

2 tabulations entre le premier et second nombre,
3 tab entre le 2 et 3ieme
2 entre le 3 et 4ieme
et enfin 1 tab entre le 4 et 5 ieme

Ce que tu proposais remplacer : Redfile.Write(" ") par Redfile.Write(vbTab). C est exactement ce que j essayais de retrouver. J avais utilise ca par le passe et je n arrivais plus a me rappeler du mot cle vbTab

.

Ma deuxieme question :

Tant que j y suis, j aurais une autre question un peu similaire. Y a t il un moyen de definir que tel nombre doit etre place entre la colonne tant et tant et aligne a droite dans cette fenetre ?

Est differente. Je n ai jamais fait ca et ne pense pas que la solution passe par Vbtab. Je me disais que ptet qu il faut que je definisse des string de longueur defini et que je convertisse mes valeurs en string avant de les ecrires.

(en fait ce que je dois faire c produire un fichier txt qui vas servir d input dans un logiciel commercial. Donc il faut que je mette les donnees dans les bonnes colonnes pour que le logiciel puisse les lire.

**remy_74** · 24/04/2007, 17h04

bah je vois pas trop ce que tu veux faire alors..
Faut que je me remette au café..

**Slumpy** · 24/04/2007, 17h28

Arf, suis surement pas assez clair.

Ce que je veux faire c :

La colonne 1 a 5 doit stoker le numero ID de l evenement
la colonne 7 et 8 le jour
8 et 9 le mois
10 a 13 l annee
21 a 25 un nombre qui represente une information quelconque
26 a 30 une autre information ....

arf, suis pas sur d etre plus clair en fait

**s.n.a.f.u** · 25/04/2007, 10h11

Envoyé par Slumpy

(en fait ce que je dois faire c produire un fichier txt qui vas servir d input dans un logiciel commercial. Donc il faut que je mette les donnees dans les bonnes colonnes pour que le logiciel puisse les lire.

Il me semble que dans cette optique, le fichier à longueur fixe, c'est un peu old school.
Un fichier délimité est plus simple à faire, donc à maintenir, et peut servir de source de données sans problèmes. Le tout est de choisir un séparateur correct.
Personnellement, j'aime bien le "#"

**Slumpy** · 25/04/2007, 10h25

Citation:
Slumpy a écrit :
(en fait ce que je dois faire c produire un fichier txt qui vas servir d input dans un logiciel commercial. Donc il faut que je mette les donnees dans les bonnes colonnes pour que le logiciel puisse les lire.

Il me semble que dans cette optique, le fichier à longueur fixe, c'est un peu old school.
Un fichier délimité est plus simple à faire, donc à maintenir, et peut servir de source de données sans problèmes. Le tout est de choisir un séparateur correct.
Personnellement, j'aime bien le "#"

Je ne developpe pas le logiciel commercial, je dois juste produire les donnees qui seront utilise dans le logiciel, et d apres ce que j ai compris, le fichier doit etre construit avec ce genre d idee. Col 1-5 tel truc, 7-8 tel truc ...

**remy_74** · 25/04/2007, 10h28

Si j'ai bien compris (deux double café à mon actif

) tu veux etre sur que dans la premiere colonne (par exemple) ca soit un type particulier (genre date)..
C'est ca ou je passe le café en intra ?

**Slumpy** · 25/04/2007, 10h39

C'est ca ou je passe le café en intra ?

heu ... va falloir songer a l intra

Je rereformule mon probleme LOL :

Imaginons que j ai une variable TOTO qui est un vecteur contenant :

TOTO(0)=1.23
TOTO(1)=15.245
TOTO(2)=165648

je voudrais que c nombres soient copie dans un fichier .txt entre les colonnes 7-15. Avec les valeurs alignees a droite, c est a dire pour toto(0) le 3 dans la colonne 15, pour toto(1) le 5 dans la colonne 15 et pour toto(2) le 8 dans la colonne 15.

C est plus clair chef ?

(desole pour les accents, clavier powa !)

**s.n.a.f.u** · 25/04/2007, 10h42

Tu peux utiliser la méthode générique ToString qui prend un format en argument.
Ensuite, à toi de trouver le bon format suivant ta donnée.

Un début de piste : http://msdn2.microsoft.com/en-us/lib...21(VS.71).aspx

**Slumpy** · 25/04/2007, 11h39

Ok je crois crois que j ai la soluce ^^ :

If you want a fixed-length field of 7 chars, try

X.ToString().PadLeft(7)

Note that if ToString produces more than 7 characters, then PadLeft will do nothing. So you will still have more than 7 chars.

If that's a possibility with your data, you need to think how you want to truncate.

One option

DIM XStr as string, XOut as string
XStr=X.ToString()
IF XStr.Length > 7 THEN
XOut=XStr.Left(7) ' Use first 7 chars
ELSE
XOut=XStr.PadLeft(7)
END IF

If you have to use the same logic in several places, write your own function to incorporate the logic.

Merci a tous

**Slumpy** · 25/04/2007, 14h30

Arf, j ai un nouveau probleme.

imaginons que j ai deux entiers X egal a 1 et Y a 15

Si j ustilise

Code :

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

X.ToString().PadLeft(2) et Y.ToString().PadLeft(2)

Je vais obtenir :
1 (pour X)
15 (pourY)

Comment faire si je veux :
01 (pour X)
15 (pour Y)

Hein comment faire ?

Pour l instant je fais comme ca :

Code :

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

1
2
3
4
5
6
7
8
If Tablebestyears(Startevent(EventID), 1) < 10 Then
                Redfile.Write("0")
                Redfile.Write(Tablebestyears(Startevent(EventID), 1).ToString.PadLeft(1))
            ElseIf Tablebestyears(Startevent(EventID), 1) < 13 Then
                Redfile.Write(Tablebestyears(Startevent(EventID), 1).ToString.PadLeft(2))
            Else
                MsgBox("problem in month determination")
            End If

mais c un peu bourrin comme methode je pense