OpenTextFile هي طريقة في لغة asp تقوم بفتح الملف المحدد وإرجاع كائن TextStream، ويمكن قراءة الملف أو كتابته أو إلحاقه من خلال هذا الكائن.
OpenTextFile هي طريقة في لغة asp
يفتح الملف المحدد ويعيد كائن TextStream الذي يمكن من خلاله قراءة الملف أو كتابته أو إلحاقه.
object.OpenTextFile (اسم الملف [، iomode [، إنشاء [، التنسيق]]])
1. يقوم محرر الطريقة بفتح الملف المحدد وإرجاع كائن TextStream، والذي يمكن من خلاله قراءة الملف أو كتابته أو إلحاقه.
object.OpenTextFile (اسم الملف [، iomode [، إنشاء [، التنسيق]]])
2. كائن تحرير المعلمة
مطلوب. يجب أن يكون الكائن هو اسم FileSystemObject.
اسم الملف
مطلوب. تعبير سلسلة يحدد الملف الذي سيتم فتحه.
com.iomode
خياري. يمكن أن يكون واحدًا من ثلاثة ثوابت: ForReading، أو ForWriting، أو ForAppending.
يخلق
خياري. قيمة منطقية تشير إلى ما إذا كان سيتم إنشاء ملف جديد عندما لا يكون اسم الملف المحدد موجودًا. تكون القيمة صحيحة إذا تم إنشاء ملف جديد، وخطأ إذا لم يتم إنشاؤه. إذا تم حذفه، فلن يتم إنشاء ملف جديد.
شكل
خياري. استخدم إحدى قيم الحالات الثلاث لتحديد التنسيق الذي تريد فتح الملف به. إذا تم حذفه، فسيتم فتح الملف بتنسيق ASCII.
3. قم بتعيين وتحرير معلمة iomode، والتي يمكن أن تكون أيًا من الإعدادات التالية:
وصف القيمة الثابتة
ForReading 1 يفتح الملف للقراءة فقط. لا يمكن كتابة هذا الملف.
ForWriting 2 فتح الملف للكتابة
يفتح ForAppending 8 الملف ويبدأ الكتابة من نهاية الملف.
يمكن أن تكون معلمة التنسيق أيًا من الإعدادات التالية:
وصف القيمة
يفتح TristateTrue الملفات بتنسيق Unicode.
يقوم TristateFalse بفتح الملف بتنسيق ASCII.
TristateUseDefault يفتح الملف باستخدام إعدادات النظام الافتراضية.
4. تعليمات التحرير يوضح التعليمة البرمجية التالية كيفية استخدام أسلوب OpenTextFile لفتح ملف وإلحاق النص:
var fs, a, ForAppending;
للإلحاق = 8؛
fs = new ActiveXObject(Scripting.FileSystemObject);
// يمكن أن يكون أحد الثوابت الثلاثة: ForReading أو ForWriting أو ForAppending
// هم 1، 2، 8 على التوالي
a = fs.OpenTextFile(c://testfile.txt, 2, false);
...
a.Close();
حالات الاستخدام في برنامج vbs
يفتح الملف المحدد ويعيد كائن TextStream الذي يمكن قراءته أو كتابته أو إلحاقه بالملف.
object.OpenTextFile (اسم الملف [، iomode [، إنشاء [، التنسيق]]])
المعلمة
هدف
مطلوب. يجب أن يكون اسم كائن FileSystemObject.
اسم الملف
مطلوب. تعبير سلسلة يحدد اسم الملف الذي سيتم فتحه.
com.iomode
خياري. وضع الإدخال/الإخراج، أحد الثوابت الثلاثة التالية: ForReading، أو ForWriting، أو ForAppending.
يخلق
خياري. قيمة منطقية تشير إلى إمكانية إنشاء ملف جديد في حالة عدم وجود اسم الملف المحدد. صحيح للسماح بإنشاء ملفات جديدة، وخطأ بخلاف ذلك. القيمة الافتراضية هي خطأ.
شكل
خياري. إحدى قيم Tristate الثلاث التي تشير إلى التنسيق الذي سيتم فتح الملف به. إذا تم حذف هذه المعلمة، يتم فتح الملف بتنسيق ASCII.
يمكن أن تكون معلمة iomode أحد الإعدادات التالية:
ثابت | قيمة | يصف |
للقراءة | 1 | افتح الملف في وضع القراءة فقط. لا يمكن كتابة هذا الملف. |
للكتابة | 2 | افتح الملف للكتابة فقط. لا يمكن قراءة هذا الملف. |
للإلحاق | 8 | افتح الملف واكتب في نهاية الملف. |
يمكن أن تكون معلمة التنسيق أحد الإعدادات التالية:
ثابت | قيمة | يصف |
TristateUseDefault | -2 | افتح الملف بالتنسيق الافتراضي للنظام. |
تريستاتيترو | -1 | افتح الملف بتنسيق Unicode. |
TristateFalse | 0 | افتح الملف بتنسيق ASCII. |
أمثلة الاستخدام:
- SubOpenTextFileTest
- ConstForReading=1,ForWriting=2,ForAppending=8
- ديمفسو، ف
- Setfso=CreateObject(Scripting.FileSystemObject)
- Setf=fso.OpenTextFile(c:/testfile.txt,ForWriting,True)
- f.اكتب مرحبًا!
- و. إغلاق
- EndSub
- CallOpenTextFileTest
وظيفة كتبها Wulin.com
- ديمفسو
- Setfso=CreateObject(Scripting.FileSystemObject)
- setfn2=fso.GetFile(E:/webroot/vevb/index2.htm)
- flsize2=fn2.size
- fldate2=fn2.datelastmodified
- setfn=fso.GetFile(E:/webroot/vevb/index.htm)
- flsize1=fn.size
- fldate1=fn.datelastmodified
- Iffso.FileExists(E:/webroot/vevb/index2.htm)andflsize2>50000andfldate2>fldate1ثم
- 'حدد حجم الملف إذا تم إعادة إنشاء ملف html، فستحتاج إلى تحديد ما إذا كان قد تم تحديثه أم لا ولا يمكن أن يكون حجم الملف أقل من 50 كيلو بايت.
- fso.getfile(E:/webroot/vevb/index2.htm).نسخ(E:/webroot/vevb/index.htm)
- iferr.number=0thenWriteHistory نجح&now()&..........,log.txt
- com.endif
- 'وظيفة كتابة السجل
- سجل الكتابة الفرعية (hisChars، المسار)
- ConstForReading=1,ForAppending=8
- ديمفسو، ف
- Setfso=CreateObject(Scripting.FileSystemObject)
- Setf=fso.OpenTextFile(path,ForAppending,True)
- f.WriteLinehisChars
- و. إغلاق
- EndSub