VBS文本文件操作实现代码

对于文件的操作，例如：生成一个或者打开一个或者删除一个.txt格式文件。
虽然官方的FILE插件提供了一些基本功能，但功能不多。
你并不需要理解什么是fso模版，什么是vbs语句，直接套用下面的语句吧！
红色字为自己定义的部分，蓝色字为任意选一部分

如果你看不懂，请参考下面的例子！
操作同一个文件红色部分必须相同

请认真看括号内的解释内容
定义一个名为fso的关系文件问题的对象，对于一个文件的操作只需写一次，此句必须写
VBS Set fso = CreateObject("Scripting.FileSystemObject")

0.判断一个文件或文件夹是否存在(yn是返回值，文件存在返回1，不存在返回0)
VBS yn=fso.FileExists(判断文件的目录)

1.创建一个文件(蓝字定义该文本文件是否可以被下次写入覆盖，省略默认为ture)
VBS set ttfile=fso.createtextfile(创建的文件目录,ture|false)

2.打开一个已存在的文件(蓝字定义文件写入方式，分别为a.只读b.可读写,但每打开一次文件重写c.在文件末尾写)
VBS const forreading=1
VBS const forwriting=2
VBS const forappending=8
注意：要想更改打开方式必须关闭文件重新打开
VBS set ttfile=fso.opentextfile(打开文件的目录,forreading|forwriting|forappending)

3.关闭一个打开的文件(红色部分要于已经打开的文件红色部分相同)
VBS ttfile.close

4.读取打开文件的一行并回车(红色部分ttfile要于已经打开的文件红色部分相同)
VBS read=ttfile.ReadLine

5.读取所有文件内容(红色部分ttfile要于已经打开的文件红色部分相同)
VBS read=ttfile.ReadAll

6.写入一行并回车(红色部分要于已经打开的文件红色部分相同)
VBS ttfile.writeline(自己要写入的内容)

7.删除指定文件(若已定义过ttfile则不需要第一句)
VBS set  ttfile=fso.GetFile(要删的文件目录)
VBS ttfile.delete

8.判断输入标记是否在末尾(是返回-1，否则返回0)
VBS  yn=ttfile.atendofstream

以下是一些文件夹的操作
8.判断是否为根目录(yn是返回值，文件存在返回1，不存在返回0)
VBS yn=fso.IsRootFolder

9.读取文件夹
VBS set ttfile=fso.GetFolder(文件夹目录)

10.创建一个文件夹
VBS set ttfile=fso.creaFolder(创建的文件夹目录)

11.删除指定文件夹(若已定义过ttfile则不需要第一句)
VBS set  ttfile=fso.GetFolder(要删的文件目录)
VBS ttfile.deletefolder

下面是其他一些经常用到的文件操作(注意：可用于所有格式的文件。红字是你的上文脚本已经定义过的)
VBS ttfile.size                               返回文件大小
VBS ttfile.type                             返回文件类型
VBS ttfile.DateCreated                  返回文件创建时间
VBS ttfile.DatelastAccessed            返回文件最近访问时间
VBS ttfile.DateLastModified            返回文件最后修改时间
VBS ttfile.name                            返回文件名称
VBS ttfile.ShortPath                      返回文件短路径名
VBS ttfile.path                             返回文件物理地址

代码如下:

VBS Set fso = CreateObject("Scripting.FileSystemObject")
//判断d盘下是否有文件1.txt
VBS pd1=fso.FileExists(d:\1.txt)
if 0=pd1
//没有的话，在d盘下创建一个不可覆盖的文件1.txt
VBS set txtfile=fso.createtextfile("d:\1.txt",false)
//以在末尾写入的方式打开1.txt
VBS set txtfile=fso.opentextfile("d:\1.txt",forappending)
//写入一行“1234567890”
VBS txtfile.writeline("1234567890")
//关闭1.txt
VBS txtfile.close
endif
//以只读方式打开1.txt
VBS set txtfile=fso.opentextfile("d:\1.txt",forreading)
//读取第一行，并将其赋予变量read
VBS read=txtfile.ReadLine
//关闭1.txt
VBS txtfile.close

一时间没有完全列出所有函数，不足的部分希望大家跟帖补上。

赞 (0)

相关推荐

  • 用vbs对文本文件的内容进行排序

    问: 您好,脚本专家!我有一个包含计算机名称列表的文本文件.如何按照字母顺序对该文件进行排序? -- LR 答: 您好,LR.如果想偷懒的话,我们就会告诉您:"对不起,您不能这样做."我们也可以就此脱身,因为 Microsoft 的脚本编写技术中没有一个方法能在打开文本文件后对文件进行排序.不过,嗨,"脚本专家"什么时候偷过懒呢? 噢,对了,我们是偷过几次懒,不过希望所有的人都已经忘了.不过,这次我们将向您提供一个解决办法. 虽然没有能直接对文本文件进行排序的方法,

  • 用vbscript实现从文本文件中删除所有重复行的代码

    问: 您好,脚本专家!如何从文本文件中删除所有重复行? -- SW 答: 您好,SW.您知道,成为一名脚本专家便意味着开始永无止境地寻找给定问题的最终解决方案.(或者至少在我们的经理问为什么我们似乎从未真正完成什么时,我们是这么告诉他的:"老板,永无止境的寻找过程需要时间!")这就是为什么我们很高兴看到您的问题的原因.不久前 我们回答了一个关于从文本文件中删除重复名字的类似问题.我们想到的解决方案十分简单而且效果不错:只是我们不确定那是最佳解决方案.现在,很感谢您的问题,我们可以再次尝

  • vbs删除文本文件的行的函数

    Delete Line Function 复制代码 代码如下: Function DeleteLine(strFile, strKey, LineNumber, CheckCase) 'DeleteLine Function by TomRiddle 2008 'Remove line(s) containing text (strKey) from text file (strFile) 'or 'Remove line number from text file (strFile) 'or

  • 用vbs读取文本文件的最后一行

    问: 您好,脚本专家!如何仅读取文本文件的最后一行? -- BM 答: 您好,BM.如果您曾经想知道您好,脚本专家!与其它每日专栏(比如,知心姐姐)的不同之处,那么,下面是一种途径.假设有人在给知心姐姐的信中说: 知心姐姐: 我的生活一团糟,我需要采取一些措施来应对.我如何能扭转我的生活并且重新快乐起来? 绝望之人于代顿 知心姐姐绝不会给绝望之人这样的答复: 亲爱的绝望之人: 唉,您的生活不能变好了.很抱歉. 那么,您认为脚本专家会如何答复您关于读取文本文件的最后一行呢?答对了: 亲爱的 BM:

  • 用vbs实现对文本文件中的项计数

    问: 嗨,脚本专家!如何向文本文件的顶部添加行? -- FT 答: 您好,FT.您知道,在亚瑟·柯南·道尔爵士生涯的某一时刻,他实际上将夏洛克·福尔摩斯写死了,他认为他已写完了有关这个大侦探所有能写的一切.公众的疾呼很快改变了他的想法,他迅速地使夏洛克·福尔摩斯起死回生.(按照所有肥皂剧的那种基本情节主线一路创作下来.) 我们脚本专家对亚瑟·柯南·道尔爵士深感同情.毕竟,我们会周期性地想,"好了,到这里吧:我们已编写了有关文本文件所有能编写的一切."我们刚有此想法,就立刻收到有关文本文

  • 使用VBS访问外部文本文件一些方法和脚本实例代码

    处理文件用到的常量有:ForReading = 1 ,ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加,都要在使用之前用VBS Const来声明.常用于处理文本文件的方法有:Read(var)-读var个字符,ReadLine-读一行,ReadAll-读整个文件内容,SkipLine-跳过本行指向下一行,Write(var)-把字符串var写入文件,WriteLine(var)-把字符串var和换行符写入文件,WriteBlankLines(n)-写入n个换行

  • VBScript 文件操作代码小结

    创建文本文件 复制代码 代码如下: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt") 检察文件是否存在 复制代码 代码如下: Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileE

  • 用vbs实现读取文本文件的方法

    vbs读取文件方法Function readfile(readfilepath) 'On Error Resume Next     Set fs = CreateObject("Scripting.FileSystemObject")     Set file = fs.OpenTextFile(readfilepath, 1, false)     readfile=file.readall     file.close     set fs=nothing end Functio

  • VBS文本文件操作实现代码

    对于文件的操作,例如:生成一个或者打开一个或者删除一个.txt格式文件.虽然官方的FILE插件提供了一些基本功能,但功能不多.你并不需要理解什么是fso模版,什么是vbs语句,直接套用下面的语句吧!红色字为自己定义的部分,蓝色字为任意选一部分 如果你看不懂,请参考下面的例子!操作同一个文件红色部分必须相同 请认真看括号内的解释内容定义一个名为fso的关系文件问题的对象,对于一个文件的操作只需写一次,此句必须写VBS Set fso = CreateObject("Scripting.FileSy

  • Scala文件操作示例代码讲解

    目录 1. 读取数据 1.1 按行读取 1.2 按字符读取 Scala使用source.buffered方法按字符读取文件 一个示例 1.3 读取词法单元和数字 1.4 从URL或者其他源读取数据 1.5 读取二进制文件 2. 写入文件 2.1 使用java.io.PrintWriter类 2.2 使用java.io.FileWriter类 2.3 使用java.io.FileOutputStream类 2.4 几种写入的区别 2.5 使用第三方库 3. Scala序列化和反序列化 3.1 什么

  • MongoDB快速入门笔记(四)之MongoDB查询文档操作实例代码

    MongoDB简介 MongoDB 是一个基于分布式文件存储的数据库.由 C++ 语言编写.旨在为 WEB 应用提供可扩展的高性能数据存储解决方案. MongoDB 是一个介于关系数据库和非关系数据库之间的产品,是非关系数据库当中功能最丰富,最像关系数据库的. 下面给大家介绍MongoDB查询文档操作的实例 先把student删除,再重新插入数据 > db.student.drop() true > db.student.insert([{ "_id" : 1, "

  • IOS中各种手势操作实例代码

    IOS中各种手势操作实例代码

    先看下效果 手势相关的介绍 IOS中手势操作一般是 UIGestureRecognizer 类的几个手势子类去实现,一般我们用到的手势就这么5种: 1.点击  UITapGestureRecognizer 2.平移  UIPanGestureRecognizer 3.缩放  UIPinchGestureRecognizer 4.旋转  UIRotationGestureRecognizer 5.轻扫  UISwipeGestureRecognizer 我们上面这个实例中就用到了上面这5种手势,不

  • php文件操作实例代码

    先送上一段简单的实例 复制代码 代码如下: <?php if(!is_dir('txt'))//判断txt是否为文件夹目录 { mkdir('txt');//创建名为txt的文件夹目录 $open=fopen('txt/in.txt',"w+");//以读写的方式打开文件 if(is_writable('txt/in.txt'))//如果此文件为可写模式 { if(fwrite($open,"今天是美好的一天,一定要开心哦!<- ->")>0

  • Django中的cookie与session操作实例代码

    添加cookie: def login(req): if req.method=="POST": uf = UserInfoForm(req.POST) if uf.is_valid(): username = uf.cleaned_data["username"] password = uf.cleaned_data["password"] print username,password users = UserInfo.objects.fil

  • Hibernate对数据库删除、查找、更新操作实例代码

    本节继续hibernate对数据库的其他操作,删除.查询.修改. Hibernate对数据删除操作 删除User表中个一条数据,是需要更具User表的主键id值来删除的.首先根据id值向数据库中查询出来对应的对象.可以采用两种方式一是session的get方法,一个是session的load方法. Session的Get方法:调用这个方法会返回一个Object对象.然后我们对其强制转换.Useruser = (User)session.get(User.class," 402881e5441c0

  • jquery实现的用户注册表单提示操作效果代码分享

    jquery实现的用户注册表单提示操作效果代码分享

    本文实例讲述了jquery实现的用户注册表单提示操作效果.分享给大家供大家参考.具体如下: jQuery实现的用户注册表单上方弹窗提示文字特效源码,是一段不仅可以在输入的表单上方提示注意事项,同时也可以进行输入验证的代码,是一款非常实用的特效代码,值得大家学习. 运行效果图:                               -------------------查看效果 下载源码------------------- 小提示:浏览器中如果不能正常运行,可以尝试切换浏览模式. 为大家分

  • jquery 实现复选框的全选操作实例代码

    jquery 实现复选框的全选操作实例代码 最近做了个需求,需要实现列表复选框的全选/取消全选操作,由于之前对这块不是很了解,所以从网上查了一些资料,虽然有各种实现方法,但没找到直接可以套用的.自己琢磨了下,把功能实现,整理如下. 实现细节如有可改进的地方,不吝赐教. 首先是html部分的代码,这里有一个表格,表格里面有一些选项: <div id="list"> <table> <tr><td>选项1<input type=&quo

  • C# 操作Excel代码总结

    本文分享了c#操作Excel的相关代码,还是比较全面的,其实无外乎存取,增删改查等操作,参考下. 具体代码: //引用Microsoft.Office.Interop.Excel.dll文件 //添加using using Microsoft.Office.Interop.Excel; using Excel=Microsoft.Office.Interop.Excel; //设置程序运行语言 System.Globalization.CultureInfo CurrentCI = System

随机推荐