IBM Lotus Symphony


Open Statement[Runtime]

يتم فتح قناة بيانات.

الصيغة:

Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]

المعاملات:

FileName: الاسم والمسار للملف الذي تريد فتحه. اذا حاولت قراءة ملف غير موجود (Access = Read)، ستظهر رسالة خطأ. اذا حاولت الكتابة بملف غير موجود (Access = Write)، سيتم تكوين ملف جديد.

Mode: كلمة مرشدة تحدد نمط الملف. القيم الصحيحة: Append (الحاق ملف متتالي)، Binary (يمكن التوصل للبيانات بالبايت باستخدام Get و Put)، Input (يتم فتح قناة بيانات للقراءة)، Output (يتم فتح قناة بيانات للكتابة)، Random (يتم تحرير الملفات النسبية).

IOMode: كلمة مرشدة تعرف نوع التوصل. القيم الصحيحة: Read (للقراءة-فقط)، Write (للكتابة-فقط)، Read Write (كلاهما).

Protected: كلمة مرشدة تقوم بتعريف حالة السرية للملف بعد الفتح. القيم الصحيحة: Shared (قد يتم فتح الملف بواسطة تطبيقات أخرى)، Lock Read (الملف محمي من القراءة)، Lock Write (الملف محمي من الكتابة)، Lock Read Write (يتم منع التوصل للملف).

FileNumber: أي تعبير رقمي من 0 الى 511 للاشارة لرقم قناة بيانات خالية. يمكنك عندئذ امرار أوامر من خلال قناة البيانات للتوصل الى الملف. يجب أن يتم تحديد رقم الملف بواسطة الوظيفة FreeFile مباشرة قبل عبارة Open statement.

DatasetLength: بالنسبة للملفات التي يتم التوصل اليها عشوائيا، حدد طول السجلات.

شارة الملاحظة يمكنك فقط تعديل المحتويات لملف تم فتحه بواسطة عبارة Open. اذا حاولت فتح ملف مفتوح بالفعل، سيتم عرض رسالة خطأ.

مثال:

Sub ExampleWorkWithAFile

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

Dim sMsg as String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "هذا سطر من النص"

Print #iNumber، "هذا سطر آخر من النص"

Close #iNumber

iNumber = Freefile

Open aFile For Input As iNumber

While not eof(iNumber)

Line Input #iNumber, sLine

If sLine <>"" then

sMsg = sMsg & sLine & chr(13)

end if

wend

Close #iNumber

Msgbox sMsg

End Sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية