在括号里填写适当的内容，以便读取当前目录中的文本文件“test.txt” % Dim fso ， f Set fso = Server.CreateObject（） ’创建FSO对象实例 Set f = fso.（）（） ’打开文件并返回textStream对象 while Not f.（） ’当文件指针不在文本文件末尾时执行循环 Response.Write f.（）"" ’读取一行字符发送到浏览器 Wend f.Close %
在括号里填写适当的内容，以便读取当前目录中的文本文件“test.txt” <% Dim fso ， f Set fso = Server.CreateObject（） ’创建FSO对象实例 Set f = fso.（）（） ’打开文件并返回textStream对象 while Not f.（） ’当文件指针不在文本文件末尾时执行循环 Response.Write f.（）&"
" ’读取一行字符发送到浏览器 Wend f.Close %>
" ’读取一行字符发送到浏览器 Wend f.Close %>
参考解析
略
相关考题：
当用textstream对象打开一个文本文件时,便得到一个textstream对象的实例,不妨称为tx。使用这个实例来读取文件,或者是往文件里写入信息。那么此时tx指向哪里?() A.刚写入的字符之后B.指定位置C.文件的开始D.文件的末尾
下面不能从文本文件中读取数据的是()。 A.TextStream对象的Read方法B.TextStream对象的ReadLine方法C.TextStream对象的ReadAll方法D.TextStream对象的OpenAsTextStream方法
阅读以下说明及Visual Basic代码，将应填入(n)处的字句写在对应栏内。[说明]下图是一个简易文本编辑器程序的运行界面：用户打开磁盘上的某个文件后，可以直接对文本进行编辑，也可以利用界面提供的按钮完成相应操作。主要操作介绍如下：(1)打开文件：打开文件对话框，其中仅显示“*.txt”类型的文件。用户选中某一文件后，其内容将呈现于界面文本框内；(2)查找：提示用户输入要查找的内容，将首次出现的查找内容以蓝色高亮标记；(3)替换：若文本框中已选中某段文本，则提示用户输入要替换的内容，在文本框中完成替换。在开发过程中，文本框名为Text1，“打开文件”、“保存文件”、“查找”、“替换”、“退出”按钮分别命名为Command1至Command5。[Visual Basic代码]Dim fileName As StringDim fso As New (1), ts As Object’打开文本文件Private Sub Command1_Click()CommonDialog1.Filter = "*.txt"CommonDialog1.ShowOpenfileName =(2) ’保存所打开的文件名Set fso=CreateObjeet("Scripting.FileSystemObject")Set ts=fso.OpenTextFile(fileName, ForReading)If Not ts.AtEndOfStream ThenText1.Text =(3)End Ifts. CloseEnd Sub’保存文本文件Private Sub Command2_Click()Set ts = fso.OpenTextFile(fileName, ForWriting)(4)ts.CloseEnd Sub’查找字符串Private Sub Command3_Cliek()Dim search As String, position As Integersearch = InputBox("输入要查找的字符串:")position = InStr(Text1.Text, search) ’在文本中查找字符串If position ＞0 Then ’若找到指定的字符串Text1.SelStart = position - 1 ’设置选定文本的起始位置Text1.SelLength = Len(search) ’设置选定文本的长度ElseMsgBox "没有发现要查找的字符串"End IfEnd Sub’替换选中的字符串Private Sub Command4_Click()Dim object As StringIf (5) ＞0 Then ’若已经选中了要替换的文本object = InputBox("输入要替换的字符串:")Text1.SelText = object ’替换文本ElseMsgBox "请先选中要替换的文本!"End IfEnd Sub’退出程序Private Sub Command5_Click()EndEnd Sub
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这些数据之和，其运行窗口如下。用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就能在“总计”文本框中看到该文本文件中的数据之和。在开发过程中，设驱动器列表框名为Drivel，目录列表框名为Dirl，文件列表框名为Filel，存放数据的文本文件名为D：\test\vb7\datA．txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为textl。【Visual Basic代码】Private Sub Drivel_Change()Dirl．Path=(1) '户选择的驱动器反映到目录列表框中End SubPrivate Sub Dirl_Change()Filel．Path=(2) '用户选择的文件夹改变文件列表框内容End SubPrivate Sub sum_Click()Dim (3) As New FileSystemOject, (4) As TextStxeam'创建自己的文件系统对象，说明自己的文本流对象If Right (Dirl．Path，1)="\"ThenSetmyTextFile=fso．OpenTextFile (Dirl．Path+Filel．FileNamc)ElseSetmyTextFile=fso．OpenTextFile(Dirl．Path+”\’+Filel．FileName)End“S=0Dod=Val (myTextFilE．ReadRow)S=S+dLoop While (5)Textl．Text=Str$(S)End Sub
阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。[说明]本程序实现的功能是判断指定的文本文件中是否包含指定的字符串，并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示，用户只要通过驱动器列表框、目录列表框选定文件夹，文件列表框会自动列出该文件夹下所有文本文件名称，选中其中某个文件，再输入目标字符串并且单击“查找”按钮，就能看到查找的结果。在开发过程中，驱动器列表框名为Drive1，目录列表框名为Dirl，文件列表框名为File1，目标字符串输入框名为Text1，“查找”按钮名为Command1。[Visual Basic 代码]Private Sub Drivel_Change()Dirl. Path=(1) '更新目录列表框的路径End SubPrivate Sub Dirl_Change( )(2)= Dirl. Path '更新文件列表框的路径 End SubPrivate Sub Commandl_Click( )Dim fso, a As ObjectDim i, j As IntegerIf (3) = "" Then '判断是否已经选中某个文件MsgBox "请选择一个文件文件!"(4) '退出事件过程End If'创建文件系统对象以及文本流对象Set fso = CreateOhjecl( "Scripting. FileSystemOhject" )Set a = fso. OpenTextFile( Dirl. Path "/" (3))i=1Do While (5)＜＞ True '逐行读取文件，直至文件末尾strLine = a. ReadLinej = InStr(1,(6))'返回目标字符串在文件这一行中的位置If j 0 Then '如果目标字符串在这一行出现，则返回其位置MsgBox "字符串第一次出现的位置是" "(" i "," j "),,"(4) '退出事件过程End Ifi:i+lLoopMsgBox "字符串在文件中不出现，"End Sub
在括号里写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。 % Dim fso ， f Set fso = Server.CreateObject（） ’创建FSO对象实例 Set f = fso.（）（） ’创建文件并返回textStream对象 f.（） "Hello" f.（） %
在下划线上填写适当的内容，以便向当前目录中的文本文件“test.txt”中写入数据 % Dim fso ， f ， rc rc = （）（"txtContent"） ’接收表单提交的文本数据 ’创建FSO对象实例 Set fso = （）（"Scripting.FileSystemObject"） ’创建文件并返回textStream对象，以覆盖方式打开文件 Set f = fso. CreateTextFile （Server.MapPath（"./test.txt"），true） ’向文件中写入数据 f. WriteLine rc"（）" f. Close ’关闭文件流对象 %
下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）ACreateTextFile方法BWriteBlankLine方法COpenAsTextStream方法DOpenTextFile方法
如果目标文件存在，下面（）语句建立的TextStream对象可以读取文件。A、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，1，True）B、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，1）C、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"）D、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，，True）
如果目标文件不存在，下面（）语句能够自动建立文件。A、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，1，True）B、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，2，True）C、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，8，False）D、Set tsm=fso.OpenTextFile（"C:///inetpub/wwwroot/asptemp/chapter10/test.txt"，1，False）
在括号里填写适当的内容，以便读取当前目录中的文本文件“test.txt” % Dim fso ， f Set fso = Server.CreateObject（） ’创建FSO对象实例 Set f = fso.（）（） ’打开文件并返回textStream对象 while Not f.（） ’当文件指针不在文本文件末尾时执行循环 Response.Write f.（）"" ’读取一行字符发送到浏览器 Wend f.Close %
下面不能从文本文件中读取数据的有（）A、TextStream对象的Read方法B、TextStream对象的Readline方法C、TextStream对象的ReadAll方法D、TextStream对象的OpenAsTextStream方法
填写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。 %Dim fso ， F ’创建FSO对象实例 Set fso = Server.CreateObject（） ’创建文件并返回textStream对象 Set F = fso.CreateTextFile（Server.MapPath（"./test.txt"） ）； F.（） "Hello" ’向文件中写入字符串后换行 F.（） ’向文件中输出1个空行 F.（） ’关闭 TextStream对象 %
下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）A、CreateTextFile方法B、WriteBlankLine方法C、OpenAsTextStream方法D、OpenTextFile方法
单选题下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）ACreateTextFile方法BWriteBlankLine方法COpenAsTextStream方法DOpenTextFile方法
单选题标准函数fgets（s，n，f）的功能是（）A从文件f中读取长度为n的字符串存人指针s所指的内存B从文件f中读取长度不超过n-1的字符串存人指针s所指的内存C从文件f中读取n个字符串存人指针s所指的内存D从文件f中读取长度为n-1的字符串存入指针s所指的内存
多选题如果目标文件存在，下面（）语句建立的TextStream对象可以读取文件。ASet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，1，True）BSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，1）CSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt）DSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，，True）
单选题如果目标文件不存在，下面（）语句能够自动建立文件。ASet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，1，True）BSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，2，True）CSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，8，False）DSet tsm=fso.OpenTextFile（C:///inetpub/wwwroot/asptemp/chapter10/test.txt，1，False）
单选题标准库函数fgets(s,n,f)的功能是（ ）。A从文件f中读取长度不超过n-1的字符串存入指针s所指的内存B从文件f中读取长度为n的字符串存入指针s所指的内存C从文件f中读取n个字符串存入指针s所指的内存D从文件f中读取n-1个字符串存入指针s所指的内存