ايران ويج

نسخه‌ی کامل: گرفتن متن فارسی و نمایش آن از فایل متنی
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
سلام دوستان
بنده قصد دارم از یک فایل متنی فارسی که با utf-8 هم ذخیره کردم را در یک لیست نمایس بدم منتها متن بصورت بهم ریخته میاد حتی فونت لیست هم روی tahoma arabic میذارم .
تا اونجا که من یادمه باید سیستم عامنل طرف زبان فارسی رو ساپورت میکرد! و ربطی به تنظیمات داخل برنامه نداشت

باید از language region اینا میرفتی و utf8 و زبان آسیا رو روی سیستم ویندوزت نصب میکردی تا برنامه ها به این مشکل بر نخورن
کد:
Dim objStream, strData

Set objStream = CreateObject("ADODB.Stream")

objStream.CharSet = "utf-8"
objStream.Open
objStream.LoadFromFile("iranled.txt")

strData = objStream.ReadText()

objStream.Close
Set objStream = Nothing
امیدوارم این بهتون کمک کنه