Tabulation dans un fichier texte

Version imprimable

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 ?

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
07/12/2007, 15h17
ucfoutu

Citation:

J'ai oublié ce que faisait ces deux fonctions, des alignement en début et fin de string ?

Exactement

Voir leur utilisation avec VBS (elle est simple).
07/12/2007, 15h22
ThierryAIM

Citation:

Envoyé par ucfoutu

Voir leur utilisation avec VBS (elle est simple).

justement, j'attends de voir !
07/12/2007, 15h24
ucfoutu

Ainsi (en direct de VBS), alors :

Citation:

LSet
LSet is used to copy a variable of one user-defined type to a variable of another user-defined type. When a variable is copied with the LSet command, it is left-aligned. The syntax of the LSet statement is listed next.

LSet <Variable> = <ValueOfVariable>

If the length of <Variable> is longer than that of <ValueOfVariable>, after copying <ValueOfVariable> to <Variable> the remaining space will be filled in with white spaces. In the like manner, if the length of <Variable> is less than that of <ValueOfVariable>, <ValueOfVariable> will be truncated to fit in the space allocated for <Variable>. For example, if <Variable> can hold only four characters, and <ValueOfVariable> contains the string "ABCDEFG", after it is copied to <Variable> with the LSet command, <Variable> will have the value "ABCD."

C'est en anglais, je sais ...

Mais le fonctionnement est exactement le même que pour l'utilisation de Lset avec VB6

Bonne continuation...
07/12/2007, 15h35
ThierryAIM

Arrête de nous assimiler à des coui** s de première !!

Je connais Lset et Rset en VB6, et tu ne penses pas que j'ai essayé avant de te répondre !!!

sauf ....que vbscript râle :evilred:

Alors fais-moi voir un exemple concret (avec du code) fonctionnant en VBScript ! (si c'est le cas, je te ferai des excuses publiques)
j'attends ... (sereinement ... :D)
07/12/2007, 16h37
ThierryAIM

@ucfoutu : bon, pas de réponse, dois-je en déduire que tu as chaussé tes lunettes ou appris à lire :

http://thierryaim.developpez.com/images/vbs1.png

je te laisse le soin de lire la fin de la page :mouarf:
07/12/2007, 16h39
phberanger

Tabulation de texte

ok, je vais essayer le script de ThierryAIM, pour l'instant je suis parti sur les Instr split mid et j'avoue que par moment, étant novice, ces #\!*&ù! de commandes me prennent la tête. Ceci dit, si j'édite mon fichier avec notepad++,
, et que j'affiche tous les caracteres, je constante qu'il y a des zones avec des tabulations differentes. On verra ça lundi

Merci et bon WE
07/12/2007, 16h45
ThierryAIM

Citation:

Envoyé par phberanger

Ceci dit, si j'édite mon fichier avec notepad++,
, et que j'affiche tous les caracteres, je constante qu'il y a des zones avec des tabulations differentes

ben pas moi :D

bon w-e

Tabulation dans un fichier texte

Bonjour à tous et ttes,

Bon, suite et fin de ma laborieuse mise en page.

Pour résumé, il y a surement plus simple, car un peu de code redondant,mais le résultat étant au rendez-vous....

- j'ai donc un fichier texte avec mes valeurs uninstall de la BDR que j'ouvre en lecture, constitué de la sorte et non tabulé:

Correctif Windows XP - KB834707 Version: 20040929.110854
Correctif Windows XP - KB873333 Version: 20050114.005213
PDFCreator Version: 0.9.2
Mozilla Firefox (2.0.0.11) Version: 2.0.0.11 (fr)
Mozilla Thunderbird (2.0.0.9) Version: 2.0.0.9 (fr
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 'lecture de chaque ligne afin de récupérer la string la plus longue Set objFile = objFSO.OpenTextFile("C:\Temp\mon_fichier.txt", ForReading) 'Calcul de la plus grande chaine soft LEN_STRING_SOFT_MAX = 1 Do Until objFile.AtEndOfStream strLine = objFile.ReadLine 'recherche de la position de Version POSITION_VERSION = Instr(strLine, "Version") 'recherche de la string soft POSITION_VERSION = POSITION_VERSION - 2 STRING_SOFT = Left(strLine,POSITION_VERSION) 'et de la longueur de la zone soft LEN_STRING_SOFT = Len(Left(strLine,POSITION_VERSION)) 'mémorisation de la plus grande longueur de la string soft If LEN_STRING_SOFT > LEN_STRING_SOFT_MAX Then LEN_STRING_SOFT_MAX = LEN_STRING_SOFT + 5 End If Loop Set objFile = objFSO.OpenTextFile("C:\Temp\mon_fichier.txt", ForReading) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine 'recherche de la string soft POSITION_VERSION = Instr(strLine, "Version") 'et de la longueur de la zone soft LEN_STRING_SOFT = Len(Left(strLine,POSITION_VERSION)) 'comparaison de chaque longueur de la chaine soft pour rajouter les espaces If LEN_STRING_SOFT < LEN_STRING_SOFT_MAX Then SPACE_TO_ADD = LEN_STRING_SOFT_MAX - LEN_STRING_SOF End If strLine = Left(strLine,POSITION_VERSION -2) & Space(SPACE_TO_ADD) & Mid(strLine,POSITION_VERSION
et écriture dans le fichier final.

A noter que ça fait 30 mn que je cherche, car l'affichage est correct à l'écran via les wscript.echo, mais que ce n'était pas le cas dans le fichier de sortie, ouvert via notepad++. Et si j'ouvre mon fichier avec ce bon vieux wordpad, c'est bon. Il suffit de mettre langage sur ms-dos style dans notepad++ et c'est bon.

Encore merci à tous

Philippe

10/12/2007, 14h52
ced600

pour notepad++ c'est normal, plus de fonctionnalité, donc faut souvent choisir son langage pour avoir l'affichage voulu.

Pour le code cela me parait pas mal. Je pense que quelque soit la solution utilisée, tu es obligé de passer par deux boucles.

Ou sinon faudrait voir avec les expressions régulières s'il est possible d'en construire une qui repère comme motif ta plus longue chaine de soft, mais enfin je ne pense pas que cela soit possible.