OpenTextFile เป็นวิธีการในภาษา asp โดยจะเปิดไฟล์ที่ระบุและส่งกลับออบเจ็กต์ TextStream ไฟล์สามารถอ่าน เขียน หรือต่อท้ายผ่านออบเจ็กต์นี้ได้
OpenTextFile เป็นวิธีการในภาษา asp
เปิดไฟล์ที่ระบุและส่งกลับออบเจ็กต์ TextStream ซึ่งสามารถอ่าน เขียน หรือต่อท้ายไฟล์ได้
object.OpenTextFile(ชื่อไฟล์[, iomode[, สร้าง [, รูปแบบ]]])
1. ตัวแก้ไขวิธีการเปิดไฟล์ที่ระบุและส่งกลับออบเจ็กต์ TextStream ซึ่งสามารถอ่าน เขียน หรือต่อท้ายไฟล์ได้
object.OpenTextFile(ชื่อไฟล์[, iomode[, สร้าง [, รูปแบบ]]])
2. วัตถุการแก้ไขพารามิเตอร์
ที่จำเป็น. วัตถุควรเป็นชื่อของ FileSystemObject
ชื่อไฟล์
ที่จำเป็น. นิพจน์สตริงที่ระบุไฟล์ที่จะเปิด
ไอโอโหมด
ไม่จำเป็น. สามารถเป็นหนึ่งในสามค่าคงที่: ForReading, ForWriting หรือ ForAppending
สร้าง
ไม่จำเป็น. ค่าบูลีนที่ระบุว่าจะสร้างไฟล์ใหม่เมื่อไม่มีชื่อไฟล์ที่ระบุหรือไม่ ค่าจะเป็น True หากไฟล์ใหม่ถูกสร้างขึ้น และเป็น False หากไม่ได้ถูกสร้างขึ้น หากละเว้น จะไม่มีการสร้างไฟล์ใหม่
รูปแบบ
ไม่จำเป็น. ใช้หนึ่งในค่าสามสถานะเพื่อระบุรูปแบบที่จะเปิดไฟล์ หากละเว้น ไฟล์จะถูกเปิดในรูปแบบ ASCII
3. ตั้งค่าและแก้ไขพารามิเตอร์ iomode ซึ่งสามารถเป็นการตั้งค่าใดๆ ต่อไปนี้:
คำอธิบายค่าคงที่
ForReading 1 เปิดไฟล์แบบอ่านอย่างเดียว ไฟล์นี้ไม่สามารถเขียนได้
ForWriting 2 เปิดไฟล์เพื่อเขียน
ForAppending 8 จะเปิดไฟล์และเริ่มเขียนจากท้ายไฟล์
พารามิเตอร์รูปแบบสามารถเป็นการตั้งค่าใดๆ ต่อไปนี้:
คำอธิบายค่า
TristateTrue เปิดไฟล์ในรูปแบบ Unicode
TristateFalse เปิดไฟล์ในรูปแบบ ASCII
TristateUseDefault เปิดไฟล์โดยใช้ค่าเริ่มต้นของระบบ
4. คำแนะนำในการแก้ไข รหัสต่อไปนี้แสดงวิธีการใช้เมธอด OpenTextFile เพื่อเปิดไฟล์และต่อท้ายข้อความ:
var fs, a, ForAppending;
สำหรับการต่อท้าย = 8;
fs = ActiveXObject ใหม่ (Scripting.FileSystemObject);
//สามารถเป็นหนึ่งในสามค่าคงที่: ForReading, ForWriting หรือ ForAppending
//คือ 1, 2, 8 ตามลำดับ
a = fs.OpenTextFile(c://testfile.txt, 2, false);
-
ก.ปิด();
กรณีการใช้งานในสคริปต์ vbs
เปิดไฟล์ที่ระบุและส่งกลับออบเจ็กต์ TextStream ที่สามารถอ่าน เขียน หรือต่อท้ายไฟล์ได้
object.OpenTextFile(ชื่อไฟล์[,iomode[,สร้าง[,รูปแบบ]]])
พารามิเตอร์
วัตถุ
ที่จำเป็น. ควรเป็นชื่อของวัตถุ FileSystemObject
ชื่อไฟล์
ที่จำเป็น. นิพจน์สตริงที่ระบุชื่อของไฟล์ที่จะเปิด
ไอโอโหมด
ไม่จำเป็น. โหมดอินพุต/เอาต์พุต หนึ่งในค่าคงที่สามค่าต่อไปนี้: ForReading, ForWriting หรือ ForAppending
สร้าง
ไม่จำเป็น. ค่าบูลีนที่ระบุว่าสามารถสร้างไฟล์ใหม่ได้หรือไม่เมื่อไม่มีชื่อไฟล์ที่ระบุ True เพื่ออนุญาตให้สร้างไฟล์ใหม่ มิฉะนั้นจะเป็น False ค่าเริ่มต้นคือเท็จ
รูปแบบ
ไม่จำเป็น. หนึ่งในสามค่า Tristate ที่ระบุรูปแบบที่จะเปิดไฟล์ หากละเว้นพารามิเตอร์นี้ ไฟล์จะถูกเปิดในรูปแบบ ASCII
พารามิเตอร์ iomode สามารถเป็นหนึ่งในการตั้งค่าต่อไปนี้:
คงที่ | ค่า | อธิบาย |
สำหรับการอ่าน | 1 | เปิดไฟล์ในโหมดอ่านอย่างเดียว ไฟล์นี้ไม่สามารถเขียนได้ |
สำหรับการเขียน | 2 | เปิดไฟล์เพื่อการเขียนเท่านั้น ไฟล์นี้ไม่สามารถอ่านได้ |
สำหรับการต่อท้าย | 8 | เปิดไฟล์และเขียนที่ส่วนท้ายของไฟล์ |
พารามิเตอร์รูปแบบสามารถเป็นหนึ่งในการตั้งค่าต่อไปนี้:
คงที่ | ค่า | อธิบาย |
TristateUseDefault | -2 | เปิดไฟล์ในรูปแบบเริ่มต้นของระบบ |
TristateTrue | -1 | เปิดไฟล์ในรูปแบบ Unicode |
TristateFalse | 0 | เปิดไฟล์ในรูปแบบ ASCII |
ตัวอย่างการใช้งาน:
- SubOpenTextFileTest
- ConstForReading=1,ForWriting=2,ForAppending=8
- ดิมฟโซ,เอฟ
- Setfso=CreateObject(Scripting.FileSystemObject)
- Setf=fso.OpenTextFile(c:/testfile.txt,ForWriting,True)
- ฉ.เขียน สวัสดี!
- ฉ.ปิด
- สิ้นสุดย่อย
- โทร OpenTextFileTest
ฟังก์ชั่นที่เขียนโดย 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 ถูกสร้างใหม่ คุณต้องตรวจสอบว่าไฟล์นั้นได้รับการอัปเดตหรือไม่ และไฟล์ต้องไม่ต่ำกว่า 50K
- fso.getfile(E:/webroot/vevb/index2.htm).copy(E:/webroot/vevb/index.htm)
- iferr.number=0thenWriteHistory สำเร็จ&ตอนนี้()&..........,log.txt
- สิ้นสุด
- 'ฟังก์ชั่นการเขียนบันทึก
- SubWriteHistory (hisChars, เส้นทาง)
- ConstForReading=1,ForAppending=8
- ดิมฟโซ,เอฟ
- Setfso=CreateObject(Scripting.FileSystemObject)
- Setf=fso.OpenTextFile(path,ForAppending,True)
- ฉWriteLinehisChars
- ฉ.ปิด
- สิ้นสุดย่อย