平均成绩计算机控件,计算机技术基础(第十二章 文件 )
功能:包括文件的创建(打开)、复制、移动、删除及获取与文件有关的信息。
可以使用FileSystemObject对象和File对象完成文件管理工作。
管理文件的部分属性和方法:P229-230表12-5;表12-6
1.文件的创建与打开
FSO对象模型提供了三种创建和打开文件的方法:
(1)使用FileSystemObject对象的CreateTextFile方法
格式:
.CreateTextFile([,[,Unicode]])
功能:创建一个指定文件名的文件,并且返回一个用于对该文件进行读写的TextStream对象。
说明:
① :一个FileSystemObject的名字。
② :字符串表达式,表示新创建的文件名。
③ :当设置为False时,表示如果文件已存在,新创建的文件不覆盖原文件,否则覆盖原文件。缺省值为False。
使用前应用FileExists方法判断文件是否存在,以免发生错误。
④Unicode:当设置为False时,表示创建ASCII文件,否则创建Unicode文件。缺省值为False。
【例12-8】创建一个名为“testfile.txt”的文件,并在文件中写入“创建文件方法一:使用CreateTextFile方法”。
Private Sub Command1_Click()
Dim fso,tso
Set fso=CreateObject( "Scripting.FileSystemObject")
'判断文件是否存在
If fso.FileExists(“c:\testfile.txt”)Then
MsgBox "文件已存在!"
Unload Me
Else
Set tso=fso.CreateTextFile( "c:\testfile.txt",True)
tso.WriteLine( "创建文件方法一:使用
CreateTextFile方法 ") '向文件中写
tso.Close
End If
End Sub
(2)使用FileSystemObject对象的OpenTextFile方法
格式: .OpenTextFile
([,[,[,]]])
功能:打开指定的文件;返回一个TextStream对象
说明:
① :一个FileSystemObject的名字。
② :字符串表达式,表示新创建或打开的文件名。
③ :可选项。表示输入/输出方式,可为常量ForReading或ForAppending。
④ :False—如果文件不存在将不创建文件,True—时创建一个新文件。
缺省值为False。
⑤ :打开文件的格式。
如果省略,则文件以ASCII格式打开。
【例12-9】创建一个名为TestFile.txt的新文件,并写入“打开或创建文件方法二:使用OpenTextFile方法”。
Private Sub Command1_Click()
Dim fso,fTextStream
Set fso= _
CreateObject( "Scripting.FileSystemObject")
'创建TextStream对象
Set fTextStream=fso.OpenTextFile( "c:\testfile.txt", _2,True)
fTextStream.Write _
"打开或创建文件方法二,使用OpenTextFile方法"
fTextStream.Close '关闭文件
End Sub
(3)使用File对象的OpenAsTextStream方法
格式:
.OpenAsTextStream([,[]])
功能:打开指定的文件;返回一个TextStream对象,
该对象可用来对文件进行读、写、追加操作。
说明:
① :一个File对象的名字。
② :表示输入/输出方式。可为常量:
ForReading、ForWriting或ForAppending
③ :指示打开文件的格式。
如果省略,则文件以ASCII格式打开。
【例12-10】用写方式创建文件“testfile.txt”,并写入“创建文件方法三:OpenAsTextStream方法”。
Private Sub Command1_Click()
Dim fso,fo,tso
Set fso=CreateObject( "Scripting.FileSystemObject")
fso.CreateTextFile "c:\testfile.txt" '创建一个文件
'获得一个File对象的文件句柄
Set fo=fso.GetFile( "c:\testfile.txt")
'创建TextStream对象用于写
Set tso=fo.OpenAsTextStream(2)
tso.Write "创建文件方法三(OpenAsTextStream方法)"
tso.Close
End Sub
2.文件的复制、移动、删除
(1)使用FileSystemObject对象的
CopyFile、MoveFile、DeleteFile方法。
例:
Dim fso,fo
Set fso=CreateObject("Scripting.FileSystemObject")
'复制文件“c:\testfile.txt”到"c:\destination\textfile.txt"
fso.CopyFile "c:\testfile.txt", "c:\destination\"
(2)使用File对象的Copy、Move、Delete方法。
例:
Dim fso,fo
Set fso=CreateObject("Scripting.FileSystemObject")
'复制文件"c:\testfile.txt"到"c:\destination\textfile.txt"
Set fo=fso.GetFile("c:\testfile.txt") ' 获得File对象句柄
fo.Copy"c:\destination\"
3.获取与文件有关的信息
FileSystemObject对象和File对象必须配合使用才能获取文件的有关信息。
【例12-11】执行下列程序可以查询文件:
c:\windows\notepad.exe
建立的时间和文件大小等文件信息。
Private Sub Command1_Click()
Dim fso,fo,stemp
Set fso =_
CreateObject( "Scripting.FileSystemObject")
'获得一个File对象
Set fo=fso.GetFile( "c:\windows\notepad.exe")
sString=“文件” & _
UCase(fo.Name) & vbCrLf & vbCrLf '获得文件名
'获得文件创建时间
sString=sString & "建立的时间是: " & _
fo.DateCreated & vbCrLf & vbCrLf
'获得文件的大小
sString=sString & "占用的磁盘空间为: " & _
fo.Size & "字节"
MsgBox sString '显示获得的文件信息
End Sub
4.文件读/写
使用TextStream对象进行文件的读写操作。
TextStream对象与读/写文件有关的方法见P232表12-8。
5.关闭文件
关闭由TextStream对象打开的文件用Close方法。
例如:tso.Close。
【例12-12】创建一个文件并写入一些信息,然后再将信息读出显示在消息框中。
Private Sub Command1_Click()
Dim fso,fo,tso,sString
Set fso=
_CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "c:\testfile.txt" '创建一个文件
'获得一个File对象的文件句柄
Set fo=fso.GetFile("c:\testfile.txt")
'创建TextStream对象用于写
Set tso=fo.OpenAsTextStream(2)
'在文件中写一个字符串
tso.Write"用TextStream对象的Write、Read方法,演示文件的读写操作"
tso.Close
Set tso=fo.OpenAsTextStream()
sString=tso.ReadLine ' 读一行
tso.Close
MsgBox sString ' 显示读出的信息
End Sub
平均成绩计算机控件,计算机技术基础(第十二章 文件 )相关推荐
- Python4班平均成绩统计_期中考试了,十二个班的成绩,如何使用excel计算平均值、排名...
各个学校期中考试都快结束了,想必各科老师都非常迫切的想知道自己教的班的成绩吧. 对于懂excel的老师来说,拿到表格几分钟就能计算出全校各班的平均分,对自己这半学期的教学成果做到了心中有数.但是对于不 ...
- android 模糊查询控件_第三十二篇:在SOUI2.0中像android一样使用资源
SOUI2.0之前,在SOUI中使用资源通常是直接使用这个资源的name(一个字符串)来引用.使用字符串的好处在于字符串能够表达这个资源的意义,因此使用字符串也是现代UI引擎常用的方式.尽管直接使用字 ...
- 财务管理基础 第十二章 现金流量估算与风险分析
1. 现金流量分析的其他因素 现金流量与会计收入:与资本预算相关的是项目的现金流量,而非会计收入.净收入的计算是依据会计人员选择的折旧率以及利息费用.但折旧不算入现金流量中. 现金流量的时间分布:理论 ...
- Python基础知识十二【文件操作】
文件操作 1.文本文件和二进制文件 2.文件操作相关模块概述 3.创建文件对象 4.文本文件的写入 4.1基本的文件写入操作 5.常用编码介绍 5.1 ASCII 5.2 ISO8859-1 5.3 ...
- 一起谈.NET技术,asp.net控件开发基础(18)
本篇继续上篇的讨论,可能大家已经在使用asp.net2.0了,DataSource属性不再使用,而是跟数据源控件搭配使用.现在讨论的绑定技术都是基于1.1版本,先熟悉一下,本质上是一样的,这样一步步的 ...
- 一起谈.NET技术,asp.net控件开发基础(20)
上面我们讨论了数据绑定控件的做法,但都未涉及到asp.net2.0中数据源控件的用法,让用惯了数据源控件的人可能感觉不适应.这次我们就开始讨论在asp.net2.0中,我们该如何重新定义数据绑定控件. ...
- asp.net控件开发基础系列
本系列文章示例源码下载.各位如遇问题,请多查msdn,多利用网络.本人可能没时间一一回复,谢谢你们的支持,希望看到此文的人都能学好控件开发 http://www.cnblogs.com/Clingin ...
- 一起谈.NET技术,asp.net控件开发基础(17)
本篇将开始介绍如自定义数据绑定控件,这里感谢很多人的支持,有你们的支持很高兴.这里首先需要大家熟悉asp.net模板控件的使用,还有自定义模板控件.因为数据绑定控件多是基于模板控件的. 一.回顾 如果 ...
- 一起谈.NET技术,asp.net控件开发基础(13)
1.减轻服务器压力,增加用户体验 服务器功能是强大的,客户端脚本一点也不弱,现在的ajax技术和Atlas技术就是最好的证明,我们总是期待UI有一个好的效果,flash动画给我们带来了很酷的效果,我们 ...
最新文章
- FFmpeg流媒体处理-收流与推流
- app显示服务器借口错误,hbuider 运行 uni-app 电脑端安卓模拟器接口请求错误
- jaxb入门_JAXB教程–入门
- Java 蓝桥杯 时间转换
- 拯救Ubuntu环境变量搞蹦导致命令使用不了的办法
- android 中国市场份额 2015,2015年安卓芯片市场分析:不再一家独大
- 电容电感充放电时间计算
- 亲密爱人:《亲密关系》读书笔记
- XJTU 算法设计与问题求解作业题 第一周
- 机器人操作系统ROS 1.0 和 2.0 发展规划2018-2025(Open Robotics)译
- 做抖音自媒体能赚钱吗?
- 什么是nmap以及如何使用它
- 人要是点背!那真是没整
- 尚硅谷在线教育五:尚硅谷在线教育讲师管理开发
- 如何检测隐藏在Magisk背后的ROOT及外挂
- win10服务器权限修改时间,大师为你解答win10系统时间无法修改没有权限的处理方案...
- VSLAM与VIO的3D建图,重定位与世界观综述
- 王迪手机软件测试,王迪的作品集 - 新片场
- Yapi集成到Jenkins实现接口自动化—最全面的流程讲解
- 使用photoshop 修复旧照片