Sort Acsending English Words

Unicode فارسی

اکسس یونیکد فارسی را پشتیبانی نمی کند فرضا اگر اسم فایلی با اعداد فارسی ذخیره شده باشد زمانیکه آنرا بعنوان داده به یک فیلد از جدولی Extract می کنید جای کاراکترها علامت سوال زده میشود ( امتحان کنید موضوع اکسترکت کردن با آبجکت Scripting.FileSystemObject است ) در نتیجه مجبورید مراحلی را بروید تا به همان صورتی که در اکسپلورر می بینید در جدول هم مشاهده کنید. ( اول استفاده از تابعAscW : اگر Asc خالی باشد برای گرفتن اسکی کد و اگر با W باشد گرفتن یونیکد کاراکتر مشخص شده سپس قر اردادن آن در $Hex ) 

برای روش تبدیل Hex به Decimal  لینک زیر را مطالعه کنید ( آنچه را نمی دانید سایت های خارجی برایتان به نمایش خواهند گذاشت پس مطالعه و تحقیق کنید ) 

 how-to-convert-hex-to-decimal-in-access

به ترتیب  از سمت چپ پوزیشن ، دسیمال ، نام و نمایش ( اپیرنس)

در VBE یا Visual Basic Editor می توانید با تابع ( Chrw(1776  یا $Chrعدد ۰ را مشاهده کنید.

اگر شما می خواید اعداد فارسی رو نمایش بدین، بهتره کد اسکی عدد رو با کد یونیکد اون جایگزین کنید یعنی:


text = text.Replace("0", ChrW(&H6F0)) ' ۰
text = text.Replace("1", ChrW(&H6F1)) ' ۱
text = text.Replace("2", ChrW(&H6F2)) ' ۲
text = text.Replace("3", ChrW(&H6F3)) ' ۳
text = text.Replace("4", ChrW(&H6F4)) ' ۴
text = text.Replace("5", ChrW(&H6F5)) ' ۵
text = text.Replace("6", ChrW(&H6F6)) ' ۶
text = text.Replace("7", ChrW(&H6F7)) ' ۷
text = text.Replace("8", ChrW(&H6F8)) ' ۸
text = text.Replace("9", ChrW(&H6F9)) ' ۹

(۷DF)۱۶

۷DF = (7 * 162) + (13 * 161) + (15 * 160) 
۷DF = (7 * 256) + (13 * 16) + (15 * 1)
۷DF = 1792 + 208 + 15
۷DF = 2015

(0^6F0=(6*16^2)+(15*16^1)+(0*16

(6F0=(6*256)+(15*16)+(0*1

6F0=1536+240

6F0=1776

ChrW(1776)=۰

("Set fso = CreateObject("scripting.filesystemobject

(Set fldr = fso.GetFolder(path

 For Each f In fldr.FILES

"fso.movefile "d:\ips\" & folder & "\" & f.name, "d:\ips\" & folder & "\" & folder & "_" & t & ".jpg

Unicode