Condition sur un fichierRésolu

Question

Bonjours, je cherche un code pour que si dans le fichier test.txt est marqué "1" un message apparaît, j'ai déja ledébut du code mais je blocke.

file = FreeFile
open "Lenomdufichier	est.txt" for input as #file
if?????then
MsgBox "test"
end if

????? : c'est la où je blocke
Il faut peut-étre ajouter autre chose a vous de me le dire

lenum1 · Accepted Answer

J'ai déjà chercher la-dedans mais c'est pas grave je vais faire autrement :

file = FreeFile
open "Lenomdufichier	est.txt" for input as #file
while Not EOF(1)
input #1, a$
b = a$
text1.text = b
if text1.text = "1" then
msgbox "test"
wend
end if

voila sa doit marcher normalement  dite moi au cas où si vous trouvez le code exact

cs_Exploreur · Answer

Salut,

Regarde dans le forum d'hier, il y a plusieurs poste(voir aussi messages de 
Mortalino) qui traité sur les fichiers texte...Fait une petite recherche et tu auras ta réponse...

A+
Exploreur

 Linux a un noyau, Windows un pépin

lenum1 · Answer

J'ai fait recherche mais aucune  réponce qui me convient

jmfmarques · Answer

Montre-nous donc la réponse qui ne te convient pas, avec une boucle lisant toutes les lignes d'un fichier texte.... (il y a maintenant des centaines, voire des milliers d'exemples sur ce forum !...)

lenum1 · Answer

Ba comme tu le dis, il y ades milliers d'exemples, je ne vais tout de même pas mettre tous les sujets ou codes, j'ai chercher mais aucune réponce qui répond a ma question

jmfmarques · Answer

Montre-nous, s'il te plait, une seule d'entre elles !

cs_Exploreur · Answer

Salut et bonjour Jmfmarques,

Et là par ici, il me semble que peux avoir facilement ta réponse....

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

1) ce code n'est pas exact  (et en plus tu valide ta propre réponse, au demeurant erronée !!!)
  qu'est dont ce if then avec un end if qui vient après le wend ?????

2) corrigé, il fonctionnera mais uniquement si ta variable lue = "1" pile poil !3) pourquoi tous ces remue-ménages inutiles ? (il est inutile de lire a$, puiss de dire que b a$, puis de dire que text1.text b, puis enfin de lire ce qu'il y a dans text1 !!!!!
tu aurais le même résultat avec :
while Not EOF(1)
  input #1, a$
 if a$= "1" then
 msgbox "test"
etc...

4) si tu veux rechercher si la ligne lue contient "1",  il te faudra procéder autrement (lineIput pour lire et instr pour rechercher si contient "1")


 


La faute de syntaxe commise en 1) révêle que tu as besoin d'apprendre et le fonctionnement de If... then  et celui de While... Wend ...

lenum1 · Answer

Oui dsl j'ai vu plus tard mais je ne pencez pas que quelqu'un me le dirais, j'avais piqué le code sur une autre page alors 'ai pas trop corrigé  désoler.

Condition sur un fichier

9 réponses

Votre réponse

Discussions similaires