كائن TextStream
قراءة الملف
يوضح هذا المثال كيفية استخدام أسلوب OpenTextFile الخاص بـ FileSystemObject لإنشاء كائن TextStream. تحصل طريقة ReadAll لكائن TextStream على المحتوى من الملف النصي المفتوح.
نموذج التعليمات البرمجية هذا كما يلي:
<أتش تي أم أل>
<الجسم>
<p>هذا هو النص الموجود في الملف النصي:</p>
<%
تعيين fs=Server.CreateObject(Scripting.FileSystemObject)
اضبط f=fs.OpenTextFile(Server.MapPath(/example/aspe/testread.txt), 1)
الاستجابة.الكتابة (f.ReadAll)
و. إغلاق
تعيين و = لا شيء
تعيين خ = لا شيء
%>
</الجسم>
</html>
نتائج هذا المثال هي كما يلي:
وهذا هو النص الموجود في الملف النصي:
مرحبا كيف حالك اليوم؟
قراءة قسم من ملف نصي
يوضح هذا المثال كيفية قراءة جزء فقط من ملف دفق النص.
نموذج التعليمات البرمجية هذا كما يلي:
<أتش تي أم أل>
<الجسم>
<p>هذه هي الأحرف الخمسة الأولى التي تمت قراءتها من الملف النصي:</p>
<%
تعيين fs=Server.CreateObject(Scripting.FileSystemObject)
تعيين f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
الاستجابة.الكتابة (f.اقرأ (5))
و. إغلاق
تعيين و = لا شيء
تعيين خ = لا شيء
%>
</الجسم>
</html>
نتائج هذا المثال هي كما يلي:
فيما يلي الأحرف الخمسة الأولى التي تمت قراءتها من الملف النصي:
مرحبًا
قراءة سطر من ملف نصي
يوضح هذا المثال كيفية قراءة سطر من ملف دفق النص.
نموذج التعليمات البرمجية هذا كما يلي:
<أتش تي أم أل>
<الجسم>
<p>هذا هو السطر الأول الذي تمت قراءته من الملف النصي:</p>
<%
تعيين fs=Server.CreateObject(Scripting.FileSystemObject)
تعيين f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
الاستجابة.الكتابة (f.ReadLine)
و. إغلاق
تعيين و = لا شيء
تعيين خ = لا شيء
%>
</الجسم>
</html>
نتائج هذا المثال هي كما يلي:
هذا هو السطر الأول الذي تمت قراءته من الملف النصي:
مرحبًا!
قراءة جميع أسطر الملف النصي
يوضح هذا المثال كيفية قراءة كافة الأسطر من ملف دفق النص.
نموذج التعليمات البرمجية هذا كما يلي:
<أتش تي أم أل>
<الجسم>
<p>هذه هي كافة الأسطر المقروءة من الملف النصي:</p>
<%
تعيين fs=Server.CreateObject(Scripting.FileSystemObject)
تعيين f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
افعل بينما f.AtEndOfStream = false
الاستجابة.الكتابة (f.ReadLine)
الاستجابة.اكتب(<br>)
حلقة
و. إغلاق
تعيين و = لا شيء
تعيين خ = لا شيء
%>
</الجسم>
</html>
نتائج هذا المثال هي كما يلي:
هذه هي جميع الأسطر المقروءة من الملف النصي:
مرحبًا!
كيف حالك اليوم؟
تخطي جزء من الملف النصي
يوضح هذا المثال كيفية تخطي عدد محدد من الأحرف عند قراءة ملف دفق نصي.
نموذج التعليمات البرمجية هذا كما يلي:
<أتش تي أم أل>
<الجسم>
<p>تم حذف الأحرف الأربعة الأولى في الملف النصي:</p>
<%
تعيين fs=Server.CreateObject(Scripting.FileSystemObject)
تعيين f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
و.تخطي(4)
الاستجابة.الكتابة (f.ReadAll)
و. إغلاق
تعيين و = لا شيء
تعيين خ = لا شيء
%>
</الجسم>
</html>
نتائج هذا المثال هي كما يلي:
تم حذف الأحرف الأربعة الأولى في الملف النصي:
اوه كيف حالك اليوم؟
تخطي سطر من الملف النصي
يوضح هذا المثال كيفية تخطي سطر عند قراءة ملف دفق نصي.
نموذج التعليمات البرمجية هذا كما يلي:
<أتش تي أم أل>
<الجسم>
<p>تم حذف السطر الأول من الملف النصي:</p>
<%
تعيين fs=Server.CreateObject(Scripting.FileSystemObject)
تعيين f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
f.SkipLine
الاستجابة.الكتابة (f.ReadAll)
و. إغلاق
تعيين و = لا شيء
تعيين خ = لا شيء
%>
</الجسم>
</html>
نتائج هذا المثال هي كما يلي:
تم حذف السطر الأول في الملف النصي:
كيف حالك اليوم؟
إرجاع عدد الصفوف
يوضح هذا المثال كيفية إرجاع رقم السطر الحالي في ملف دفق النص.
نموذج التعليمات البرمجية هذا كما يلي:
<أتش تي أم أل>
<الجسم>
<p>إليك جميع الأسطر الموجودة في الملف النصي (مع أرقام الأسطر):</p>
<%
تعيين fs=Server.CreateObject(Scripting.FileSystemObject)
تعيين f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
افعل بينما f.AtEndOfStream = false
الاستجابة.الكتابة (السطر: & f.Line &)
الاستجابة.الكتابة (f.ReadLine)
الاستجابة.اكتب(<br>)
حلقة
و. إغلاق
تعيين و = لا شيء
تعيين خ = لا شيء
%>
</الجسم>
</html>
نتائج هذا المثال هي كما يلي:
فيما يلي جميع الأسطر الموجودة في الملف النصي (مع أرقام الأسطر):
الخط:1 مرحبا!
سطر:2 كيف حالك اليوم؟
الحصول على عدد الأعمدة
يوضح هذا المثال كيفية الحصول على رقم العمود الخاص بالحرف الحالي في الملف.
نموذج التعليمات البرمجية هذا كما يلي:
<أتش تي أم أل>