Unicode to Ansi Conversion

[=?Utf-8?B?R2lubw==?=]

I have written an application which uses a streamwriter to create which is
exported to a third party system. The third party system does not appear to
process the files in its original format. I have identified this as resulting
from the streamwriter outputing in Unicode.

If I open the text file using notepad and save it with the default 'ansi'
type the import works fine. How can I convert the initial file to ansi.

Thanks in advance for any replies!

[Guru]

"Gino" <ia*********@tw oway-logistics.comwr ote in message
news:F3******** *************** ***********@mic rosoft.com...

>I have written an application which uses a streamwriter to create which is
exported to a third party system. The third party system does not appear
to
process the files in its original format. I have identified this as
resulting
from the streamwriter outputing in Unicode.

If I open the text file using notepad and save it with the default 'ansi'
type the import works fine. How can I convert the initial file to ansi.

StreamWriter Constructor (String, Boolean, Encoding)

Dim MyEncoding As Encoding = Encoding.ASCII
Dim f As String = "C:\Temp\SomeFi le.txt"
Dim sw As New StreamWriter(f, False, MyEncoding)

sw.Write(LoadsO fCrap)
sw.Close()

Thanks in advance for any replies!

Rude pig.

[Cor Ligthert[MVP]]

Gino,

What do you mean with Ansi, all the replies you got where about the ancient
7 bit ASCII code. However that is not Ansi.

Your Unicode is Ansi

http://en.wikipedia.org/wiki/Code_page

You can use the code provided until now in this messagethread, but take than
the proper encoding.

http://msdn2.microsoft.com/en-us/lib...ng(VS.71).aspx

Cor

[Cor Ligthert[MVP]]

Gino,

While answering the question from Lorenzo, I remebered that I once had
answered this questiong with this one.

Be aware that this is the American/Dutch code page (it is the only one with
the guilder character in it).

\\\
Dim Str As New StreamReader(Fi lePath)
Dim arrInput As Byte() = _
System.Text.Enc oding.GetEncodi ng(437).GetByte s(Str.ReadToEnd )
Str.Close()
///

Cor

[Herfried K. Wagner [MVP]]

"Guru" <ru*****@interf erence.nitschri eb:

>>I have written an application which uses a streamwriter to create which is
exported to a third party system. The third party system does not appear
to
process the files in its original format. I have identified this as
resulting
from the streamwriter outputing in Unicode.

If I open the text file using notepad and save it with the default 'ansi'
type the import works fine. How can I convert the initial file to ansi.

StreamWriter Constructor (String, Boolean, Encoding)

Dim MyEncoding As Encoding = Encoding.ASCII

ASCII != ANSI.

Use 'Encoding.Defau lt' to use the system's default Windows ANSI codepage, or
use 'Encoding.GetEn coding(<codepag e number>)' to get a specific Windows ANSI
codepage.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>