Mamylo جان من همیشه از همه درخواست می کنم سوالی که دارن رو کامل بنویسن، به عنوان مثال اگر هدف شما این هست که متنی از قبل معین رو (مثلا help برنامه تون ) باز کنین راه های بینهایت آسونتری هست اما این واقعیت که Vb6 زمان win98 اومده و اون زمان تازه یونیکد می خواست استفاده بشه و برای همین این محیط نمی تونه درست ازش پشتیبانی کنه حقیقتیه، بهترین راه استفاده (توو جایی که دیگه مجبورین حتما یونیکد رو ببینین ) از نسخه های جدید این زبان هست . اگر کمی کامل تر توضیح بدین کاری که می خواین ( اینکه چیزی مثل notepad می خواین یا ... ؟ ) شاید بشه راحت تر کمک کرد
Khepele Sibilo عزيز، ببخشيد اگر سؤالم کامل نبوده
اين کل قضيه منه:
من يه برنامه مبدل قالب نوشتم که فايل قالب بلاگفا رو مي گيره و اون رو به سرويس هاي ديگه تبديل مي کنه. همه چيز خوب پيش مي ره الا اون موقع که فايل لود ميشه. ايرادشم همين ؟؟؟؟ هاي لعنتيه!
اما اگر فايل قالب رو با notepad باز کنم و اونو به صورت ANSI ذخيره کنم همه چيز خوبه
در حالي که اذيت مي شم اگه بخوام دو ساعت ANSI کنم فرمتو بعد تبديل کنم، بعد هر دو تا فايلو يونيکد کنم. از طرفي، اگه آخرش يونيکد نکنم فايلارو تو خيلي از سيستماي ديگه مشکل ساز ميشه.
در مورد 1 که خب حتما باید سیستم مقصد هم فارسی باشه. اینطوری نمیشه.
- خب اگر مشکل فقط اینه باید فایل رو بصورت باینری بخونی و با همون فانکشنی که گفتم تبدیلش کنی و بعد بریزی توی تکست باکس. چیزی شبیه به این: (البته حتما باید non-unicodeی که گفتم رو تنظیم کنی!)
کد:
Dim FF As Integer
Dim fileByte() As Byte
FF = FreeFile()
Open filename For Binary As #FF
ReDim fileByte(LOF(FF))
Get FF, , fileByte()
Close FF
fileStr = StrConv(fileByte(), vbFromUnicode)
(دستوراتش رو همینطوری تایپ کردم اگر مشکلی داشت بگو)
در ضمن بهتر هست از RichTextBox استفاده کنی که فکر میکنم یونیکد رو ساپورت میکنه کلا.
راه حل دیگه هم اینه:
http://support.microsoft.com/kb/193540
/
قربان ميشه از RichTextBox براي کاري که گفتم استفاده کرد؟ من بعد لود کردن فايل محتوي TextBox رو مي ريزم تو يه متغير و روش کار مي کنم.
اون لينک ميکروسافته رو هم مطالعه کردم، منتها الان وي بي رو تو اين ويندوزم نصب ندارم. اميدوارم يا کدي که داديد يا اون آموزش حل کنه مشکلمو
. در مورد Unicode در VB6 من خواستم از همون اول بگم كه اين زبان اصلن به درستي از اين كدها پشتيباني نمي كنه ولي گفتم شايد Update يا Patchي برايش آمده باشد!
موفق باشيد.
بسوزه پدر پيري! سعي دارم برم سراغ دات نت ولي فعلاً واسم php اولي تره که دارم اونو ياد مي گيرم
ضمناً آخرين پچش Service Pack 6ه که اونو دانلود و نصب کردم ولي هيچ تغييري تو اون چيزي که مي خواستم رخ نداد
