Lecture d'une ligne de données dans un fichier .TXT selon un ID

Version imprimable

19/09/2018, 09h06
Superzest 76

Lecture d'une ligne de données dans un fichier .TXT selon un ID

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.

[Edit]

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

Code:

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

19/09/2018, 12h28
hackoofr

:salut: 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 ?
@+
19/09/2018, 13h36
Superzest 76

1 pièce(s) jointe(s)

Alors déjà :merci: 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

Salut Superzest 76, bienvenue sur DVP

Si cela peut être utile

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

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

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

19/09/2018, 14h35
Superzest 76

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