Tabulation dans un fichier texte

Version imprimable

Voir 40 message(s) de cette discussion en une page

07/12/2007, 11h29
phberanger

Tabulation dans un fichier texte
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:

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
07/12/2007, 11h42
ced600

Citation:

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.
07/12/2007, 12h21
phberanger

Tabulation dans un fichier texte

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
07/12/2007, 12h28
ThierryAIM

Citation:

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 ;) )
07/12/2007, 12h46
phberanger

Tabulation dans un fichier texte

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
07/12/2007, 12h46
ThierryAIM

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

Citation:

Envoyé par phberanger

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

on peut voir le bout de script ?

Tabulation dans un fichier texte

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:

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

07/12/2007, 13h20
ced600

Edit ton poste,

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

Edit : [Fait] Thierry ;)
07/12/2007, 13h30
pc75

Bonjour,

Une question :

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

Tabulation

Tout a fait, j'ai rajouté un

Code:

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

et j'ai bien
Code:

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
.
.

07/12/2007, 13h42
ced600

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 ;)
07/12/2007, 13h45
phberanger

Tabulation dans un fichier texte

je fais ça de suite,

merci
07/12/2007, 13h55
pc75
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:

1 2 StrLigne = space(50 - len(trim(NomSoft))) & NomSoft & space(50 - len(trim(VersionSoft))) & VersionSoft
Tu dis ?
07/12/2007, 13h57
ced600

Plutot que 50 ce serait mieux de prendre la taille de la plus longue ligne, non ?
07/12/2007, 14h19
pc75

Citation:

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.
07/12/2007, 14h41
phberanger

Tabulation dans un fichier texte

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 :oops:

Citation:

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:

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

07/12/2007, 14h54
ucfoutu

Bonjour,

LSet existe en VBS (Rset également, d'ailleurs, bien qu'ici LSet soit suffisant).
07/12/2007, 15h10
ced600

J'ai oublié ce que faisait ces deux fonctions, des alignement en début et fin de string ?
07/12/2007, 15h11
ThierryAIM

Citation:

Envoyé par ucfoutu

LSet existe en VBS (Rset également, d'ailleurs, bien qu'ici LSet soit suffisant).

Au lieu de pister mes posts :roll: et de nous prendre pour des buses, fais-moi voir un exemple qui marche en VBS

Voir 40 message(s) de cette discussion en une page