网友您好, 请在下方输入框内输入要搜索的题目:
题目内容
(请给出正确答案)
在下划线上填写适当的内容,以便向当前目录中的文本文件“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 ’关闭文件流对象 %>
参考答案
参考解析
略
更多 “在下划线上填写适当的内容,以便向当前目录中的文本文件“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对象打开一个文本文件时,便得到一个textstream对象的实例,不妨称为tx。使用这个实例来读取文件,或者是往文件里写入信息。那么此时tx指向哪里?()
A.刚写入的字符之后B.指定位置C.文件的开始D.文件的末尾
考题
( 34 )设有语句: Open "d:\Test.txt" For Output As #1 ,以下叙述中错误的是A )若 d 盘根目录下无 Test.txt 文件,则该语句创建此文件B )用该语句建立的文件的文件号为 1C )该语句打开 d 盘根目录下一个已存在的文件 Test.txt ,之后就可以从文件中读取信息D )执行该语句后,就可以通过 Print # 语句向文件 Test.txt 中写入信息
考题
设有语句:Open "d:\Test.txt" For Output As #1,以下叙述中错误的是______。A.若d盘根目录下无Test.txt文件,则该语句创建此文件B.用该语句建立的文件的文件号为1C.该语句打开d盘根目录下一个已存在的文件Test.txt,之后就可以从文件中读取信息D.执行该语句后,就可以通过Print#语句向文件Test.txt中写入信息
考题
阅读以下说明及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.() %
考题
下面不能创建或打开一个文本文件并返回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)
考题
下面不能创建或打开一个文本文件并返回TextStran对象的方法是()A、CreateTextFile方法B、WriteBlankLine方法C、OpenAsTextStream方法D、OpenTextFile方法
考题
在括号里填写适当的内容,以便读取当前目录中的文本文件“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对象的方法是()A
CreateTextFile方法B
WriteBlankLine方法C
OpenAsTextStream方法D
OpenTextFile方法
考题
多选题如果目标文件存在,下面()语句建立的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)
考题
单选题如果目标文件不存在,下面()语句能够自动建立文件。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)
热门标签
最新试卷