ایجاد فایل به صورت UTF-8

[ابوذر محمودی]

سلام
دوستان عزیز
قبلا ابن موضوع رو به صورت جزئی تو یه تاپیک بحث کردم ولی به نتیجه نرسیدم.
چه طوری با وی بی یه فایل متنی به صورت UTF-8 می شه ساخت .
تو اکثر سیستم ها چک کردم به این نتیجه رسیدم که پیش فرض به صورت ANSI فایلها رو ذخیره می کنه .
مشکل من اینجاست که وقتی کاراکترهای فارسی رو داخل فایل می ریزم اونها رو به صورت علامت سوال ذخیره می کنه.:ناراحت:
حالا اگه دوستان راه حلی دارند لطف کنند دریغ نکنند ، حتی اگه پیش پا افتاده باشه .
ممنون

[ابوذر محمودی]

من واقعا لذت می برم وقتی می بینم بچه ها اینقدر فعال هستند . یه وقت خسته نشین ها !:تشویق:

عزیزان من که عرض کردم :


حالا اگه دوستان راه حلی دارند لطف کنند دریغ نکنند ، حتی اگه پیش پا افتاده باشه .

هر راه حلی حتی اگه تست نشده باشه عیب نداره ، شما مطرح کنید شاید به جواب رسیدیم.

سوال من واضحه : چه طوری کاراکتر های فارسی رو توی فایل قرار بدم .

[r_oscar2007]

نوشتن در فایلهای متنی با ساختار unicode
فایلهای متنی با ساختار unicode را باید به صورت باینری باز کرد و در آن نوشت و از آن خواند دو بایت اول اینگونه از فایلها بترتیب دو کاراکتر با صمارهای 255 و 254 است که به آنها header فایل میگویند و ما بقی فایلها متن فایل است مثال :

Dim fileHead(1) As Byte, fileBody() As Byte
fileHead(0) = 255
fileHead(1) = 254
Dim A As String
A = StrConv(Text1.Text, vbUnicode)
ReDim fileBody(Len(A) - 1)
For i = 1 To Len(A)
fileBody(i - 1) = Asc(Mid$(A, i, 1))
Next i
Open "C:\me.txt" For Binary As #1
Put #1, 1, fileHead
Put #1, 3, fileBody
Close
r: If err Then MsgBox "saving fail"