Tabulation dans un fichier texte

**phberanger** · 07/12/2007, 11h29

Bonjour à tous,

Suite à mon post d'hier (réglé, merci à CED 600 pour le lien), je récupère don un fichier texte avec tous les softs installés, par ex:

Mozilla Firefox (2.0.0.11) Version: 2.0.0.11 (fr)
Mozilla Thunderbird (2.0.0.9) Version: 2.0.0.9 (fr)
Adobe Reader 8.1.1 - Français Version: 8.1.1

je voudrais savoir si il est possible de tabuler le fichier afin d'obtenir:

Code :

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

1
2
3
4
 
Mozilla Firefox (2.0.0.11)             Version: 2.0.0.11 (fr)
Mozilla Thunderbird (2.0.0.9)          Version: 2.0.0.9 (fr)
Adobe Reader 8.1.1 - Français          Version: 8.1.1

j'ai essayé avec des vbTab, sans succès.

Merci par avance
Philippe

**ced600** · 07/12/2007, 11h42

Mozilla Firefox (2.0.0.11) Version: 2.0.0.11 (fr)
Mozilla Thunderbird (2.0.0.9) Version: 2.0.0.9 (fr)
Adobe Reader 8.1.1 - Français Version: 8.1.1

je voudrais savoir si il est possible de tabuler le fichier afin d'obtenir:

Mozilla Firefox (2.0.0.11) Version: 2.0.0.11 (fr)
Mozilla Thunderbird (2.0.0.9) Version: 2.0.0.9 (fr)
Adobe Reader 8.1.1 - Français Version: 8.1.1

Aucune différence. Certainement parce que les tabulations sont supprimé du texte d'un post.

Met des - à la place des espaces pour montrer comment tu veux organiser ta présentation.

**phberanger** · 07/12/2007, 12h21

Mozilla Firefox (2.0.0.11) Version: 2.0.0.11 (fr)
Mozilla Thunderbird (2.0.0.9) Version: 2.0.0.9 (fr)
Adobe Reader 8.1.1 - Français Version: 8.1.1

En fait, j'aimerai obtenir des zones alignées, par exemple réserver xx caractères pour le nom du soft (qques soit la longueur de la chaine), et yy caractères pour la version

Philippe

**ThierryAIM** · 07/12/2007, 12h28

Envoyé par ced600

Aucune différence. Certainement parce que les tabulations sont supprimé du texte d'un post.

dans ce cas, mieux vaut utiliser les balises Code qui utilisent une police non proprtionnelle.
J'ai modifié le 1er post de phberanger (sous réserve que j'ai bien compris ce qu'il veut obtenir

)

**phberanger** · 07/12/2007, 12h46

J'ai modifié le 1er post de phberanger (sous réserve que j'ai bien compris ce qu'il veut obtenir )

Pas de problème, c'est bien ce que j'aimerai obtenir. Par contre "balise code", je ne connais pas, pas vu de trace dans Script56.CHM

Encore merci

**ThierryAIM** · 07/12/2007, 12h46

les balises Code, c'est pour la présentation de ton post (fais un edit sur ton premier post

)

Envoyé par phberanger

j'ai essayé avec des vbTab, sans succès.

on peut voir le bout de script ?

**phberanger** · 07/12/2007, 13h03

donc le script: j'ouvre mon fichier texte, qui provient d'un autre script qui récupère les entrées uninstall dans la bdr ), et je trie le fichier alphabétiquement (d'après un script récupéré sur le web:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
'Tri du fichier par ordre alphabétique
Const adVarChar = 200
Const MaxCharacters = 255
Const ForReading = 1
Const ForWriting = 2
 
Set DataList = CreateObject("ADOR.Recordset")
DataList.Fields.Append "SoftWare", adVarChar, MaxCharacters
DataList.Open
 
Set objFile = objFSO.OpenTextFile("C:\Temp\Soft\SoftWare.txt", ForReading)
 
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    DataList.AddNew
    DataList("SoftWare") = strLine
    DataList.Update
Loop
 
objFile.Close
 
DataList.Sort = "SoftWare"
 
DataList.MoveFirst
Do Until DataList.EOF
    strText = strText & DataList.Fields.Item("SoftWare") & vbCrLf
    DataList.MoveNext
Loop
 
Set objFile = objFSO.OpenTextFile("C:\Temp\Soft\SoftWare.txt", ForWriting)
 
objFile.WriteLine strText
objFile.Close
 
 
et j'obtiens, par ex
 
Adobe Flash Player 9 ActiveX	Version: 9
Adobe Reader 8.1.1 - Français	Version: 8.1.1
Adobe Reader Japanese Fonts	Version: 7.00.000
Apple Software Update	Version: 2.0.0.21
Archiveur WinRAR	Version: 
Broadcom Advanced Control Suite 2	Version: 7.58.01
Broadcom Advanced Control Suite 2	Version: 7.58.01
Broadcom ASF Management Applications	Version: 5.08.01
Broadcom ASF Management Applications	Version: 5.08.01

donc rien n'est aligné...

Merci

**ced600** · 07/12/2007, 13h20

Edit ton poste,

Sélectionne tout le code et Appui avec la souris sur #, et envois la réponse

Edit : [Fait] Thierry

**pc75** · 07/12/2007, 13h30

Bonjour,

Une question :

Le contenu de DataList.Fields.Item("SoftWare") contient le nom du soft et la version ?

**phberanger** · 07/12/2007, 13h39

Tout a fait, j'ai rajouté un

Code :

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

WScript.Echo DataList.Fields.Item("SoftWare")

et j'ai bien

Code :

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

1
2
3
4
Adobe Flash Player 9 ActiveX	Version: 9
Adobe Reader 8.1.1 - Français	Version: 8.1.1
Adobe Reader Japanese Fonts	Version: 7.00.000
Apple Software Update	Version: 2.0.0.21

etc
.
.

**ced600** · 07/12/2007, 13h42

Je pense que oui.

Utilise split sur la variable strText pour obtenir un tableau ou chaque ligne du tableau représente une ligne du fichier.

Pour chaque ligne repère l'indice de l'espace avant version et remplace le par un nombre d'espace qui correspond au nombre de caractère de la partie gauche de la plus longue ligne + 10
SI je suis ton exemple c'est :
Taille de cela "Broadcom ASF Management Applications" + 10

Copie chaque ligne de ton tableau dans le fichier et c'est bon

Edit : Mais n'écrivez pas plus vite que moi

**phberanger** · 07/12/2007, 13h45

je fais ça de suite,

merci

Tabulation dans un fichier texte

VBScript

Vue hybride

Discussions similaires

Partager

Partager