ايران ويج

سلام
من تو 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 میشه روش کار کنم هم تو دلفی؛ پس فرقی نمیکنه با کدوم زبان کدها نوشته بشن!!!
خیلی ممنون میشم اگه کمک کنید.

کد: 
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
منبع

mojtabamalaekeh

mojtabamalaekeh