نوشته شده توسط
nonak1360
اساتید عزیز سلام
این تاپیک رو تازه دیدم چون تا حالا به وسعت فاجعه این مشکل پی نبرده بودم بودم
نمیدونم این اکتیوکس هایی که دوستمون زحمت کشیدن نوشتن این مشکل رو توی وی بی حل میکنه ؟!!!!! یا فقط مثل عکسی که قرار دادن تکست رو ساپورت میکنه
مثال:
open "C:\FarsiFileName" for input as #1
منظورم از فارسی فایل یه فایل با اسم فارسیه
به شکل باینری باز میشه ولی مشکل اینه که اگه قرار باشه فایل مثلا متنی رو خط به خط بخونیم در این حالت امکانش نیست اگه نظری دارید یا به هر حال راه حلی به ذهنتون میرسه خیلی مشکلات من رو حل میکنه
ترو خدا دریغ نکنید ، تا حالا اینقدر احساس در موندگی بخاطر ویژوال بیسیک 6 بم دست نداده بود.
سلام علیکم
با کد زیر مشکلی نداره و خط به خط میخونه :
Open "D:\تست.txt" For Input As #1
AllText = Input(LOF(1), 1)
ln = Split(AllText, vbCrLf)
Text1 = ln(0)
Close
موفق باشید.
یا علی (ع)