Problems with writing a text file (again)

[poldoj]

First I would thank you all for the replies at my previous post. Say sorry
for my poor english also. I have found where my problem came from. I am
writing a string to a text box and write the content of that textbox to a
file. All is just fine until I try to pass this character to the textbox:

exemple:

------

TextBox1.Append Text(Chr(167) )

-------

or

-------

TextBox1.Append Text("§")

-------

that is the same thing. Then I have this code in the click button event (the
save button):

-------

Try

Dim file_name As String

SaveFileDialog1 .Filter = "text files (*.txt)|*.txt|a ll files (*.*)|*.*"

If SaveFileDialog1 .ShowDialog() = DialogResult.OK Then

file_name = SaveFileDialog1 .FileName

Dim file As System.IO.FileS tream

file = System.IO.File. Create(file_nam e)

file.Close()

Dim fw As New StreamWriter(fi le_name)

fw.Write(TextBo x1.Text)

fw.Close()

End If

Catch ex As Exception

MessageBox.Show (ex.Message)

End Try

------------

My text file is generated without problems, if I try to open it with notepad
just display my character "§"

But if I open this file with wordpad it show "§". When I try to read this
files from another applications I get this unwanted  character. I don't
know how to pass this "§" in the right way for display only the §.

Thanks.

[Herfried K. Wagner [MVP]]

"poldoj" <po********@gma il.com> schrieb:

My text file is generated without problems, if I try to open it with
notepad just display my character "§"

But if I open this file with wordpad it show "§". When I try to read this
files from another applications I get this unwanted  character. I don't
know how to pass this "§" in the right way for display only the §.

You may want to use a different encoding when writing the file. At least
one overload of the 'StreamWriter' takes a 'System.Text.En coding'.

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

[Cor Ligthert]

Poldoj,

I have had this problem as well. It was when I had set for some testing my
computer to another country which was using another codeset than I thought I
was using, not any encoding did help me than.

After setting it back all problems where gone.

Maybe you can check that if you did the same.

And then when that is not enough you can look which codeset you are using
and than something as

\\\
Public Shared Sub main()
If File.Exists("C: \Test2\Text.txt ") Then _
File.Delete("C: \Test2\StringTe xt.txt")
Dim stw As New StreamWriter("C :\Test2\StringT ext.txt")
stw.WriteLine(" 123âäfabc")
stw.Close()
Dim Str As New StreamReader("C :\Test2\StringT ext.txt")
Dim arrInput As Byte() = _
System.Text.Enc oding.GetEncodi ng(437).GetByte s(Str.ReadToEnd )
Str.Close()
End Sub
////

Where 437 is one of the codetables that is used on my computer (You can as
well try 1252 (latin))

Cor

[poldoj]

I finally found the solution:
----------------------
Dim SwBuffer = New StreamWriter(fi le_name, True,
System.Text.Enc oding.Default, 512)

SwBuffer.Write( TextBox1.Text)

SwBuffer.Flush( )

SwBuffer.Close( )

-----------------------------

Thank all for help and patience :)