[x] بستن پنجره لطفا برای حمایت از ما از سایت های زیر دیدن کنید |
|
[x] بستن پنجره لطفا برای حمایت از ما از سایت های زیر دیدن کنید |
|
[x] بستن پنجره لطفا برای حمایت از ما از سایت های زیر دیدن کنید |
|
پی سی آنلاین
|
![]() |
![]() | ||||
هاتف ( یکشنبه 86/11/21 :: ساعت 4:41 عصر )
برای نوشتن در فایل دو روش وجود دارد 1- ترتیبی 2- تصادفیدر روش اول به این صورت عمل می نماییم مرحله اول تعیین شماره فایل برای اینکار از تابع freefile() استفاده می کنیم مرحله دوم باز کردن فایل برا اینکار از دستور زیر استفاده می شود open "filename" for output as #freefile() open برای باز کردن فایل بکارمی رودfilename نام فایل است در صورت نبود فایل آن را ایجاد می کندfor برای نسبت دادن به عملی بکارمی رودoutput عمل خروجی را انجاممی دهدمرحله سوم نوشتن در فایل برای اینکار از دو تابع می توان استفاده کرد 1- print 2-write در تابع اولی اطلاعات را بصورت عادی در فایل می نویسد در تابع دومی اعداد را با (،) از هم جدا می کند و رشته را در بین ("") قرار می دهد مرحله چهارم بستن فایل برای بستن فایل به شکل زیر عمل می کنیم برای اینکار از تابع close استفاده می کنیم حال برای استفاده از آنها اینگونه عمل میکنیم مثال1: در این مثال قصد داریم نوشته "This is a my First File Project" را در فایل "Example.txt" بنویسیم (این کد را بدلخواه در یک شئ بنویسید) f=freefile() Open "Example.txt" for output as #f Print #f,"This is a My First File Project" Close #f در این مثال ما برای راحتی بیشتر کار تابع freefile() را در متغیر f قرار دادیم و در این مثال متن "this is a my first file Project" را در فایل "example.txt" می نویسد و تابع close فایل شماره f را بست و برای استفاده از تابع write آن را جای تابع print قرار دهید فایل از لینک زیر قابل دریافت است مثال 2: در این مثال قصد داریم متنی که در کادر متن نوشته می شوند را در فایل "example1" بنویسیم در ویژوال بیسیک در فرم یکه کادر متن (textbox) ایجاد کنید ( این کد را بدلخواه در یک شئ بنویسید)f=freefile() open "example1.txt" for output as #F print #f,text1.text close #f در این مثال متن نوشته شده در کادر متن را در فایل (example1.txt) می نویسد این برنامه به صورت آماده از لینک زیر قابل دریافت است | |||||
|
![]() |
لیست کل یادداشت های این وبلاگ |
![]() | |||
|
[x] بستن پنجره لطفا برای حمایت از ما از سایت های زیر دیدن کنید |
|