Je cherhce ce code depuis longtemps!!!

Messages postés
5
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
4 juillet 2002
-
Messages postés
5
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
4 juillet 2002
-
J'ai fais un programme. Il me reste un code a mettre. Je vous explique:

Au début du programme ya une form qui apparraît: form_password. Elle demande d'écrire un mot de passe pour qu'ensuite elle l'écrive dans un fichier.

Si tu pars le programme une deuxième fois, il fo qu'il regarde dans le fichier si il y a dekoi d'écrit et c sa mon problème! Je c po c koi le code pour regarder dans un fichier TXT voir si il y a quelque chose d'écrit. Si il y a quelque chose dedans, tous va bien sa continu. Si il n'y a rien dedans, ooouuuppss on arrête ici et on demande.

Y a til qqun qui c comment faire ca????

Xfile
Je suis webmaster du site: http://www.tommyking.fr.st

3 réponses

Messages postés
2670
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
6 février 2013
2
Euuuuuuuuuuuh..... Tu pourrais etre plus clair car je pige pas trop ce que tu veux exactement faire...
Tu peux regarder ce qu'il y a dedans un fichier de la maniee suivante :

Dim passtxt as String

Open "c:\monfichier.txt" For Input as #1
while not eof(1)
input, passtxt
wend
close #1

Voili voilou.... N'hesite pas si t'as des questions..
A++ et bonne prog...

DeAtH_-_CrAsH
Messages postés
124
Date d'inscription
jeudi 3 janvier 2002
Statut
Membre
Dernière intervention
31 décembre 2011

Dim CheminFichier As String
Dim a As Long
Dim Text as string
CheminFichier = "c:\Autoexec.bat"
a = FreeFile()

Open CheminFichier For Input As #a
Text = Input(LOF(a), a)
Close #a

if Text = "" then
le fichier est écrit
else
Oupss pas écrit!
end if
'Bonne prog @++ Megatrix
Messages postés
5
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
4 juillet 2002

Merci pour le code mais ya un petit prob. C pas tous ta fait de ce que je voulais. Je t'explique:

Lorsque que je part mon prog, la form1 regarde dans un fichier text si ya de koi d'écris dedans. Si ya une lettre ou quelque d'écrit la form1 se Unload et la form2 apparaît. C tous!

Ton code marche mais quand je le aprt et que le fichier texte est vide ya un msgbox qui dit:
L'ENTRéE DéPASSE LA FIN DI FICHIER.

Je n'arrive pas a comprendre pkoi?

Si tu veux je peux t'envoyer la source du prog.