IBM Lotus Symphony
|
يتم فتح قناة بيانات.
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