سیو کردن فایل متنی txt به صورت unicode

[arenaw]

سلام , میخواستم ببینم چجوری یک متن رو از برنامه به صورت unicode سیو کنم؟
(داخل استرینگ از کاراکتر های خاص استفاده میشه و وقتی معمولی فایل رو مسیازه (ansi) کاراکتر ها جور دیگه سیو میشن)

[setroyd]

اگر منظورت به صورت کد شده هست و عددی ؟

[arenaw]

man daram ye barname baraye encrypt kardane neweshte minevisam
bad masalan kalame salam ro ba passworde 1234 code mikoni ye kalame 5 harfi dg behet mide
ba karakter haye ajibgharib.
vaghti tu textboxe khode vb decrypt mikoni doroste , wali vaghti save mikoni karakter haye encrypt shode
jure dg save mishan.
pas moghe load kardan nemishe decrypteshun kard

motewajeh shodin manzuramo?

[setroyd]

بله چرا نشم ! دوست عزیز 1 شما بیا در یک textbox یا هرچی ........ کد کنش و بعد از کد کردن اون رو ذخیره کن . ودوباره اون رو از hard بخون و کاراکتر هایی که اضافه کردیو دوباره حذف کن . این راه درسته . حالا شما میگی این در موقع save کردن مشکل داره این دیگه از مشکل کد نویسی شماس شک نکنید اگه دوست داری فایل رو ضمیمه کن برات درست کنم .

[butterfly8528]

سلام دوست عزیز .
برای ذخیره کردن فایل متنی با فرمت Unicode از تابع زیر استفاده کنید .

Private Sub SaveUnicode(text As String, Dest As String)

Dim i As Long, A As String
Dim fileHead(1) As Byte, fileBody() As Byte

fileHead(0) = 255
fileHead(1) = 254

A = StrConv(text, vbUnicode)

ReDim fileBody(Len(A) - 1)

For i = 1 To Len(A)
fileBody(i - 1) = Asc(Mid$(A, i, 1))
Next i

Open Dest For Binary As #1
Put #1, 1, fileHead
Put #1, 3, fileBody
Close #1

End Sub

Private Sub Command1_Click()
Call SaveUnicode(Text1.text, "C:\myUnicodeText.txt")
End Sub

موفق باشید .