probleme VB6

Question

bonjour forum,

j'ai plusieurs fichiers nommés comme suit:

fichier1,fichier2,............

je voudrais les ouvrir en méme temps, j'ai fait
for index=1 to ..
open "C:fichier&index.txt" for input as #1

mais a chaque fois j'ai le message fichier non trouvé

est ce vous avez une idée?
merci d'avance

teebo · Answer

Salut :o)bonjour forum Original ;o)Pour répondre à ta question, il faudrait que tu fasses:Open "C:\Fichier" & index & ".txt"Je pense que ça devrait marcher ...

Lory · Answer

salut teebopour vérifier si sa marche, j'ai ajouterOpen "C:\Rfichier & index & ".txt" For Output As #2mé je ne vois pas de fichier rfichier dans Cvous avez une idée?

teebo · Answer

Tu as mal recopié ce que j'ai mis, j'ai mis fichier et non pas Rfichier et il manque des " .

Qui plus est j'ai supposé que les fichiers fichier1 fichier2 ,... .txt existaient sur C:\ puisque c'est là que tu cherchais à les ouvrir...

lory · Answer

Renon j'ai pas mal recopiéil ouvre seulement le premier fichier et il affiche une erreur fichier deja ouvert

teebo · Answer

Tu refermes bien les fichiers aussi?

lory · Answer

Reoui j'ai fait close#2 mais ca ne marche pas

teebo · Answer

Bon si tu me mettais tout ton code et si tu me disais ce que tu avais comme fichiers sur C:\ ?

lory · Answer

Re
private sub commmand1_click()
Dim y1 as double
Dim index as integer

for index = 1 To 500
Open "C:\Fichier" & index & ".txt" For Input As #1

Open "C:\RFichier" & index & ".txt" For Output As #2

Do While Not EOF(1)

Line Input #1, Y1

Write #2, Y1

Loop
Next index
Close#2

end Sub

j'ai au niveau de C des fichiers de nom "Fichier1, fichier2,....

teebo · Answer

Tu ne peux pas ouvrir deux fois le même fichier 8-)

lory · Answer

rea chaque index il ouvre le fichier correspodantj'ai pas vu ce que vous dites; est ce que vous pouvez m'expliquer?

teebo · Answer

Open "C:\Fichier" & index & ".txt" For Input As #1

Open "C:\RFichier" & index & ".txt" For Output As #2

Tu ouvres le fichier fichier1.txt deux fois, une fois en input une fois en output...

Normal que ça plante :o)

Armojax · Answer

Hello lory,

Si je pige bien, tu veux fusionner en un seul fichier tes fichiers 1,2,etc.
Est-ce que ça ne serait pas quelque chose comme ça :

Private Sub commmand1_click()

  Dim y1
  Dim index As Integer
  
  Open "C:\RFichier1.txt" For Output As #2
  For index = 1 To 500
    Open "C:\Fichier" & index & ".txt" For Input As #1
    Do While Not EOF(1)
      Line Input #1, y1
      Write #2, y1
    Loop
    Close #1
  Next index
  Close #2

End Sub

lory · Answer

Re

le Open "C:\Fichier" & index & ".txt" For Input As #1

c'est pour ouvrir le fichier qui a les donnée et le

Open "C:\RFichier" & index & ".txt" For Output As #2
c'est por crée un fichier de non RFichier ou on met les donnée du premier fichier

lory · Answer

Re

armojax, je veux pas fusionner mes fichiers.

je vais vous expliquer:

j'ai plusieurs fichier nommée fichier1, fichier2,.....

le programme que j'ai fait traite seulement un fichier et mettre le resultat dans RFichier; jusqu'a la ca va.

puissque mes fichiers se différent par les indexs, je voudrais que le programme traite tous les fichiers en meme temps

lory · Answer

non c'est pas ce que vous avez crue.ce que je veux c'est:j'ouvre le fichier1 et le met dans RFichier1, Fichier2 dans Rfichier2,........., fichierN dans RfichierN

lory · Answer

armojaxc'est ce aue je faisait, mais tjrs l'erreurs fichier deja ouvert persiste

lory · Answer

merci teebo, armojax et forum j'ai regler l'erreur

lory · Answer

bonjour forum,

j'ai un petit soucis sur mon programme car s'il trouve pas le premier fichier , j'ai un message d'erreur
est ce que quelqu'un a une idée comme quoi que s'il trouve pas le premier fichier, il exécute les autres
merci

Private Sub commmand1_click()

Dim y1
Dim index As Integer
For index = 1 To 500

Open "C:\Fichier" & index & ".txt" For Input As #1
Open "C:\RFichier"&index&".txt" For Output As #2
Do While Not EOF(1)
Line Input #1, y1
Write #2, y1
Loop
Close #1
Next index
Close #2

End Sub

lory · Answer

Reca ne marche pas, a chaque fois qu'il ne trouve pas le premier fichier

lory · Answer

merci teebo et forum ca marche maintenant

lory · Answer

j'ai un autre problémesi le nombre de fichier est inférieur a index(while index<501), il m'affiche une erreur comme t'as pas une idée

lory · Answer

donc il faut tester l'existance du fichier?

lory · Answer

daccord, je vais chercher

lory · Answer

salut Teeboest t'il pas plus facile d'automatiser ces opérations en récupérant l'argument de la ligne de commande dans une variable Command$ Si l'on lance  MonProg toto.log dans MonProg, la variable Command$ contiendra "toto.log". cela permettra de traiter tous les fichier.log se trouvant dans le répertoir

Lory · Answer

Reje voudrais dire creer un exécutable qui porte le nom parexemple (exo)exo fichier1.txtexo fichier2.txt........................................à chaque fichier on recupére son argument et puis exécutécomme en C main(arg1,arg2)

lory · Answer

ReAutrement dit je voudrais automatisé l'exécution cad faire un programme pour un fichier et l'appliquer sur plusieurs fichier

Armojax · Answer

Hello lory,Après quelques jours d'éclipse... as-tu résolu ton PB ?En fait, ce que tu veux, c'est copier tous les fichiers textes de "C:" qui s'appellent FichierN, et que les copies s'appellent RfichierN.Essaie cette petite chose ci-dessous :Sub ManieFic()        Set Fso = CreateObject("Scripting.FileSystemObject")    Set Dossier = Fso.GetFolder("C:\")    Set Fichiers = Dossier.Files    For Each fic In Fichiers        If Left(fic.Name, 7) = "Fichier" _        And Right(fic.Name, 4) = ".txt" Then        index = Mid(fic.Name, 8, 1)            Fso.CopyFile fic, "C:\Rfichier" & index & ".txt"       End If    Next        End SubTous tes fichiers de C: correspondant au critère de nom sont copiés en RFichier...

lory · Answer

bonjour Armojax et forumNon j'ai pas encore régler le probléme; mais je crois que le programme que tu m'as proposé reglera le problémemais est ce que à la place de Fso.CopyFile fic, "C:\Rfichier" & index & ".txt"on peut  mettreFso.openFile fic, "C:\Rfichier" & index & ".txt" for input as #1Fso.openFile fic, "C:\Rfichier" & index & ".txt" for output as #2dans tous les cas je vais tester.merci pour ton aide

lory · Answer

reapparament il n'accepte pas for input et for output

lory · Answer

Reoui ca marche ton programme mais je voudrais l'adapter a ce que j'ai commencé.c'est pourquoi je t'ai poser la question du fso.openPrivate sub command1_click() Dim nligne As Integer Dim ndata As Integer Dim cp As Integer Dim moyenne1 As Double Dim moyenne2 As Double Dim moyenne1() As Double ReDim moyenne1(1 To N) Dim moyenne2() As Double ReDim moyenne2(1 To N) Dim tab1(1 To 100) As Double Dim tab2(1 To 100) As Double Dim var1, var2, v1, v2, var3, var4 As Double Dim i As Integer Dim ligne As String N = Cint(Text1.Text) 'Ouverture Fichier Source et Destination On Error GoTo Suite Open "C:Fichier.txt" For Input As #1 Open "C:toto.txt" For Output As #2 'Copie des 100 premiers lignes ndata = 1 Do While ((Not EOF(1)) And (ndata <= 101)) If (ndata = 1) Then 'Line Input #1, v1 Input #1, v1 Write #2, v1 ndata = ndata + 1 Else Input #1, v1, v2 Tab1(ndata) = v1 Tab2(ndata) = v2 Write #2, tab1(ndata), tab2(ndata) ndata = ndata + 1 End If Loop nligne = Cint(Text1.Text) cp = ndata 'Copie par groupe de N valeurs ' Puis calcul moyenne Do While (Not EOF(1)) cp = cp + nligne i = 1 Do While ((Not EOF(1)) And (ndata < cp)) Input #1, var1, var2, var3, var4 Moyenne1(i) = var1 Moyenne2(i) = var2 ndata = ndata + 1 i = i + 1 Loop Moyenne1 = 0 Moyenne2 = 0 For i = 1 To Cint(Text1.Text) Moyenne1 = moyenne1+ moyenne1(i) Moyenne2 = moyenne2 + moyenne2(i) Next i Moyenne1 = (moyenne1 / Cint(Text1.Text)) Moyenne2 = (moyenne2 / Cint(Text1.Text)) Write #2, moyenne1, moyenne2 Loop Close #1 Close #2 Suite: End Sub Private Sub Text1_Change() If Text1.Text <> "" Then Text1.Text = Cint(Text1.Text) End If End Sub

lory · Answer

re il faut remplacéOpen "C:Fichier.txt" For Input As #1 Open "C:toto.txt" For Output As #2 par Open "C:\Fichier" & index &  ".txt" For Input As #1 Open "C:\Rfichier" & index & ".txt" For Output As #2

lory · Answer

Bonjour forumj'ai pas encore régler mon problémeest ce que quelqu'un a une idée svpmerci

Probleme VB6

32 réponses

Discussions similaires

Newsletters