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

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

Re,

Alors, une piste :

Tu récupères la position du mot "version" avec la fonction Instr()

ensuite, tu extraits la nom du logiciel (NomSoft) et sa version (VersionSoft) avec la fonction Mid() en te servant de la position du mot version.

et pour aligner, tu peux faire un truc comme ça :

Code :

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

1
2
 
StrLigne = space(50 - len(trim(NomSoft))) & NomSoft & space(50 - len(trim(VersionSoft))) & VersionSoft

Tu dis ?

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

Plutot que 50 ce serait mieux de prendre la taille de la plus longue ligne, non ?

**pc75** · 07/12/2007, 14h19

Envoyé par ced600

Plutot que 50 ce serait mieux de prendre la taille de la plus longue ligne, non ?

Bien sur, c'était juste pour l'exemple.

**phberanger** · 07/12/2007, 14h41

Qui va piano.... je suis en train de voir la commande intSTR pour récupérer la position de Version, j'aurai peut-être terminé lundi

**ThierryAIM** · 07/12/2007, 14h47

Envoyé par ced600

Plutot que 50 ce serait mieux de prendre la taille de la plus longue ligne, non ?

oui, mais il faut la chercher avant de faire le traitement de mise en forme

Sinon, un Split sur "Version", c'est plus simple que de rechercher le nom, et le reste
il suffira de rajouter "Version" dans la compo de la ligne final
un petit exemple à mon idée (à adapter) :

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
Const ForReading = 1, ForWriting = 2 
Dim oFso, f1, f2
Dim ts, nl
 
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f1 = oFso.OpenTextFile("c:\test1.txt", ForReading)
  ts = f1.ReadAll '-- Lit la totalité du fichier
  nl = f1.Line    '-- Récupère le nombre de lignes
 
Dim i, lgn, lenlgn, sline
  ' Recherche la ligne la plus longue
  Set f1 = oFso.OpenTextFile("c:\test1.txt", ForReading)
  For i = 1 to nl   '-- l'index de la première ligne = 1
     lgn = f1.ReadLine
     sline = Split (lgn, "Version", -1, 1)
     if len(sline(0))> lenlgn then lenlgn = len(sline(0))
  Next
  f1.Close
 
  ' Effectue la mise en forme
  Set f1 = oFso.OpenTextFile("c:\test1.txt", ForReading)
  Set f2 = oFso.OpenTextFile("c:\test2.txt", ForWriting)
  For i = 1 to nl   '-- l'index de la première ligne = 1
     lgn = f1.ReadLine
     sline = Split (lgn, "Version", -1, 1)
     f2.Write (sline(0) & space(lenlgn + 2 - len(sline(0))) & "Version" & sline(1) & vbCrLf)
  Next
  f1.Close
  f2.Close
  Set oFso = Nothing