تور لحظه آخری
امروز : شنبه ، 24 شهریور 1403    احادیث و روایات:  امام علی (ع):زكاتِ رفاه، نيكى با همسايگان و صله رحم است.
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها




آمار وبسایت

 تعداد کل بازدیدها : 1815535775




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

Fileio xtra -


واضح آرشیو وب فارسی:سایت ریسک: Fileio xtra directormx 14 تير 1386, 19:38سلام دوست عزیزی به من ایمیل زده و دو سوال در مورد اینکه من تا حالا چه پروژه های کار کردم و اینکه fileio xtra نمی تونه فایل بازشده رو مسیرشو برگردونه شاید کسی نخواد اینو تو انجمن مطرح کنم شاید از نظر خیلی ها این یه نوع خود ستایی یا خود خواهی باشه واسه همین توضیح در این خصوص نمی دم اگر دوستان مایل باشند تو همین تاپیک پیغام بذارن که شرح حالی از خودم تو یه تاپیک جدید بزارم در خصوص fileio متاسفانه در help دایرکتور ایرادات اساسی وجود داره و در مورد خیلی از مسائل توضیحات کاملی وجود ندارد!؟؟؟(عجیب است) یک نمونه از کار این اکسترا برگرفته از نمونه کار شخصی به اسم مستعار Mdkt که یه import و export ساخته می ذارم که کامل هستش و بهتر از من بدردتون می خوره : Import and export RTF files without having to pay for extras. Basically use the exact same demo as that which comes with the FileIOXtra but change a few things. -- Saving out to a file. on saveText (whichmember) -- create the FileIO instance fileObj = new(xtra "FileIO") -- set the filter mask to text files if the platform contains "mac" then setFilterMask(fileObj,"TEXT") else setFilterMask(fileObj,"Text Files,*.txt,All Files,*.*") end if -- save dialog box filename = displaySave(fileObj,"","") -- check to see if cancel was hit if filename = "" then return FALSE -- delete existing file, if any openFile (fileObj,filename,2) delete(fileObj) -- create and open the file createFile(fileObj,filename) openFile(fileObj,filename,2) -- check to see if file opened ok if status(fileObj) <> 0 then err = error(fileObj,status(fileObj)) alert "Error:"&&err return FALSE end if -- write the file TextToSave=member(whichmember).rtf -- .rtf indicates the rich text format of the cast member. writeString(fileObj, TextToSave) -- so the text file will contain the rtf data. A regular text editor will open it with junk -- but any application that supports .rtf files will understand the formatting. -- set the file type if the platform contains "Mac" then --instead of the following, setFinderInfo should contain --the necessary information for an rtf file. I am a PC person and --do not know what the Mac Finder info is for rtf files. --setFinderInfo(fileObj, "TEXT ttxt") end if -- close the file closeFile(fileObj) return TRUE end -- Loading from a file into member(whichmembertosaveto) on LoadText (whichmembertosaveto) -- create the FileIO instance fileObj = new(xtra "FileIO") -- set the filter mask to text files if the platform contains "mac" then -- setFilterMask(fileObj,"RTF") --the mac FilterMask should be set to whatever "RTF" Files are. Again, I am a PC person. else setFilterMask(fileObj,"RTF Files,*.RTF,All Files,*.*") end if -- open dialog box filename = displayOpen(fileObj) -- check to see if cancel was hit if filename = "" then return "" -- open the file openFile(fileObj,filename,1) -- check to see if file opened ok if status(fileObj) <> 0 then err = error(fileObj,status(fileObj)) alert "Error:"&&err return "" end if -- read the file text = readFile(fileObj) -- close the file closeFile(fileObj) --put the rtf data into a member member(whichmembertosaveto).rtf=text end توی این کدا دقت کنید یه مثال کامل از Fileio xtra هستش در همین جا از صاحب اصلی کد تشکر می کنم. nima_dir 14 تير 1386, 21:47سلام حسين جان بخاطر اون سواله ممنون فقط اينكه كرك اين اكسترا رو هم داري ممنون ميشم اگه داري بذاري پايه هم هستم كه شرح حالتو بذاري بعدشم تازه پايم اين كدي كه اين بالا گذاشي بذاري توي تگ كد كه خواناييش بيشتر باشه موفق باشي آماتور 29 تير 1386, 23:33با سلام من و خیلی های دیگر تمایل داریم که شرح حالی از خودت را در این تاپیک بذاری تا با کارهایت بیشتر آشنا شویم. اگر این لطف را بکنی خیلی ممنون میشم. در ضمن من یک پروژه جدید دارم و خیلی به کمک و همراهی شما بزرگواران چشم امید دوخته ام. ( البته با تقدیم هزینه) من تازه دایرکتور را شروع کرده ام ولی واقعا عاشق این برنامه هستم. و تا بحال نیز پروژه های کوچکی را با آن انجام داده ام. در مورد کد بالا هم خیلی ازت ممنونم. امیدوارم موفق باشید. iman1981 02 مرداد 1386, 22:02نیما جان کرک نمیخواد یکی از اکستراهایی هست که همراه دایرکتور هست سلام حسين جان بخاطر اون سواله ممنون فقط اينكه كرك اين اكسترا رو هم داري ممنون ميشم اگه داري بذاري پايه هم هستم كه شرح حالتو بذاري بعدشم تازه پايم اين كدي كه اين بالا گذاشي بذاري توي تگ كد كه خواناييش بيشتر باشه موفق باشي nima_dir 03 مهر 1386, 13:08سلام حسین جان برات پیام خصوصی زدم ممنون میشم جواب بدی موفق باشی farzadart 03 مهر 1386, 22:39اول بايد يه سلام خشكل و داغ به همه مجيد آنلايني هاي عزيز بكنم. من تازه به عضويت فروم در اومدم، مي خواستم منو به غلامي قبول كنيد !!! :wink: از حسين عزيزم مي خوام كه خودشو بيشتر معرفي كنه ، اين جوري شايد كسي ام احوالي از كارهاي من سراغ بگيره !!!




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 516]

bt

اضافه شدن مطلب/حذف مطلب







-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن