Champs fixes dans un fichier texte
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:
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
Champs fixes dans un fichier texte
Alors là, un grand merci. Du tonnerre.
PB
Champs fixes dans un fichier texte
Je sais, j'abuse certainement. La commande "space" place donc les espace à gauche, peut-on les avoir à droite ?
PB
Champs fixes dans un fichier texte
Encore merci pourtout.
PB
