Discussion :

[bailamos]

salut je croit que c'est impossible d'ouvrire 2fichier au meme temps alors est ce que il ya d'autre moyen

merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Open File1.FileName For Input As #1
While Not EOF(1)
Line Input #1, ss
 
Open "ascw" & File1.FileName For Append As #1
Print #1, replace(ss,"a","<a>")
Close #1
 
Wend
Close #1

[ProgElecT]

je croit que c'est impossible d'ouvrire 2fichier au meme temps

Faux
Recherches sur ce forum "FreeFile"

[Delbeke]

On ne peut ouvrir deux fichiers en même temps en utilisant le même numero de fichier !

[bailamos]

voilla il sufit de changer le numero de fichier merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Open File1.FileName For Input As #1
While Not EOF(1)
Line Input #1, ss
 
Open "ascw" & File1.FileName For Append As #2
Print #2, replace(ss,"a","<a>")
Close #2
 
Wend
Close #1

[ProgElecT]

il sufit de changer le numero de fichier merci

A condition que aucun autre process n'utilise l'un de tes N°
Une derniere fois

FreeFile, fonction
Renvoie une valeur de type Integer représentant le prochain numéro de fichier pouvant être utilisé par l'instruction Open.
Utilisez la fonction FreeFile pour fournir un numéro de fichier encore non utilisé.

quand tu choisis 1 et/ou 2, rien ne te garantis qu'il ne soit pas en cour d'utilisation.