Projet de création d'une liste à partir d'un fichier txt [Résolu]

[genius2139]

Bonjour,

Un automate me extrait un fichier txt avec des informations et je dois en extraire uniquement les identifiants (exmple ci-dessous : 155 12345678998) et les lister dans un autre fichier txt.

Comment dois-je m'y prendre dans script vbs?

Merci par avance

exemple du contenu du fichier :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
ENTREPRISE
   6    RUE DES ROSES
76000 MONEXEMPLE CEDEX
         TEL 0125635262                            DANS TOUS VOS ECHANGES AVEC NOS EXEMPLES
                                                N'OMETTEZ PAS DE RAPPELER VOTRE IDENTIFIANT
 
 
 
 
                                               LE 19  JANVIER  2012
 
 
          155 12345678998                      MR   DUPOND FREDERIC
 
                                               RUE MANU EXEMPLE
                                               76150 MONEXEMPLE
 
          CREATION OU
           MODIFICATION
 
 
 
     dupond frederic -  TEL : 0103030250 (0,118 E/MN)   FAX :0152452552

[Pasokoniidesuka]

Pour moi ça sent les expressions régulières à plein nez mais avant ça il faut trouver le moyen d'isoler de manière sûre la ligne qui vous intéresse.
Pour ça il faut analyser plusieurs lignes pour déterminer ce qui change et ce qui est commun.

Exemple si je prends la sortie (un extrait) de la commande ipconfig /all chez moi ça donne

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Carte Ethernet Connexion au réseau local :
 
   Suffixe DNS propre à la connexion. . . :
   Description. . . . . . . . . . . . . . : Realtek PCIe GBE Family Controller
   Adresse physique . . . . . . . . . . . : FF-FF-FF-FF-FF-FF
   DHCP activé. . . . . . . . . . . . . . : Oui
   Configuration automatique activée. . . : Oui
   Adresse IPv6 de liaison locale. . . . .: fe80::1%10(préféré)
   Adresse IPv4. . . . . . . . . . . . . .: 192.168.1.21(préféré)
   Masque de sous-réseau. . . . . . . . . : 255.255.255.0
   Bail obtenu. . . . . . . . . . . . . . : jeudi 19 janvier 2012 15:29:34
   Bail expirant. . . . . . . . . . . . . : vendredi 20 janvier 2012 15:29:34
   Passerelle par défaut. . . . . . . . . : 192.168.1.1
   Serveur DHCP . . . . . . . . . . . . . : 192.168.1.1
   Serveurs DNS. . .  . . . . . . . . . . : 192.168.1.1
   NetBIOS sur Tcpip. . . . . . . . . . . : Activé

Si je veux récupérer l'adresse MAC (ici adresse physique) je vais déjà isoler la ligne en vérifiant qu'elle contient les termes "Adresse Physique". Jusque là pas besoin des expressions rationnelles. Ensuite il faut récupérer ce qui est après les deux points (là on a besoin des expressions rationnelles je pense ou sinon on peut utiliser split avec le eux point comme délimiteur dans ce cas là) et éventuellement un trim pour enlever les espaces blancs avant et après le texte.
C'était juste un exemple pour exposer le principe.
Là honnêtement ça m'a pas l'air très simple. Mais bon y'a bien une solution à apporter.

[genius2139]

Tout d'abord merci pour ta réponse. J'ai cherché des exemples sur d'autres forum mais je ne comprends pas comment l'employer dans mon cas le SPLIT.

[pc75]

Bonjour,

- Existe-t-il un / des points communs pour tes identifiants (Ils commencent par les mêmes chiffres, ils ont la même longueur, ...)

- Cet identifiant est-il TOUJOURS sur la 13ème ligne et à la même position ?

Comme l'a écrit Pasokoniidesuka, il faut que tu sois capable d'isoler de manière certaine ton identifiant.

[genius2139]

Oui 155 est toujours identique. Le fichier contient plusieurs identifiants dans le fichier.
Merci

[pc75]

Re,

Une piste ; tu lis ton fichier texte dans une boucle du style :

Code :

1
2
 
do while InStr(Texte, "155") > 0

Dans cette boucle, tu récupères l'identifiant et tu continues ta recherche.

[omen999]

bonjour,
le problème des expressions régulières tient à la construction du pattern qui est souvent complexe et difficile à assimiler pour le scripteur occasionnel
dans ton cas, si tous les ID du fichier commencent par 155 suivi d'un espace et de 11 autres chiffres, le pattern est très simple
(j'ai repris le contenu du fichier dans une variable sFile) :

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
sFile = "ENTREPRISE" & _
"   6    RUE DES ROSES" & _
"76000 MONEXEMPLE CEDEX " & _ 
"         TEL 0125635262                            DANS TOUS VOS ECHANGES AVEC NOS EXEMPLES " & _
"                                                N'OMETTEZ PAS DE RAPPELER VOTRE IDENTIFIANT " & _
"                                                                                            " & _
"                                                                                            " & _
"                                                                                            " & _
"                                                                                            " & _
"                                               LE 19  JANVIER  2012" & _
"                                                                                            " & _   
"                                                                                            " & _     
"          155 12345678998                      MR   DUPOND FREDERIC              " & _
"                                                                                            " & _      
"                                               RUE MANU EXEMPLE" & _
"                                               76150 MONEXEMPLE" & _
"                                                                                            " & _  
"          CREATION OU" & _ 
"           MODIFICATION" & _
"                                                                                            " & _ 
"                                                                                            " & _ 
"                                                                                            " & _  
"     dupond frederic -  TEL : 0103030250 (0,118 E/MN)   FAX :0152452552"
 
 
Set oRegEx = New RegExp     
' définition du pattern
oRegEx.Pattern = "155 \d{11}"
oRegEx.Global=True
Set Matches = oRegEx.Execute(sFile)
For Each Match in Matches   ' Itère la collection Matches.
  sID = sID & " " & Match.Value
Next 
MsgBox sID

[genius2139]

Merci beaucoup. Effectivement, je suis un débutant dans ce language et j'ai vraiment du mal! Si je souhaite faire appel au fichier txt contenant ces données? et récupérer les numéros d'identifications dans un nouveau fichier txt? comment dois je procéder?

[genius2139]

Pour récupérer et les lire le fichier txt j'ai trouvé cette fonction

Code :

1
2
3
4
5
6
7
8
9
10
 
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
 
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("d:\fichier.txt", ForReading)
  while Not f.AtEndOfStream 
     wscript.echo f.ReadLine
  Wend
  f.Close

La message box affiche vide

Pour écrire dans un nouveau fichier txt j'ai trouvé cette fonction

Code :

1
2
3
4
5
  Const ForWriting = 2
   Dim fso, f   
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("d:\fichier2.txt", ForWriting,true)

J'ai des éléments mais je n'arrive pas...

[ProgElecT]

Salut

En lieux et place de wscript.echo, essais MsgBox f.ReadLine

[genius2139]

ça ne marche pas. Si j'utilise mon code en globalité combiné avec les derniers éléments ça me donne

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Const ForReading = 1, ForWriting = 2
Dim oFso, f
 
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile("d:\PO.txt", ForReading)
  while Not f.AtEndOfStream
 
WEND
 
Set oRegEx = New RegExp
' définition du pattern
oRegEx.Pattern = "155 \d{11}"
oRegEx.Global=True
Set Matches = oRegEx.Execute("d:\PO.txt")
For Each Match in Matches   ' Itère la collection Matches.
  sID = sID & " " & Match.Value
Next
MsgBox sID
 Const ForWriting = 2
   Dim fso, f   
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("d:\fichier2.txt", ForWriting,true)

Je crois je me suis beaucoup emmêlé les pinceaux!!

[ProgElecT]

Il faut lire la totalité du fichier en une seule fois ReadAll

Code :

1
2
3
4
5
6
7
        Dim FSO, LeFichier
	Dim CheminNomFichier, sFile
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "C:\PersoFrancis\FichierArray.txt"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
sFile= LeFichier.ReadAll
LeFichier.Close

il reste a appliquer la méthode proposé par omen999 avec la variable sFile (dans l'exemple)

[genius2139]

Combiné avec la méthode de omen999 j'ai un message blanc qui s'affiche

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        Dim FSO, LeFichier
	Dim CheminNomFichier, MeTbl
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "d:\PO.txt"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
 
Set oRegEx = New RegExp
' définition du pattern
oRegEx.Pattern = "155 \d{11}"
oRegEx.Global=True
Set Matches = oRegEx.Execute(CheminNomFichier)
For Each Match in Matches   ' Itère la collection Matches.
  sID = sID & " " & Match.Value
Next
MsgBox sID

[ProgElecT]

Set Matches = oRegEx.Execute(CheminNomFichier)

Code :

Set Matches = oRegEx.Execute(sFile)

[ProgElecT]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        Dim FSO, LeFichier
	Dim CheminNomFichier, sFile
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "d:\PO.txt"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
sFile = LeFichier.ReadAll
 
Set oRegEx = New RegExp
' définition du pattern
oRegEx.Pattern = "155 \d{11}"
oRegEx.Global=True
Set Matches = oRegEx.Execute(sFile)
For Each Match in Matches   ' Itère la collection Matches.
  sID = sID & " " & Match.Value
Next
MsgBox sID

Desolé, je ne peux plus suivre, je retourne au travail

[genius2139]

Merci. ça marche. Par contre, il me les alignes à la queuleuleu...

[genius2139]

Maintenant je souhaite prendre les valeurs récupérés mais au lieu de m'afficher un message box, il doit me créer un 2ème fichiers pour stocker les ID récupérés. Cela me donne

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim FSO, LeFichier , f
Dim CheminNomFichier, sFile
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "d:\PO.txt"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
sFile = LeFichier.ReadAll
Set oRegEx = New RegExp
' définition du pattern
oRegEx.Pattern = "155 \d{11}"
oRegEx.Global=True
Set Matches = oRegEx.Execute(sFile)
For Each Match in Matches   ' Itère la collection Matches.
  sID = sID & " " & Match.Value
Next
'MsgBox sID
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile("d:\fichier2.txt")
With MonFic 'Pour écrire dans le fichier texte
.writeLine  "sID"
End with

ça m'écrit tout bêtement sID au lieu d'insérer les ID !! Comment dois-je m'y prendre?

[pc75]

Re,

C'est le contenu de la variable qu'il faut écrire :

Code :

1
2
3
4
 
With MonFic 'Pour écrire dans le fichier texte
.writeLine  sID
End with

[genius2139]

Merci ça marche!

Maintenant que mon fichier est créé avec l'ensemble de mes ID, je souhaiterais qu'ils soient disposés non sur une ligne les uns à la suite des autres mais ligne par ligne. Comment dois-je procéder? Merci d'avance

[omen999]

ligne 13...

sID = sID & vbCrLf & Match.Value