تبدیل فایل ANSI به UTF-8 با برنامه نویسی

[mojtabamalaekeh]

سلام
من تو VB یک فایل رو به صورت Random باز کردم و با تابع زیر اطلاعات متنی رو داخلش نوشتم:

کد:

Private Sub PutToFile(FileNum As Integer, s As String)
Dim Counter As Integer, Char As Byte
For Counter = 1 To Len(s)
Char = Asc(Mid(s, Counter, 1))
Put FileNum, , Char
Next
End Sub

مثال:

کد:

PutToFile Free, "<?xml version=""1.0"" encoding=""utf-8""?>"

از همین خط اول فایل میشه فهمید برنامه مقصد که میخواد فایل رو بخونه باید Encoding فایل UTF-8 باشه!
مشکل بعدی اینه که با کدنویسی باید فایل رو به UTF-8 تبدیل کنم. شرایط طوری نیست که کاربر به صورت دستی با Notepad این کار رو بکنه.
ولی این فایل قبل از رسیدن به مقصد، هم تو VB میشه روش کار کنم هم تو دلفی؛ پس فرقی نمیکنه با کدوم زبان کدها نوشته بشن!!!
خیلی ممنون میشم اگه کمک کنید.

[mojtabamalaekeh]

کد:

Dim Str_Data As String, FileName As String
    Dim Obj_ADODbStream As New ADODB.Stream
Free = FreeFile
Open FileName For Input As #Free
Str_Data = Input$(LOF(Free), #Free)
Close #Free
Obj_ADODbStream.Open
Obj_ADODbStream.Position = 0
Obj_ADODbStream.Charset = "UTF-8"
Obj_ADODbStream.WriteText CStr(Str_Data)
Obj_ADODbStream.SaveToFile FileName, adSaveCreateOverWrite
Set Obj_ADODbStream = Nothing

با تشکر از IRANPHP
منبع