نمایش نتایج 1 تا 3 از 3

نام تاپیک: تبدیل فایل تکست یونیکد به ANSI

  1. #1

    تبدیل فایل تکست یونیکد به ANSI

    باسلام
    من یه فایل log از جنس یونیکد دارم که میخوام وارد جدول دیتابیسم بکنمش ولی وقتی واردش میکنم اطلاعاتش بخصوص اسامی فارسیش درهم برهم میشه
    همین فایل رو وقتی با نوت پد به ANSI سیو میکنم مشکل حل میشه
    کد تبدیل Unicoe به Ansi رو میخوام
    ممنون میشم راهنمایی بفرمایید.

  2. #2
    کاربر دائمی
    تاریخ عضویت
    تیر 1391
    پست
    888

    نقل قول: تبدیل فایل تکست یونیکد به ANSI

    نقل قول نوشته شده توسط ali190 مشاهده تاپیک
    باسلام
    من یه فایل log از جنس یونیکد دارم که میخوام وارد جدول دیتابیسم بکنمش ولی وقتی واردش میکنم اطلاعاتش بخصوص اسامی فارسیش درهم برهم میشه
    همین فایل رو وقتی با نوت پد به ANSI سیو میکنم مشکل حل میشه
    کد تبدیل Unicoe به Ansi رو میخوام
    ممنون میشم راهنمایی بفرمایید.
    فرض کنیم در یک فایل متن Unicode فارسی داریم :

    Dim unicodeLog As String
    Dim bytes() As Byte
    unicodeLog = "Unicode.log"
    Open unicodeLog For Binary As #1
    bytes = "Çíä í˜ ãÊä ÝÇÑÓí ÇÓÊ"
    Put #1, , bytes
    Close #1


    و با کد زیر در ansi بصورت آرایه ای از بایت های ANSI دریافتش می کنیم، 0x429 کد LCID زبان فارسی است :

    Dim unicodeLog As String
    unicodeLog = "Unicode.log"
    Dim unicode() As Byte
    Open unicodeLog For Binary As #1
    ReDim unicode(0 To LOF(1) - 1)
    Get #1, , unicode
    Close #1
    Dim text As String
    text = unicode
    Dim ansi() As Byte
    ansi = StrConv(text, vbFromUnicode, &H429)


    و بصورت معکوس هم می توانیم مجددا به Unicode تبدیلش کنیم :

    text = StrConv(ansi, vbUnicode, &H429)

  3. #3

    نقل قول: تبدیل فایل تکست یونیکد به ANSI

    نقل قول نوشته شده توسط the king مشاهده تاپیک
    فرض کنیم در یک فایل متن Unicode فارسی داریم :

    Dim unicodeLog As String
    Dim bytes() As Byte
    unicodeLog = "Unicode.log"
    Open unicodeLog For Binary As #1
    bytes = "Çíä í˜ ãÊä ÝÇÑÓí ÇÓÊ"
    Put #1, , bytes
    Close #1


    و با کد زیر در ansi بصورت آرایه ای از بایت های ANSI دریافتش می کنیم، 0x429 کد LCID زبان فارسی است :

    Dim unicodeLog As String
    unicodeLog = "Unicode.log"
    Dim unicode() As Byte
    Open unicodeLog For Binary As #1
    ReDim unicode(0 To LOF(1) - 1)
    Get #1, , unicode
    Close #1
    Dim text As String
    text = unicode
    Dim ansi() As Byte
    ansi = StrConv(text, vbFromUnicode, &H429)


    و بصورت معکوس هم می توانیم مجددا به Unicode تبدیلش کنیم :

    text = StrConv(ansi, vbUnicode, &H429)
    ممنون دوست عزیز


تاپیک های مشابه

  1. پاسخ: 5
    آخرین پست: یک شنبه 03 مرداد 1395, 17:03 عصر
  2. سوال: تبدیل فایل تکست از utf-8 به ansi
    نوشته شده توسط ghazale_it در بخش PHP
    پاسخ: 1
    آخرین پست: دوشنبه 27 مرداد 1393, 13:37 عصر
  3. دخیره یک فایل متنی روی هاست با enicode ansi
    نوشته شده توسط hamedre81 در بخش PHP
    پاسخ: 1
    آخرین پست: یک شنبه 21 مهر 1392, 01:08 صبح
  4. پاسخ: 1
    آخرین پست: شنبه 05 فروردین 1391, 15:16 عصر
  5. پاسخ: 1
    آخرین پست: جمعه 29 آبان 1388, 18:24 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •