Discussion :

[liocifer]

Salut,

Je viens de débuter en vbs et j' ai un souci pour lire ligne à ligne un fichier texte, puis une fois trouver la ligne correspondant à la valeur cherchée (5576LP1) extraire de cette ligne la valeur qui est à sa droite (BRPF00207) dans une variable pour pouvoir l' utiliser ultérieurement.

Exemple : Mon fichier LISTEPC.txt

Numuéro de série NomMachineCorrespondant

5576KY2 BRPF00121
5576LC9 BRPF00105
5576LN5 BRPF00109
5576LP1 BRPF00207
5576MC0 BRPF00103
5576MM1 BRPF00193
5576NZ4 BRPF00257
5576PA9 BRPF00120

J' aimerais en fait par exemple récupérer dans une variable la machine (BRPF00207) correspondant au numero de serie (5576LP1) .Si quelqu' un pouvait m' aiguiller ce serait très sympa.

Merci d' avance.

PS: Auriez-vous un livre quelconque à me conseiller sur le Vbscript.

Cordialement.

[SfJ5Rpw8]

bonjour,

lecture ligne à ligne d'un fichier texte :

Comment lire le contenu d'un fichier texte ?

puis :

Comment 'éclater' une chaîne dans un tableau ?



un peu de lecture :

Introduction au langage VBSCRIPT

[liocifer]

Salut,

Merci pour ta réponse.J' ai résolu mon problème.Pour ceux à qui ça intéresse voilà comment j' ai procédé :

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
Const ForReading = 1
Dim oFso, f
On Error Resume Next
 
  Set oFso = CreateObject("Scripting.FileSystemObject")
     If oFso.FileExists("\\CheminServeur\LISTEPC.csv") Then
        Set f = oFso.OpenTextFile("\\CheminServeur\LISTEPC.csv", ForReading)
        NSerie = strID
           While Not f.AtEndOfStream 
           Line = f.ReadLine
	        MyArray = Split(Line,";",-1,1)
	           If MyArray(0) = NSerie Then strNewName = MyArray(1)
                 Else
					     Set WshShell = CreateObject("WScript.shell")
						  Wshshell.run "wscript.exe" & "c:\temp\Message1.kix"
              End If        
			  Wend
        f.Close
		  Else 
		     Wshshell.run "wscript.exe" & "c:\temp\Message2.kix"
     End If

Cordialement.