realbasic-nug.fr
[Top] [All Lists]

Encodings.Beuh

To: REALbasic NUG French <realbasic-nug dot fr at lists dot realsoftware dot com>
Subject: Encodings.Beuh
From: frael <frael at marine-label dot com>
Date: Sun, 17 Dec 2006 16:34:20 +0100
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot fr at lists dot realsoftware dot com

Bonjour !

Je crée et j'écris un fichier .txt dans mon programme
Chaque ligne est écrite par la méthode suivante :

Sub WriLin(Extends aTxOut As TextOutputStream, aSt As String)

   #if TargetMacOS
      if aSt.Encoding = nil then
         aTxOut.WriteLine(DefineEncoding(aSt, Encodings.MacRoman))
      else
         aTxOut.WriteLine(ConvertEncoding(aSt, Encodings.MacRoman))
      end
   #endif

   #if TargetWin32
      if aSt.Encoding = nil then
         aTxOut.WriteLine(DefineEncoding(aSt, Encodings.WindowsLatin1))
      else
aTxOut.WriteLine(ConvertEncoding(aSt, Encodings.WindowsLatin1))
      end
   #endif

   #if TargetLinux
      if aSt.Encoding = nil then
         aTxOut.WriteLine(DefineEncoding(aSt, Encodings.FOVOIR))
      else
         aTxOut.WriteLine(ConvertEncoding(aSt, Encodings.FOVOIR))
      end
   #endif

End Sub

Sur Mac , ca me fait bien des fins de ligne avec le seul caractère 09
Mais sur Win, ca me met ODO9 (ca devrait être ODOA) !

Qqn voit-il skej fais de travers ??

Merci

Marc

<Prev in Thread] Current Thread [Next in Thread>
  • Encodings.Beuh, frael <=