عبارت # Print

how many bricks are used

'Open : For OutPut

Do While Not rst.EOF
    Print #1, rst!Name
    rst.MoveNext
Loop

داده های با فرمت نمایشی  را در یک فایل متوالی می نویسد.

نوشتاری : [ ] اختیاری

Print#فهرست خروجی],شماره فایل]

توجه فرق #Print و #Write :

اگر در آینده می خواهید داده ها را از یک فایل با لستفاده از عبارت یا دستور #Input بخوانید ، بجای عبارت #Print از عبارت #Write برای نوشتن داده ها در فایل استفاده کنید. استفاده از #Write یکپارچگی هر فیلد داده مجزا را با جداسازی صحیح آن تضمین می کند ، به طوری که با استفاده از #Input می توان دوباره آن را خواند.استفاده از #Write همچنین تضمین می کند که می توان آن را در هر محلی به درستی خواند.

it is your job

do the best

the law is not negotiable

۲۲ مرداد ۱۴۰۲ :

کیایی نوشت:

آقای وزیر ارشاد، شما ماستها رو ریختی تو قیمه ها و اصلا عین خیالت نیست. وقتی حضور شما با این همه بیگانگی با هنر در این مسند یک شوخی بزرگ است حالا تصمیم داری چهارصد نفر شبیه خودت را در آن تکثیر کنی. شماها وقتی آنقدر قدرت تشخیص ندارید و از همه نهادها می ترسید که اجازه یک نمایش برای کودکان نمی‌دهید تا مبادا مشکل حجاب پیش بیاید و از قبل داوری می کنید، یا از تبلیغات کارکتر زن خلبان که کلاه خلبانی بخشی از اوست، در تبلیغات شهری جلوگیری می کنید

Veins are blood vessels located throughout your body that collect oxygen-poor blood and return it to your heart. Veins are part of your circulatory system. They work together with other blood vessels and your heart to keep your blood moving. Veins hold most of the blood in your body.

تابع FreeFile در دستور Open

یک عدد صحیح را برمی گرداند که نشان دهنده شماره فایل بعدی موجود برای استفاده توسط عبارت Open است.

FreeFile [ (rangenumber) ]

آرگومان اختیاری rangenumber متغیری است که محدوده از جائیکه شماره فایل آزادبعدی بازگشت داده می شود را مشخص می نماید. 0 را ( پیش فرض ) برای بازگشت شماره فایل در محدوده 1 و 255 ، 1را برای بازگشت شماره فایل در محدوده 256 و 511 مشخص کنید.

 اجازه می دهد سیستم شماره ای برای فایل بعدی که باز میشود را رزرو نماید.( تحت Vba )

کد زیر در پنج فایل تکست لوپ میزند و  رشته ی This is a sample را در هر کدام از آنها می نویسد.

Dim MyIndex, FileNumber

For MyIndex = 1 To 5 ' Loop 5 times.

FileNumber = FreeFile ' Get unused file' number.

Open "TEST" & MyIndex For Output As #FileNumber ' Create file name.

Write #FileNumber, "This is a sample." ' Output text.

Close #FileNumber ' Close file.

Next MyIndex