تو اين آموزش ما مي‌تونيد گزارشي در فايل متني ذخيره كنيد مثلا براي گزارش برنامه مثل نتيجه ازمون يا برنامه‌هاي كاربردي.

خوب بريم سر اصل مطلب شما بعد از دانلود كردن ضميمه مثال اين آموزش اونو باز كنيد و اسكريپت به نام report رو باز كنيد شما درون اين اسكريپت اين چيزا رو مي‌تونيد ببينيد :

کد:
کد:
file$='c:\atest.txt'
string$= 'this string will be append to text file'
 ReturnVal=StrToFile(file$,string$,TRUE,FALSE)

متغير $file مساوي است با مسير فايلي كه ذخيره ميشه كه ميتونه يكي از اين مسير‌هاي زير هم باشه :

<CD> = سي‌دي
<Embedded> = حافظه‌ي برنامه
<File> = مسير ذخيره شده سورس برنامه
<List> = آدرس مربوط به ليست باكس
<SrcDir> = مسيري كه خود فايل اجرايي پروژه وجود داره
<SrcDrive> = درايوي كه خود فايل اجراي پروژه در اون قرار داره
<System> = مسير پوشه‌ي سيستم ويندوز هست
<Temp> = مسير پوشه‌ي تمپ ويندوز هست
<This> = اينو هنوز كشف نكردم
<Windows> = مسير پوشه‌ي ويندوز هست

متغيز $string هم كه محتويات گزارش هستش كه ميتونه ادغم چندين متغير باشه.
تذكر : براي ادغام متغير‌هاي عددي با رشته‌اي حتما بايد از تابع Char استفاده بشه كه براي مثال متغير ما i هستش و مي‌خواهيم با متغير‌هاي ديگر اون رو ادغام كنيم :
کد:
کد:
name$='Planet'
 string$= 'Graphic'+CHR(13)+CHR(10)+name$+CHAR(i)
توضيح : همونطور كه ميبينيد سه متغير $name و i و رشته‌ي Graphic و همينطور دو كد اسكي 13 و 10 كه اين دو كد براي بردن كرسر به خط بعدي استفاده مي‌شن يعني همون Enter تو Word ، Notepad و ....

خوب بعدشم ديگه كاري نمونده اين خطم براي استفاده از تابع StrToFile هستش :

کد:
کد:
ReturnVal=StrToFile(file$,string$,TRUE,FALSE)

خسته نباشيد حالا شما كار با تابع StrToFile رو ياد گرفتين و به راحتي ميتونيد از اون استفاده كنيد.


اينم لينك دانلود ضميمه كه شامل مثال هستش با حجم 510 بايت


اميدورام بكارتون بياد.