none
Erreur de création de fichier RRS feed

  • Question

  •  

    Bonjour,

     

    j'utilise le code suivant pour amalgamer différents fichiers.

    Module Module1

    Dim file1, file2, ajout As String

    Sub Main()

    file1 = "d:\test\test1.txt"

     

    For L = 2 To 100

    file2 = "d:\Test\test" & L & ".txt"

    ajout = My.Computer.FileSystem.ReadAllText(file2)

    My.Computer.FileSystem.WriteAllText(file1, ajout, True)

    Next L

     

    End Sub

    End Module

     

    Mon problème est que le code ne se contente pas de faire l'amalgame, il rajoute 3 caractères au début du fichier concaténé:  .

    Leurs codes ascii sont: EF BB et BF.

    Leur présence rend inutilisable le fichier final qui est correct par ailleurs. (fichier spool)

     

    Pouvez-vous m'aider à corriger le problème ?

     

    Merci.

    jeudi 10 juillet 2008 16:50

Réponses

  • Bonjour,

     

    Les caractères générées au début réprésentent la marque BOM du format UTF-8.

    Si vous souhaitez ne pas utiliser cette marque utiliser le 4ème paramètre encoding de la méthode WriteAllText.

     

    Code Snippet
    My.Computer.FileSystem.WriteAllText(file1, ajout, True, New UTF8Encoding(False, True))

     

    Ainsi, la marque BOM ne sera pas générée.

     

    Cordialement

    jeudi 10 juillet 2008 20:25
    Modérateur

Toutes les réponses

  • Bonjour,

     

    Les caractères générées au début réprésentent la marque BOM du format UTF-8.

    Si vous souhaitez ne pas utiliser cette marque utiliser le 4ème paramètre encoding de la méthode WriteAllText.

     

    Code Snippet
    My.Computer.FileSystem.WriteAllText(file1, ajout, True, New UTF8Encoding(False, True))

     

    Ainsi, la marque BOM ne sera pas générée.

     

    Cordialement

    jeudi 10 juillet 2008 20:25
    Modérateur
  • Bonjour,

     

    merci beaucoup, cela fonctionne très bien.

     

    Cdt

    vendredi 11 juillet 2008 22:44