AtEndOfLine 属性
请参阅
AtEndOfStream 属性应用于:TextStream 对象
语言
JScriptVBScript显示所有语言
如果文件指针正好位于 TextStream 文件中的行尾符之前,则返回true,否则返回 false。只读。object.AtEndOfLine
object 总是 TextStream 对象的名称。说明
AtEndOfLine 属性只能应用于打开用来读取的TextStream 文件;否则将产生错误。下面的代码演示了AtEndOfLine 属性的用法:[JScript]
function GetALine(filespec)
{
var fso, a, s, ForReading;
ForReading = 1, s = "";
fso = new ActiveXObject("Scripting.FileSystemObject");
a = fso.OpenTextFile(filespec, ForReading, false);
while (!a.AtEndOfLine)
{
s += a.Read(1);
}
a.Close( );
return(s);
}
[VBScript]
Function ReadEntireFile(filespec)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfLine <> True
retstring = theFile.Read(1)
Loop
theFile.Close
ReadEntireFile = retstring
End Function
请参阅
AtEndOfStream 属性应用于:TextStream 对象
请参阅
AtEndOfStream 属性应用于:TextStream 对象
语言
JScriptVBScript显示所有语言
如果文件指针正好位于 TextStream 文件中的行尾符之前,则返回true,否则返回 false。只读。object.AtEndOfLine
object 总是 TextStream 对象的名称。说明
AtEndOfLine 属性只能应用于打开用来读取的TextStream 文件;否则将产生错误。下面的代码演示了AtEndOfLine 属性的用法:[JScript]
function GetALine(filespec)
{
var fso, a, s, ForReading;
ForReading = 1, s = "";
fso = new ActiveXObject("Scripting.FileSystemObject");
a = fso.OpenTextFile(filespec, ForReading, false);
while (!a.AtEndOfLine)
{
s += a.Read(1);
}
a.Close( );
return(s);
}
[VBScript]
Function ReadEntireFile(filespec)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfLine <> True
retstring = theFile.Read(1)
Loop
theFile.Close
ReadEntireFile = retstring
End Function
请参阅
AtEndOfStream 属性应用于:TextStream 对象
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货