ممکن است مواقعی پیش بیاید که بخواهید یک ماکرو اطلاعات را در یک فایل متنی ذخیره کند. انجام این کار خیلی آسان است. تنها چیزی که نیاز دارید این است که فایل را برای خروجی باز کنید و سپس شروع به ارسال اطلاعات به فایل کنید. قطعه کد زیر با استفاده از این روش یک فایل متنی می نویسد.
Open "MyFile.Dat" For Output As #1
Print #1, NumValues
For J = 1 to NumValues
Print #1, UserVals(J)
Next J
Close #1
اولین چیزی که روی فایل نوشته میشود یک مقدار عددی است که نشان میدهد چند مقدار منفرد به دنبال آن خواهند بود (کد فرض میکند که این مقدار را در متغیر NumValues تنظیم کردهاید). سپس یک حلقه For ... Next برای ایجاد تعادل فایل استفاده می شود.
باید توجه داشته باشید که کد، همانطور که نوشته شده است، هر فایل MyFile.Dat موجود را بازنویسی می کند. اگر میخواهید به طریقی از فایل محافظت کنید، کد شما باید قبل از باز کردن آن بررسی کند که آیا وجود دارد یا خیر یا باید ویژگیهای فایل را روی فقط خواندنی تنظیم کنید.
