OpenAsTextStream() เป็น Methods Function ใช้ในการเปิดไฟล์ที่สามารถกำหนดรูปแบบ Mode และ Format ในการควบคุมไฟล์ดังกล่าว
Syntax
<%
FileObject.OpenAsTextStream(Mode,Format)
%>
Mode
| Constant |
Value |
Description |
| ForReading |
1 |
เปิดไฟล์อ่านอย่างเดียว เขียนไม่ได้ |
| ForWriting |
2 |
เปิดไฟล์กรณีที่มีไฟล์เดิมอยู่แล้วจะทำการเขียนทับ |
| ForAppending |
8 |
เปิดและเขียนไฟล์ |
Format
| Constant |
Value |
Description |
| TristateUseDefault |
-2 |
เปิดไฟล์โดยใช้รูปแบบค่า Default ของ System |
| TristateTrue |
-1 |
เปิดไฟล์โดยใช้รูปแบบ Unicode. |
| TristateFalse |
0 |
เปิดไฟล์โดยใช้รูปแบบ ASCII. |
ASPOpenAsTextStream.asp
<% Option Explicit %>
<html>
<head>
<title>ThaiCreate.Com ASP File Object</title>
</head>
<body>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim objFSO,objFile,objFileStm,objFileRead,strText
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(Server.MapPath("MyFiles/thaicreate.txt"))
'*** Write ***'
Set objFileStm = objFile.OpenAsTextStream(ForWriting, TristateUseDefault)
objFileStm.Write("Hello ThaiCreate.Com!")
objFileStm.Close()
'*** Read ***'
Set objFileRead = objFile.OpenAsTextStream(ForReading, TristateUseDefault)
strText = objFileRead.ReadLine
Response.write strText
Set objFSO = Nothing
%>
</body>
</html>
Output
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 05
