วัตถุ TextStream
อ่านไฟล์
ตัวอย่างนี้สาธิตวิธีการใช้วิธีการ OpenTextFile ของ FileSystemObject เพื่อสร้างวัตถุ TextStream วิธีการReadAllของวัตถุTextStreamได้รับเนื้อหาจากแฟ้มข้อความที่เปิดอยู่
รหัสตัวอย่างนี้เป็นดังนี้:
<html>
<ร่างกาย>
<p>นี่คือข้อความในไฟล์ข้อความ:</p>
-
ตั้งค่า fs=Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า f=fs.OpenTextFile(Server.MapPath(/example/aspe/testread.txt), 1)
Response.Write (ฉ. อ่านทั้งหมด)
ฉ.ปิด
ตั้งค่า f=ไม่มีอะไร
ตั้งค่า fs=ไม่มีอะไร
-
</ร่างกาย>
</html>
ผลลัพธ์ของตัวอย่างนี้มีดังนี้:
นี่คือข้อความในไฟล์ข้อความ:
สวัสดี! วันนี้คุณเป็นยังไงบ้าง?
อ่านส่วนหนึ่งของไฟล์ข้อความ
ตัวอย่างนี้สาธิตวิธีการอ่านเฉพาะบางส่วนของไฟล์สตรีมข้อความ
รหัสตัวอย่างนี้เป็นดังนี้:
<html>
<ร่างกาย>
<p>นี่คืออักขระ 5 ตัวแรกที่อ่านจากไฟล์ข้อความ:</p>
-
ตั้งค่า fs=Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
ตอบกลับเขียน(f.อ่าน(5))
ฉ.ปิด
ตั้งค่า f=ไม่มีอะไร
ตั้งค่า fs=ไม่มีอะไร
-
</ร่างกาย>
</html>
ผลลัพธ์ของตัวอย่างนี้มีดังนี้:
นี่คืออักขระ 5 ตัวแรกที่อ่านจากไฟล์ข้อความ:
สวัสดี
อ่านบรรทัดจากไฟล์ข้อความ
ตัวอย่างนี้สาธิตวิธีการอ่านบรรทัดจากไฟล์สตรีมข้อความ
รหัสตัวอย่างนี้เป็นดังนี้:
<html>
<ร่างกาย>
<p>นี่คือบรรทัดแรกที่อ่านจากไฟล์ข้อความ:</p>
-
ตั้งค่า fs=Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
การตอบกลับเขียน(f.ReadLine)
ฉ.ปิด
ตั้งค่า f=ไม่มีอะไร
ตั้งค่า fs=ไม่มีอะไร
-
</ร่างกาย>
</html>
ผลลัพธ์ของตัวอย่างนี้มีดังนี้:
นี่คือบรรทัดแรกที่อ่านจากไฟล์ข้อความ:
สวัสดี!
อ่านไฟล์ข้อความทุกบรรทัด
ตัวอย่างนี้สาธิตวิธีการอ่านบรรทัดทั้งหมดจากไฟล์สตรีมข้อความ
รหัสตัวอย่างนี้เป็นดังนี้:
<html>
<ร่างกาย>
<p>นี่คือบรรทัดทั้งหมดที่อ่านจากไฟล์ข้อความ:</p>
-
ตั้งค่า fs=Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
ทำในขณะที่ f.AtEndOfStream = false
การตอบกลับเขียน(f.ReadLine)
ตอบกลับเขียน(<br>)
วนซ้ำ
ฉ.ปิด
ตั้งค่า f=ไม่มีอะไร
ตั้งค่า fs=ไม่มีอะไร
-
</ร่างกาย>
</html>
ผลลัพธ์ของตัวอย่างนี้มีดังนี้:
นี่คือบรรทัดทั้งหมดที่อ่านจากไฟล์ข้อความ:
สวัสดี!
วันนี้คุณเป็นอย่างไรบ้าง?
ข้ามส่วนหนึ่งของไฟล์ข้อความ
ตัวอย่างนี้สาธิตวิธีการข้ามจำนวนอักขระที่ระบุเมื่ออ่านไฟล์สตรีมข้อความ
รหัสตัวอย่างนี้เป็นดังนี้:
<html>
<ร่างกาย>
<p>อักขระ 4 ตัวแรกในไฟล์ข้อความจะถูกละไว้:</p>
-
ตั้งค่า fs=Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
f.ข้าม(4)
Response.Write (ฉ. อ่านทั้งหมด)
ฉ.ปิด
ตั้งค่า f=ไม่มีอะไร
ตั้งค่า fs=ไม่มีอะไร
-
</ร่างกาย>
</html>
ผลลัพธ์ของตัวอย่างนี้มีดังนี้:
อักขระ 4 ตัวแรกในไฟล์ข้อความจะถูกละเว้น:
โอ้! วันนี้คุณเป็นยังไงบ้าง?
ข้ามบรรทัดของไฟล์ข้อความ
ตัวอย่างนี้สาธิตวิธีการข้ามบรรทัดเมื่ออ่านไฟล์สตรีมข้อความ
รหัสตัวอย่างนี้เป็นดังนี้:
<html>
<ร่างกาย>
<p>ละเว้นบรรทัดแรกในไฟล์ข้อความ:</p>
-
ตั้งค่า fs=Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
f.SkipLine
Response.Write (ฉ. อ่านทั้งหมด)
ฉ.ปิด
ตั้งค่า f=ไม่มีอะไร
ตั้งค่า fs=ไม่มีอะไร
-
</ร่างกาย>
</html>
ผลลัพธ์ของตัวอย่างนี้มีดังนี้:
บรรทัดแรกในไฟล์ข้อความถูกละเว้น:
วันนี้คุณเป็นอย่างไรบ้าง?
ส่งกลับจำนวนแถว
ตัวอย่างนี้สาธิตวิธีการส่งคืนหมายเลขบรรทัดปัจจุบันในไฟล์สตรีมข้อความ
รหัสตัวอย่างนี้เป็นดังนี้:
<html>
<ร่างกาย>
<p>นี่คือบรรทัดทั้งหมดในไฟล์ข้อความ (พร้อมหมายเลขบรรทัด):</p>
-
ตั้งค่า fs=Server.CreateObject (Scripting.FileSystemObject)
ตั้งค่า f=fs.OpenTextFile(Server.MapPath(testread.txt), 1)
ทำในขณะที่ f.AtEndOfStream = false
ตอบกลับเขียน(Line: & f.Line & )
การตอบกลับเขียน(f.ReadLine)
ตอบกลับเขียน(<br>)
วนซ้ำ
ฉ.ปิด
ตั้งค่า f=ไม่มีอะไร
ตั้งค่า fs=ไม่มีอะไร
-
</ร่างกาย>
</html>
ผลลัพธ์ของตัวอย่างนี้มีดังนี้:
นี่คือบรรทัดทั้งหมดในไฟล์ข้อความ (พร้อมหมายเลขบรรทัด):
บรรทัด:1 สวัสดี!
Line:2 วันนี้คุณเป็นยังไงบ้าง?
รับจำนวนคอลัมน์
ตัวอย่างนี้สาธิตวิธีการรับหมายเลขคอลัมน์ของอักขระปัจจุบันในไฟล์
รหัสตัวอย่างนี้เป็นดังนี้:
<html>