copier des champs dans un fichier

Question

Bonjour,

J'aimerais intégrer ce programme dans une boucle, il s'agit simplement de recopier des champs d'adresses de A dnas un autre fichier B mais dans un ordre différent. Il fonctionne mais il ne traite qu'une seule ligne. J'ai essayé avec Do while mais cela ne fonctionne pas ? Merci pour votre aide

Dim pf1 As Long
  Dim a, b, c, d, e, f As String
  '
  ChDrive App.Path
  ChDir App.Path
  '
  pf1 = FreeFile
  Open "A.txt" For Input As pf1
  Line Input #pf1, a
  Line Input #pf1, b
  Line Input #pf1, c
  Line Input #pf1, d
  Line Input #pf1, e
  Line Input #pf1, f
  Close pf1
  '
  pf1 = FreeFile
  Open "B.txt" For Output As pf1
  Print #pf1, b
  Print #pf1, c
  Print #pf1, d
  Print #pf1, e
  Print #pf1, f
  Print #pf1, a
  Close pf1
  End Sub

FRGOLD · Answer

-------------------------------
 Réponse au message :		  
-------------------------------

> Bonjour,
> 
> 
> J'aimerais intégrer ce programme dans une boucle, il s'agit simplement de recopier des champs d'adresses de A dnas un autre fichier B mais dans un ordre différent. Il fonctionne mais il ne traite qu'une seule ligne. J'ai essayé avec Do while mais cela ne fonctionne pas ? Merci pour votre aide
> 
> Dim pf1 As Long
>   Dim a, b, c, d, e, f As String
>   '
>   ChDrive App.Path
>   ChDir App.Path
>   '
>   pf1 = FreeFile
>   Open "A.txt" For Input As pf1
>   Line Input #pf1, a
>   Line Input #pf1, b
>   Line Input #pf1, c
>   Line Input #pf1, d
>   Line Input #pf1, e
>   Line Input #pf1, f
>   Close pf1
>   '
>   pf1 = FreeFile
>   Open "B.txt" For Output As pf1
>   Print #pf1, b
>   Print #pf1, c
>   Print #pf1, d
>   Print #pf1, e
>   Print #pf1, f
>   Print #pf1, a
>   Close pf1
>   End Sub
> 
>

Copier des champs dans un fichier

1 réponse

Discussions similaires