Creation d'un fichier sans vbcrlf à la place des vbcrRésolu

Question

Bonjour,

Qui pourrait m'aider ? 
J' utilise le code suivant pour écrire une chaine de caractère qui comporte un ou plusieurs vbcr dans un fichier. 
Le problème est que quand j'édite le fichier sauvegardé, je trouve des vbcrlf à la place des vbcr !!

Function WriteToFile ()
 Const ForReading 1, ForWriting 2
Dim fso, f
  
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("d:\out	est.txt", ForWriting, True)

strMessage =  "Ceci est un test" & Chr(13) & _
                      "de retour chariot" & Chr(13) &  _
                      "sur des vbcr"

MsgBox strMessage

f.Write(strMessage)  

End Function



call WriteToFile ()

cs_Jack · Accepted Answer

Salut
Je connais pas trop VBScript, mais je ne vois pas pourquoi il ajouterait le Lf.
Es-tu sûr que ce n'est pas l'éditeur texte que tu utilises pour le relire qui fait cet ajout ?
Le relis-tu par programme ?
Avec quelle méthode ?
Essaye de vérifier le fichier généré avec un éditeur hexadécimal, genre HackMan pour vérifier le code ASCII de fin de ligne

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Renfield · Answer

je pense effectivement que tu l'ouvres pas avec NotePad...
certains autres editeurs s'adaptent... et pensent que tu joues avec des fichiers par exemple issus du monde Unix

cs_Vasavoir · Answer

Oups,

En effet je me suis fait avoir par l'option d'Utraedit qui convertie automatiquement le fichier au format DOS.

Merci

Creation d'un fichier sans vbcrlf à la place des vbcr

3 réponses

Votre réponse

Discussions similaires