平均成绩计算机控件,计算机技术基础(第十二章 文件 )

功能:包括文件的创建(打开)、复制、移动、删除及获取与文件有关的信息。

可以使用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

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/308143.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

.Net Core中的诊断日志DiagnosticSource讲解

前言近期由于需要进行分布式链路跟踪系统的技术选型,所以一直在研究链路跟踪相关的框架。作为能在.Net Core中使用的APM,SkyWalking自然成为了首选。SkyAPM-dotnet是SkyWalking在.Net Core端的探针实现,其主要的收集日志的手段就是基于Diagno…

7-2 银行家算法--申请资源 (30 分)

7-2 银行家算法–申请资源 (30 分)&#xff08;思路详解&#xff09;Come 乖宝宝们 一&#xff1a;前言 这道题需要用到前面的一道题 安全性检查 算法知识&#xff0c;所以强烈建议先看前面那道题 7-1 银行家算法–安全性检查 (20 分) 二&#xff1a;题目 输入N个进程(N<…

计算机一级文档题,计算机一级模拟题

计算机2008第二次一级笔试试题A卷一、单选题1.计算机的发展大体可(按其组成的器件)分为()阶段。A.六 B.五 C.四 D.三2.计算机中的运算器能进行()。A.加法和减法运算 B.算术运算和逻辑运算C.加、减、乘、除运算 D.字符处理运算3.计算机软件是指所使用的()。A.各种程序的集合B.有…

年薪100万和10万程序员的差距

点击蓝字关注&#xff0c;回复“职场进阶”获取职场进阶精品资料一份我们看武侠大片&#xff0c;经常有那种本来可以练就绝世武功的大虾。阴差阳错练的走火入魔。一开始还可以硬撑&#xff0c;还能打败一些虾兵蟹将。遇见真正的高手&#xff0c;这些大虾们立马就败下阵来。其实…

7-3 银行家算法--综合 (50 分)(思路+详解+分析输入)宝宝们 加油

一&#xff1a;前言 这道题涉及到 银行家算法的申请资源 算法 还有 安全性检查的耍算法 那么强烈建议 把前面的学完再看本题 7-1 银行家算法–安全性检查 (20 分) 7-2 银行家算法–申请资源 (30 分) 二&#xff1a;题目 输入N个进程(N<100)&#xff0c;以及M类资源&#…

如何在龙芯3B4000上部署基于.Net Core 开发的物联网平台IoTSharp

今天很开心的拿到了龙芯的测试服务器账号&#xff0c; 先上图show一下&#xff0c; 双核&#xff0c; 8G内存&#xff0c; 50G硬盘。架构 mips64el 登录后&#xff0c; 显示为 uos 及其网址信息:接下来&#xff0c; 二话不说&#xff0c; 我们开始下载龙芯版的.Net Core &#…

服务器虚拟化怎么使用,服务器使用中的误区及建议 服务器虚拟化安装步骤

服务器是至关重要的核心设备&#xff0c;确保网络服务器能够高性能、稳定持续地工作一直以来都是用户最关心的问题。然而在关注着这个问题的同时&#xff0c;我们发现有很多的用户都没有正确地配置自己的服务器&#xff0c;使得服务器并没有工作在最佳的状态。本文总结了大家在…

46. 全排列015(回溯法求解)

一:题目 示例 1&#xff1a; 输入&#xff1a;nums [1,2,3] 输出&#xff1a;[[1,2,3],[1,3,2],[2,1,3],[2,3,1],[3,1,2],[3,2,1]] 示例 2&#xff1a;输入&#xff1a;nums [0,1] 输出&#xff1a;[[0,1],[1,0]] 示例 3&#xff1a;输入&#xff1a;nums [1] 输出&#xf…

计算机 ieee access,计算机 | IEEE Access 诚邀专刊稿件 (IF:3.557)

期刊基本信息期刊名称IEEE Access专刊全称Advanced Communications and Networking Techniques for Wireless Connected Intelligent Robot Swarms影响因子3.557专刊难度★★中科院JCR分区:• 大类 : 工程技术 - 2区• 小类 : 计算机&#xff1a;信息系统 - 2区• 小类 : 工程&…

git did not exit cleanly(解决办法)

一&#xff1a;问题描述 我们在push的时候&#xff0c;出现如下问题 这个图是我拿别人的&#xff08;因为我的问题解决后 没保存图&#xff09; 二:解决 1.新建一个仓库在gitee上: 2:将新建的仓库克隆到本地 3&#xff1a;将原来的文件剪切到javanew(新建的仓库) 4&#…

[Hei.Captcha] Asp.Net Core 跨平台验证码实现

&#xfeff;&#xfeff;写在前面说起来比较丢脸。我们有个手机的验证码发送逻辑需要使用验证码&#xff0c;这块本来项目里面就有验证码绘制逻辑&#xff0c;.Net Framework的&#xff0c;使用的包是System.Drawing,我把这验证码绘制逻辑复制到.Net Core的新项目引用对比包Sy…

等待ajax,等待Ajax调用(post)完成

回拨:定义要接受回调的PostForm:function postForm(ind, id, callback){// ...$.post(url, function(){// ...callback();});}然后像下面这样做。您可以使用递归以一种不太硬的编码方式编写它,如果有更多的表单,这可能特别有用。postForm(0, "#Form1", function(){po…

77. 组合016(回溯法)

一:题目 给定两个整数 n 和 k&#xff0c;返回范围 [1, n] 中所有可能的 k 个数的组合。 你可以按 任何顺序 返回答案。 示例 1&#xff1a; 输入&#xff1a;n 4, k 2 输出&#xff1a; [[2,4],[3,4],[2,3],[1,2],[1,3],[1,4], ] 示例 2&#xff1a;输入&#xff1a;n …

.NET5即至,你准备好了吗?

.NET 5.0 Preview7是RC版前倒数第二个预览版&#xff0c;发布至今恰好一个月&#xff0c;算起来&#xff0c;.NET Core开源已经4年了&#xff0c;然而在互联网大型系统开发中很多环节都还是空白的&#xff0c;造轮子诚非一日之功&#xff01;这里为大家推荐一个分布式日志分析解…

216. 组合总和 III017(回溯法求解)

一&#xff1a;题目 二:思路 1.总体来看这是一个解空间为k层的排列树 第一层为1~9 2.递归函数的参数和返回值 1>:返回值&#xff1a;vector<vector > res 每次的求解结果&#xff1a;vector path 2>:参数&#xff1a; backtacking(int k,int n,int index,int sum)…

基于IdentityServer4的OIDC实现单点登录(SSO)原理简析

&#xfeff;&#xfeff;# 写在前面IdentityServer4的学习断断续续&#xff0c;兜兜转转&#xff0c;走了不少弯路&#xff0c;也花了不少时间。可能是因为没有阅读源码&#xff0c;也没有特别系统的学习资料&#xff0c;相关文章很多园子里的大佬都有涉及&#xff0c;有系列文…

fc协议有哪些数据传输服务器,FC协议详解

FC协议简介开发于1988年&#xff0c;最早是用来提高硬盘协议的传输带宽&#xff0c;侧重于数据的快速、高效、可靠传输。到上世纪90年代末&#xff0c;FCSAN开始得到大规模的广泛应用。FC协议其实并不能翻译成光纤协议&#xff0c;只是FC协议普遍采用光纤作为传输线缆而不是铜缆…

51. N 皇后018(回溯法求解)

一&#xff1a;题目 二:思路 思路: 1.这里在选择建树(也就是在选择解的空间上)是 子集树 2.那么在结点上我们选择的是一个二维的矩阵就是将最后的结果落实到一个二维容器里 也就遍历到叶节点时候一种可行解的情况 3.写码思路&#xff1a; <1>:递归函数的参数: backtacki…

小姐姐为你解析马爸爸是怎么用大数据“宰你”的

一、首先大数据杀熟是什么&#xff1f;大数据杀熟本质就是一种数据营销手段&#xff1a;商家为了追求商业目的&#xff0c;利用交易双方信息的不对称性&#xff0c;根据每个用户的身份信息和历史数据表现&#xff0c;或者根据用户当前的需求来调整产品定价的手段 &#xff1b;比…

苹果手机上没有显示订阅服务器,手机里没有订阅的选项,我该怎样取消自动收费项目...

有些应用和服务会在用户订阅后提供内容访问权限。与购买单个项目(例如宝石和金币等游戏币)不同&#xff0c;在您选择结束订阅之前&#xff0c;订阅会自动续订。自动续订的订阅包括&#xff1a;Apple Music 订阅Apple 新闻、报纸和杂志订阅内容或服务的 App 内订阅(HBO NOW、Spo…