Discussion :

[Superzest 76]

Bonjour,
(Je travail sous Intouch en VBS)
Voila mon problème, J'ai un fichier .txt qui contiens des lignes de la façon suivante: Nom ; Prénom ; N°Badge
Nom ; Prénom ; N°Badge (etc sur plusieurs ligne)
Je Voudrais un fois que l'utilisateur ai rentrer son ID que le programme sauvegarde son nom prénom dans deux variable.
Des petits bout de code a me suggérer ?
Merci d'avance.

[Superzest 76]

Voila un bout de code pour testé si le document existe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Graphics_WhileRunning()
 
                Dim ScriptFileName, InputFile, objFSO, Temp,lecture
                Temp = "C:\Badge.txt"
					ScriptFileName = Temp 
					 Set objFSO = CreateObject("Scripting.FileSystemObject")
                If objFSO.FileExists(ScriptFileName) Then
					ScriptFileName = Temp
					MsgBox("gg !")
					Else
					MsgBox("Bg !")
					End If
					Set objFSO = Nothing
End Sub

[hackoofr]

et soyez le bienvenue sur DVP
Si vous voulez avancer dans votre projet, alors, il faut être plus explicite dans votre question !
Le ID ça represente quoi exactement ? Est-ce-que c'est le n° de badge c'est ça ? ou autre chose ?
Pouvez-vous au moins nous poster un petit exemple concret de fichier texte par pièce-jointe ou bien par copier coller, en modifiant bien-sûr vos données personnels ?
@+

[Superzest 76]

Alors déjà de la reponse voila en PJ un example de fichier .txt
L'ID correspond à un badge en effet. L'idée c'est de pouvoir récupéré pour un ID donné ex: 171997 les informations de la personne (Nom, Prénom dans le cas présent).
Voila pour le tout début d'un très lonnnnngggg programme !
Merci d'avence

[ProgElecT]

Salut Superzest 76, bienvenue sur DVP

Si cela peut être utile

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
Option Explicit
 Dim Nom, Prenom
 
Sub Recherche(Nbadg)
	Dim fso, fichier, T
	Dim ContenuFichier, TblLgn, TblCol
	Dim NumBadge: NumBadge = Nbadg
 
	Nom=""
 
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set fichier = fso.opentextfile("C:\MesProgs\En VBScript et HTA\ExtractionFichierVariable\badge.txt", 1)
	ContenuFichier = fichier.ReadAll
	fichier.Close
	Set fichier = Nothing
 
	TblLgn = Split(ContenuFichier,vbNewline)
	For T = 0 To UBound(TblLgn) - 1
		TblCol = Split(TblLgn(T), ";", -1, vbTextCompare) 
		If TblCol(2) = NumBadge Then
			Nom = TblCol(0)
			Prenom = TblCol(1)
			Exit sub
		End If
	Next
 End sub
 '-------------------------------------------
Recherche "17543"
If Nom <> "" then
	msgbox "nom: " & Nom & vbnewline & "Prenom: " & Prenom
	Else
	msgbox "Il n'y a personne correspondant à ce N° de badge"
End if
Recherche "123456789"
If Nom <> "" then
	msgbox "nom: " & Nom & vbnewline & "Prenom: " & Prenom
	Else
	msgbox "Il n'y a personne correspondant à ce N° de badge"
End if

[l_autodidacte]

Mets le script et le fichier texte dans le même dossier et exécute ce

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
Option Explicit
 
Const NomFich = ".\Badge.txt"
Const ForReeading = 1
Dim strSearch, Table, Nom, Prenom, ID, fso, Fich, Ret, Reponse
Set fso = CreateObject("Scripting.FileSystemObject")
Set Fich = fso.OpenTextFile(NomFich, ForReeading, False)
Reponse = InputBox("Donner l'ID de la personne à chercher:", "ID")
If Reponse = "" Then WScript.Quit
strSearch = Reponse
Do While Not Fich.AtEndOfStream
   Ret = Fich.ReadLine
   If InStr(1, Ret, strSearch, vbTextCompare) > 0 Then
     Table = Split(Ret, ";")
     Nom = Table(0)
     Prenom = Table(1)
     ID = Table(2)
     Exit Do
   End If
Loop
MsgBox   "Nom : " & Nom & vbNewLine & "Prenom : " & Prenom & vbNewLine & "ID : " & ID, vbOKOnly, "Infos"

Tu peux également mettre le fichier texte ailleurs tout en modifiant la constante NomFich selon le nouveau chemin.


[EDIT] Je viens juste de voir que ProgElecT(Salut) a posté une réponse(le temps de faire une prévisualisation et rectification). De toute façon, 2 manières de parvenir au même résultat est un plus

[Superzest 76]

Merci pour vos réponse!!
Ca marche du feux de dieux !! merci infiniment^^