Suprresion des 10 premiers caractères en VB

Alain -  
Polux31 Messages postés 7219 Statut Membre -
Bonjour,

Est il possible de supprimer les 10 premiers caractères d'un fichier texte.
Pour accéder au fichier texte je procède de la manière suivante :
Open Fichier For Output As #2
Print #2, chaine

Merci
Configuration: Windows XP
Firefox 3.0.4

1 réponse

  1.
    Polux31 Messages postés 7219 Statut Membre 1 204
     
    Bonjour,

    La méthode Output va écraser le fichier existant.

    Pour faire ce que tu veux faire il faut ouvir le fichier avec la méthode Input, ainsi que pour lire une ligne.

    Voilà une méthode: 
    Sub ModifFichier()
Dim fpIn As Integer
Dim fpOut As Integer
Dim ligne As String

   fpIn = 11
   fpOut = 3

   On Error Resume Next
   Open "C:\monFichier.txt" For Input As #fpIn
   Line Input #fpIn, ligne
   ligne = Mid(ligne, 10, Len(ligne))

   Open "C:\FichierTmp.txt" For Output As #fpOut
   Print #fpOut, ligne

   While Not EOF(fpIn)
      Line Input #fpIn, ligne
      Print #fpOut, ligne
   Wend
   Close #fpIn
   Close #fpOut

   Kill "C:\monFichier.txt"
   Name "C:\FichierTmp.txt" As "C:\monFichier.txt"

End Sub


    J'ai écrit ça à main levée sans tester ... reviens ici, s'il y a un problème.

    Bon courage.

    ;o)
    0