je n'arrive pas a afficher les...............Résolu

Question

Salut j'ai un pb mon code affcihe ds un fichier texte la premier erreur
se que je demande s'est que des  qu'il a trouver le valeur fausse et qu'il lainscrite il continu pour chercher les autre et sa il ne le fais pas il s'arrete ca la 1er valeur fausse et me fais pa les autres.
voici une partie du code :
Private Sub Command1_Click()
Numfichier = FreeFile
Numres = FreeFile
..........................*variable*
..........................*lister code*


Open fichier For Input As #Numfichier
    
     While Not EOF(Numfichier)
       Line Input #Numfichier, Ligne
       
       Temp = Mid(Ligne, 1, 10)
        If InStr(texte, Temp) Then
            MsgBox ("Yippikaye!!")
        
           Else: Close #Numfichier
                Open fic For Append As #Numres
                Print #Numres, Ligne
            MsgBox ("Attention &#233;criture du fichier mal index&#233; dans le fichier")
            
        End If
       Wend    
Close #Numres


End Sub
merci de bien vouloire m'aider

rvblog · Accepted Answer

Salut 604113 Miss1, salut =19372 linasteph , apparemment, le seul endroit qui détermine si tu écris dans ton fichier final (fic2), c'est : ... Temp = Mid(Lign, 1, 14) If InStr(texte, Temp) Then ... donc, vérifies ce que trouve le Mid, et ce qu'en pense le Instr. mais, est-ce dans le fichier final qu'il manque quelque chose? tu n'en dit pas assez. à+ rvblogn ^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

linasteph · Answer

voici
ce qui doit fonctionner. Le pourquoi il s'arr&#234;tait venait s&#251;rement du
fait que si tu ne trouvais pas la bonne valeur, tu fermais ton fichier
dans lequel tu lis.



Open fichier For Input As #Numfichier

Open fic For Append As #Numres



     While Not EOF(Numfichier)

       Line Input #Numfichier, Ligne

       

       Temp = Mid(Ligne, 1, 10)

        If InStr(texte, Temp) Then

            MsgBox ("Yippikaye!!")

           Else

                Print #Numres, Ligne

               
MsgBox ("Attention &#233;criture du fichier mal index&#233; dans le fichier")
        End If
       Wend    
Close #Numfichier

Close #Numres

cs_Miss1 · Answer

J'ai déjà essayer la methode que tu ma donner mais sa n'avais pas fonctionner car il m'informe que le fichier et déja ouvert dc sa pose pb sinon je pensais a inclure un for next mais je pense pas que sa va changer gd chose.

linasteph · Answer

Quel fichier est déjà ouvert? vérifie que le fichier en qusetion tu ne l'as pas déjà ouvert avant...


Oh ça y est j'ai compris EUREKA

Essaie:
Numfichier = FreeFile
Open fichier For Input As #Numfichier
Numres = FreeFile
Open fic For Append As #Numres


et ensuite tu places ton while...

cs_Miss1 · Answer

Merci sa fonctionne super bien.

cs_Miss1 · Answer

j un autre pb cette fois si je veut qu'il m'affiche le nom de la photo qui existe mais qui n'apparait pas dans mon doc texte.la premier version fonctionne il me dit les infos qui sont en plus.
Private Sub Command2_Click()

variables

Label1 = Dir1 & "" & File1
fichier = Label1
fic2 = "C:\Documents and Settings\ckubiczek\Bureau\Projet 1\fic2.txt"
Text1.Text = ""
Répertoire = File1.Path
fichierTrouvé = Dir(Répertoire & "\*.tif")
 While fichierTrouvé <> ""
    Text1.Text = Text1.Text & vbCrLf & fichierTrouvé
    fichierTrouvé = Dir()
 Wend
 
texte = Text1.Text



Numfichier = FreeFile
Open fichier For Input As #Numfichier
Numres = FreeFile
Open fic2 For Append As #Numres
    
    While Not EOF(Numfichier)
     
       Line Input #Numfichier, Lign
       
       Temp = Mid(Lign, 1, 14)
        If InStr(texte, Temp) Then
            
           Else:
                
                Print #Numres, Temp


           
        End If
       Wend
       
Close #Numres
Close #Numfichier


End Sub
voici tt mon code merci de bien vouloire m'aider

cs_Miss1 · Answer

salut rvblog la l'erreur se trouver bien ds mid je l'ai reverifier et ts fonctionne.
Merci à tous de m'evoir aider.

Je n'arrive pas a afficher les...............

7 réponses

Discussions similaires