niusouti.com

在括号里填写适当的内容，以便读取当前目录中的文本文件“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  %>
相似考题

1.当用textstream对象打开一个文本文件时,便得到一个textstream对象的实例,不妨称为tx。使用这个实例来读取文件,或者是往文件里写入信息。那么此时tx指向哪里?()A.刚写入的字符之后B.指定位置C.文件的开始D.文件的末尾

2.阅读以下说明及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

3.阅读以下说明及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

4.下面不能从文本文件中读取数据的是()。A.TextStream对象的Read方法B.TextStream对象的ReadLine方法C.TextStream对象的ReadAll方法D.TextStream对象的OpenAsTextStream方法

参考答案和解析
Scripting.FileSystemObject；OpenTextFile；Server.MapPath("./text.txt"；AtEndofStream；ReadLine
略
更多“在括号里填写适当的内容，以便读取当前目录中的文本文件“test.txt”  &lt;%  Dim fso ， f  Set  fso = Server.CreateObject（）  ’创建FSO对象实例  Set  f = fso.（）（）   ’打开文件并返回textStream对象  while  Not  f.（） ’当文件指针不在文本文件末尾时执行循环  Response.Write  f.（）&amp;"<br>" ’读取一行字符发送到浏览器  Wend  f.Close  %&gt;”相关问题

  • 第1题：

    阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。

    [说明]

    本程序实现的功能是判断指定的文本文件中是否包含指定的字符串，并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示，用户只要通过驱动器列表框、目录列表框选定文件夹，文件列表框会自动列出该文件夹下所有文本文件名称，选中其中某个文件，再输入目标字符串并且单击“查找”按钮，就能看到查找的结果。

    在开发过程中，驱动器列表框名为Drive1，目录列表框名为Dirl，文件列表框名为File1，目标字符串输入框名为Text1，“查找”按钮名为Command1。

    [Visual Basic 代码]

    Private Sub Drivel_Change()

    Dirl. Path=(1) '更新目录列表框的路径

    End Sub

    Private Sub Dirl_Change( )

    (2)= Dirl. Path '更新文件列表框的路径 End Sub

    Private Sub Commandl_Click( )

    Dim fso, a As Object

    Dim i, j As Integer

    If (3) = "" Then '判断是否已经选中某个文件

    MsgBox "请选择一个文件文件!"

    (4) '退出事件过程

    End If

    '创建文件系统对象以及文本流对象

    Set fso = CreateOhjecl( "Scripting. FileSystemOhject" )

    Set a = fso. OpenTextFile( Dirl. Path & "/" &(3))

    i=1

    Do While (5)＜＞ True '逐行读取文件，直至文件末尾

    strLine = a. ReadLine

    j = InStr(1,(6))'返回目标字符串在文件这一行中的位置

    If j > 0 Then '如果目标字符串在这一行出现，则返回其位置

    MsgBox "字符串第一次出现的位置是" & "(" & i & "," &j & "),,"

    (4) '退出事件过程

    End If

    i:i+l

    Loop

    MsgBox "字符串在文件中不出现，"

    End Sub


    正确答案：[问题1](1)Drivel. Drive (2)File1. Path (3)File1. filename (4)Exit Sub (5)AtEndOfStream (6)str Line Textl. Text [问题2](7)Pattern (8)*.* (9)*.jpg;*.bmp
    [问题1](1)Drivel. Drive (2)File1. Path (3)File1. filename (4)Exit Sub (5)AtEndOfStream (6)str Line, Textl. Text [问题2](7)Pattern (8)*.* (9)*.jpg;*.bmp 解析：(1)～(2)驱动器列表框的Drive属性表示当前选择的驱动器；目录列表框的Path属性表示当前目录的路径，如："c:\ucdos\bin";文件列表框的path属性则表示列表中文件所在的目录的路径。因此，我们通常都把驱动器列表框对象的Path属性和目录列表框、文件列表框的Path属性联系起来，以实现三者的连动；
    (3)文件列表框的filename属性返回选定的不含路径的纯文件名称，如"bkspeak.exe"、"VB习题．txt"等； (4)Exit Sub语句用于提前结束过程，类似地语句还有 Exit For(提前退出For循环)以及Exit Do(提前退出Do循环)等；
    (5)文本流对象的AtEndOfStream属性返回Boolean类型的值，表示是否到达流的末尾；
    (6)instr是VB提供的字符串查找函数，常用格式是in- str(起始位置，字符串1，字符串2)，功能是返回字符串 2在字符串1中首次出现的位置(若字符中2在字符串 1种不出现则返回0)；
    (7)～(9)文件列表框的Pattern属性用于限制文件列表框中文件的类型，格式为：文件列表框名．pattern=" *.扩展名1;*.扩展名2;……"(中间不包含空格)，例如"*.txt"、"*.*"以及"*.txt;*.rtf;*. htm"等。

  • 第2题：

    在下划线上填写适当的内容，以便向当前目录中的文本文件“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    ’关闭文件流对象 %>
    Request.Form；Server.CreateObject；

    略

  • 第3题：

    如果要使用FSO编程，首先要用（）方法创建FileSystemObject对象。


    正确答案:Server.CreatObject

  • 第4题：

    如果目标文件不存在，下面（）语句能够自动建立文件。

    • 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）

    正确答案:A

  • 第5题：

    下面不能从文本文件中读取数据的有（）

    • A、TextStream对象的Read方法
    • B、TextStream对象的Readline方法
    • C、TextStream对象的ReadAll方法
    • D、TextStream对象的OpenAsTextStream方法

    正确答案:D

  • 第6题：

    填写适当的内容，以便在当前目录中创建一个名为“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对象  %>


    正确答案:Scripting.FileSystemObject；WriteLine；WriteBlankLine(1)；Close

  • 第7题：

    FSO组件可以用来对（）、（）以及文件等对象进行相关的处理操作。


    正确答案:FOLDERS；DRIVERS

  • 第8题：

    单选题
    标准函数fgets（s，n，f）的功能是（）
    A

    从文件f中读取长度为n的字符串存人指针s所指的内存

    B

    从文件f中读取长度不超过n-1的字符串存人指针s所指的内存

    C

    从文件f中读取n个字符串存人指针s所指的内存

    D

    从文件f中读取长度为n-1的字符串存入指针s所指的内存


    正确答案： D
    解析： 暂无解析

  • 第9题：

    多选题
    如果目标文件存在，下面（）语句建立的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）


    正确答案： C,D
    解析： 暂无解析

  • 第10题：

    填空题
    在括号里写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。

    正确答案： Scripting.FileSystemObject,CreateTextFile,Server.MapPath("./text.txt",WriteLine,Close
    解析： 暂无解析

  • 第11题：

    填空题
    在下划线上填写适当的内容，以便向当前目录中的文本文件“test.txt”中写入数据

    正确答案： Request.Form,Server.CreateObject,
    解析： 暂无解析

  • 第12题：

    单选题
    如果目标文件不存在，下面（）语句能够自动建立文件。
    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）


    正确答案： D
    解析： 暂无解析

  • 第13题：

    在括号里写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。  <%  Dim fso ， f  Set  fso = Server.CreateObject（）  ’创建FSO对象实例  Set  f = fso.（）（）     ’创建文件并返回textStream对象  f.（）  "Hello"  f.（）  %>
    Scripting.FileSystemObject；CreateTextFile；Server.MapPath("./text.txt"；WriteLine；Close
    略

  • 第14题：

    下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）

    ACreateTextFile方法

    BWriteBlankLine方法

    COpenAsTextStream方法

    DOpenTextFile方法


    B
    略

  • 第15题：

    如果目标文件存在，下面（）语句建立的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,B,C,D

  • 第16题：

    在括号里填写适当的内容，以便读取当前目录中的文本文件“test.txt”  <%  Dim fso ， f  Set  fso = Server.CreateObject（）  ’创建FSO对象实例  Set  f = fso.（）（）   ’打开文件并返回textStream对象  while  Not  f.（） ’当文件指针不在文本文件末尾时执行循环  Response.Write  f.（）&"
    " ’读取一行字符发送到浏览器  Wend  f.Close  %>


    正确答案:Scripting.FileSystemObject；OpenTextFile；Server.MapPath("./text.txt"；AtEndofStream；ReadLine

  • 第17题：

    使用FSO编程，首先要用（）方法创建FileSystemObject对象。


    正确答案:CREATEOBJECT

  • 第18题：

    下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）

    • A、CreateTextFile方法
    • B、WriteBlankLine方法
    • C、OpenAsTextStream方法
    • D、OpenTextFile方法

    正确答案:B

  • 第19题：

    单选题
    下面不能创建或打开一个文本文件并返回TextStream对象的方法是（）
    A

    CreateTextFile方法

    B

    WriteBlankLine方法

    C

    OpenAsTextStream方法

    D

    OpenTextFile方法


    正确答案： D
    解析： 暂无解析

  • 第20题：

    填空题
    FSO组件可以用来对（）、（）以及文件等对象进行相关的处理操作。

    正确答案： FOLDERS,DRIVERS
    解析： 暂无解析

  • 第21题：

    填空题
    填写适当的内容，以便在当前目录中创建一个名为“test.txt”的文本文件。

    正确答案： Scripting.FileSystemObject,WriteLine,WriteBlankLine(1),Close
    解析： 暂无解析

  • 第22题：

    填空题
    在括号里填写适当的内容，以便读取当前目录中的文本文件“test.txt”  " ’读取一行字符发送到浏览器  Wend  f.Close  %>

    正确答案： Scripting.FileSystemObject,OpenTextFile,Server.MapPath("./text.txt",AtEndofStream,ReadLine
    解析： 暂无解析

  • 第23题：

    填空题
    使用FSO编程，首先要用（）方法创建FileSystemObject对象。

    正确答案： CREATEOBJECT
    解析： 暂无解析

  • 第24题：

    单选题
    标准库函数fgets(s,n,f)的功能是（　　）。
    A

    从文件f中读取长度不超过n-1的字符串存入指针s所指的内存

    B

    从文件f中读取长度为n的字符串存入指针s所指的内存

    C

    从文件f中读取n个字符串存入指针s所指的内存

    D

    从文件f中读取n-1个字符串存入指针s所指的内存


    正确答案： D
    解析：
    fgets函数功能是从f所指文件中读入n-1个字符放入s为起始地址的空间内，并在尾端自动加一个结束标志“\0”。同时将读/写位置指针向前移动字符串长度个字节。在读出n-1个字符之前，如遇到了换行符或EOF，则读出结束，A项正确。B项中“读取长度为n”错误。C项与D项中“读取n/n-1个字符串”错误，读取的是n-1个字符。答案选择A选项。

相关内容