下面代码是经没伍过调试通过的；
<html>伏差
<meta http-equiv="Content-Type" content="text/htmlcharset=utf-8" />
<body>
<script language="javascript">
function GetLine()
{
var fso, f, r
var ForReading = 1, ForWriting = 2
fso = new ActiveXObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("f:\\testfile.txt", ForWriting, true)
f.WriteLine("Hello world!")
f.WriteLine("JScript is fun")
f.Close()
f = fso.OpenTextFile("f:\\testfile.txt", ForReading)
r = f.ReadLine()
return(r)
}
GetLine()
alert("读取文件缺察皮成功!")
</script></body>
</html>
分类: 电脑/网络 >>程序设计 >>其他编程语言问题描述:
对该文本文件多次写入数据时不影响之前写入的数据读数据是只读取文本中指定行的部分数据? 谢谢
解析:
用FileSystemObject对象创建一个TextStream便实现对文本文件的读写
---------------------------------------------------
创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。
语法
object.CreateTextFile(filename[, overwrite[, unicode]])
CreateTextFile 方法的语法有以下部分：
object 必选项。应为 FileSystemObject 或 Folder 对象的名称。
filename 必选项。字符串表达式，指明要创建的文件。
overwrite 可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为 True；如果不能覆盖文件，则该值为 False 。如果省略该值，则不能覆盖现有文件。
unicode 可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。
说明
以下代码举例说明如何使用 CreateTextFile 方法创建并打开文本文件：
Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("悔败Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("这是一个测试。")
MyFile.Close
End Sub
对于 filename 已经存在的文件，如果 overwrite 参数为 False，或未提供此参数时，则会出现错误。
-----------------------------------------------------------
描述
打开指定的文件并返回一个 TextStream 对象，可以读取、写入此对象或将其追加到文件。
语法
object.OpenTextFile(filename[, iomode[, create[, format]]])
OpenTextFile 方法的语法有以下部分：
object 必选项。应为 FileSystemObject 对象的名称。
filename 必选项。字符串表达式，指明要打开的文件名称。
iomode 可选项。输入/输出模式，是下列三个常数之一：ForReading，ForWriting,或 ForAppending。
create 可碧前颤选项。Boolean 值，指出当指定的 filename 不存在时是否能够创建新文件。允许创建新文件时为 True，否则为 False。默认值为 False。
format 可选项。三个 Tristate 值之一，指出以何种格式打开文件。若忽略此参数，则文件以 ASCII 格式打开。
设置
iomode 参数可为下列设置之一：
ForReading 1 以只读模式打开文件。不能对此文件进行写 *** 作。
ForWriting 2 以只写方式打开文件。不能对此文件进行读 *** 作。
ForAppending 8 打开文件并在文件末尾进行写 *** 作。
format 参数悔渗可为下列设置之一：
TristateUseDefault -2 以系统默认格式打开文件。
TristateTrue -1 以 Unicode 格式打开文件。
TristateFalse 0 以 ASCII 格式打开文件。
说明
以下代码举例说明如何使用 OpenTextFile 方法打开写文件：
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\testfile.txt", For Writing, True)
f.Write "嗨，你好！"
f.Close
End Sub
-------------------------------------------------------------
另TextStream还有如下方法:
Close 方法
Read 方法
ReadAll 方法
ReadLine 方法
Skip 方法
SkipLine 方法
Write 方法
WriteLine 方法
WriteBlankLines 方法
详细可参阅VBScript 5.0 帮助文档
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）