باز نویسی و ذخیره متن فارسی TextBox در یک فایل بصورت UTF8

[FirstLine]

با سلام
محتویات یک فایل html فارسی که بصورت utf8 است را در یک TextBox لوود میکنیم.
پس از تغییرات آن را بر روی فایل خوانده شده ذخیره میکنیم.
متاسفانه فایل ذخیره شده بصورت یونیکد ذخیره نمیشود.
لطفا راهنمایی بفرمایید که چجوری کد زیر را جهت ذخیره بصورت یونیکد تغییر دهم.



Private Function WriteToFile(ByVal Path As String, ByVal strText As String)
Dim SW As IO.StreamWriter
SW = System.IO.File.CreateText(Path)
SW.Write(strText)
SW.Close()
End Function

با تشکر

[raravaice]

این یک روش :



Dim bytes() As Byte = Text.Encoding.UTF8.GetBytes(strText)
Dim SW As IO.File
SW.WriteAllBytes(Path, bytes)


موفق باشید

[FirstLine]

با سلام
از لطف و راهنمایی شما سپاسگزارم.
این کد را امتحان کردم اما متاسفانه فایل را بصورت utf8 with encoding ذخیره نمیکند.
لطفا راهنمایی بفرمایید.
با تشکر

[raravaice]

مگه میشه؟
چه اتفاقی تو سورس شما داره رخ میده که text به صورت utf8 ذخیره نمیشه؟

مشکل رو تشریح کن.

موفق باشید

[FirstLine]

با سلام
من یه تکس باکس با یه دکمه روی صفحه گذاشتم در بالای صفحه هم تگ یونیکد را قرار داده و در رویداد دکمه کد زیر را نوشته ام:
[code]
Dim bytes() As Byte = Text.Encoding.UTF8.GetBytes(txt_Farsi.text)
File.WriteAllBytes("test.htm", bytes)
[code]
در تکست باکس یه نوشته فارسی مینویسم و دکمه را که میزنم یه فایل جدید ایجاد میشه ولی با توجه به اینکه تگ یونیکد داره فایل ذخیره شده بصورت فارسی نمایش داده نمیشود.
با تشکر

[raravaice]

عجیب و جالبه!
سورس + صفحه رو پیوست میکنی اینجا؟

[FirstLine]

با سلام
از لطف شما سپاسگزارم.
یه صفحه جدید ایجاد کردم تا نمونه آن کد را نوشته و برای شما ارسال کنم، درست کار کرد.!!!
خیلی ممنون.
با تشکر