Discussion :

[phberanger]

Bonjour à toutes et tous

Avec une commande exchange powershell, je génère un fichier csv avec la taille des boites, le nom, etc...
Je veux le transformer en fichier txt, mais je voudrais que tous les champs possèdent la même longueur, un exemple sera plus clair

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
17
18
Set BAL_TXT = objFSO.CreateTextFile("C:\Taille_Bal.txt",true)
 
BAL_TXT.writeline "Nom de la Bal" & vbTab & "Taille de la Bal" & vbTab & "Nb messages" & vbtab & "Dernière connexion" & vbtab & "Dernière déconnexion" & vbCrLf
 
Const ForReading = 1
Set BAL_CSV = objFSO.OpenTextFile("C:\Taille_Bal.csv", ForReading)
 
Do Until BAL_CSV.AtEndOfStream
 
        strNextLine = BAL_CSV.Readline
        FIELD_SEPARATOR = Split(strNextLine,",")
	Name_Bal = FIELD_SEPARATOR(0)
	Size_Bal = FIELD_SEPARATOR(1)
	Item_Bal =FIELD_SEPARATOR(2)
	Last_Logon = FIELD_SEPARATOR(3)
	Last_Logoff = FIELD_SEPARATOR(4)
	BAL_TXT.writeline Name_Bal & vbTab & Size_Bal & vbTab & Item_Bal & vbTab & Last_Logon & vbTab & Last_Logoff  
Loop

Mon fichier txt généré en sortie n'estpas tabulé à cause de la longueur variable des noms prénoms

Nom de la Bal Taille de la Bal Nb messages Dernière connexion Dernière déconnexion

Andre Dupont 9220847175B 65154 20/11/2008 19:03:58" "20/11/2008 19:19:50"
Toto 404476046B 10791 "20/11/2008 08:50:12" "20/11/2008 16:45:20"
Rene beranger 42289530B 405 "20/11/2008 10:03:43" "20/11/2008 18:40:45"

En fait, je voudrais réserver par exemple 20 caracteres pour le nom de la bal, 15 pour la taille, etc... afin que tout soit aligné dans le fichier texte en sortie.

Merci pour vos avis
PB

[pc75]

Bonjour,

20 caracteres pour le nom de la bal

Comme ça ?

Code :

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

1
2
 
Bal = Space(20 - Len(Bal)) & Bal

[phberanger]

Alors là, un grand merci. Du tonnerre.

PB

[phberanger]

Je sais, j'abuse certainement. La commande "space" place donc les espace à gauche, peut-on les avoir à droite ?

PB

[pc75]

Re,

Tu n'as qu'a inverser la concaténation :

Code :

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

1
2
 
Bal = Bal & Space(20 - Len(Bal))

[phberanger]

Encore merci pourtout.

PB

[pc75]

Alors, un petit clic sur le bouton "Résolu" !