چگونه میتوان یک متن را به utf8 تبدیل کرد؟

[malihehshajari]

با سلام
من یک متن دارم میخوام اونو به utf8تبدیل کنم کسی میدونه چجوری میشه این کار رو کرد؟
با تشکر

[M.T.P]

متن یا فایل؟

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

Dim obStream As Object
Set obStream = CreateObject("adodb.stream")

With obStream
.Charset = "utf-8"
.Mode = 3
.Type = 2
.Open
.WriteText "salam"
.SaveToFile "C:\1.txt"
.Close
End With

[MohammadGh2011]

متن یا فایل؟

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


Dim obStream As Object Set obStream = CreateObject("adodb.stream") With obStream .Charset = "utf-8" .Mode = 3 .Type = 2 .Open .WriteText "salam" .SaveToFile "C:\1.txt" .Close End With
سلام عليکم جناب M.T.P
لطفا کدهارو در تگ vb بزاريد،مشکلي که قبلا رخ ميداد، رفع شده.


موفق باشيد

[M.T.P]

سلام عليکم جناب M.T.P
لطفا کدهارو در تگ vb بزاريد،مشکلي که قبلا رخ ميداد، رفع شده.


موفق باشيد

سلام :قلب:
امروز رو هرکدوم گذاشتم به هم ریخت ، البته چند ساعت بعد ویرایش زدم درست شد.

[MohammadGh2011]

سلام :قلب:
امروز رو هرکدوم گذاشتم به هم ریخت ، البته چند ساعت بعد ویرایش زدم درست شد.

براي ماها مشکلي نداره.


موفق باشيد

[malihehshajari]

متن یا فایل؟

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

Dim obStream As Object
Set obStream = CreateObject("adodb.stream")

With obStream
.Charset = "utf-8"
.Mode = 3
.Type = 2
.Open
.WriteText "salam"
.SaveToFile "C:\1.txt"
.Close
End With

ممنون از پاسختون
حالا اگه بخوام این فایل رو بخونم و متن داخلش رو در یک متغیر رشته ای بریزم چجوریه؟

[M.T.P]

حالا اگه بخوام این فایل رو بخونم و متن داخلش رو در یک متغیر رشته ای بریزم چجوریه؟

Dim strData As String
Dim intFile As Integer

intFile = FreeFile
Open "c:\1.txt" For Binary As intFile
strData = String$(LOF(intFile), Space$(1&))
Get intFile, , strData
Close intFile

MsgBox strData