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

Fermé

inconu - Modifié par pijaku le 4/08/2014 à 08:21
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 5 août 2014 à 17:43

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:

[vbs] lire des données contenue dans un fichier texte
Lire le coran en français pdf - Télécharger - Histoire & Religion
Fichier rar - Guide
Lire fichier epub - Guide
Fichier host - Guide
Fichier iso - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
5 août 2014 à 17:43

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

Discussions similaires

comment donner les droits sur fichier partage

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters