[vbs] lire des données contenue dans un fichier texte

inconu -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je remercie d'avance ceux qui voudrons bien répondre et leur demande une explication en plus des ligne de codes.
C'est la première foi que je pose une question sur un forum.
J'étudie le vbs tant bien que mal.
la question que je vais vous poser peut paraitre bête mais sa fait un ans que je cherche et je n'est toujours pas trouvé de réponse.

Comment lire/récupérer des données (mots, phrase, lettre, ext...) contenu dans un fichier texte (.txt) en vbs?

Explication de la demande:

j'ai un fichier texte qui se situe C:\programme\texte.txt
j'ai un programme vbs qui à besoin des donnés contenue sous texte.txt
pour fonctionné.

exemple: 

name = (le nom doit être récupérer sous texte.txt)
namet = inputbox ("identifiant:")
if (name != namet) then
        msgbox ("erreur!", vbOk + vbCritcal, "identifiant incorrect")
else:
if (name = namet) then
        msgbox "bonjour"
end if
end if

merci à tous se qui voudrons bien répondre.
M.

A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

une facon de faire: adaptez le chemin et fichier 

nomfich="D:\_TXT\lisezmoi.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set fich_source = fs.OpenTextFile(nomfich, 1, False)

namet = inputbox ("identifiant:")
FlagOk=False

Do While not fich_source.atEndOfStream
	If InStr(1,fich_source.ReadLine,namet)Then
		msgbox "bonjour"
		FlagOk=True
		Exit Do
	End If
Loop
If Not FlagOk Then
	msgbox "erreur!", vbOk + vbCritcal, "identifiant incorrect"
End if

fich_source.close
Set fich_source=nothing
Set fs=nothing
0