vbs操作txt文本文件常用方法与函数代码

'creat by 席飞剑(小席老师)

'操作文本文件，操作fso对象（文件对象操作）

函数代码

创建文件

dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.Close()
set f = nothing
set fso = nothing

打开并读文件

dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建
f.Skip(3) '将当前位置向后移三个字符
f.SkipLine() '将当前位置移动到下一行的第一个字符，注意：无参数
response.Write f.Read(3) '从当前位置向后读取三个字符，并将当前位置向后移三个字符
response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符（不读取换行符），并将当前位置移动到下一行的第一个字符，注意：无参数
response.Write f.ReadAll() '从当前位置向后读取，直到文件结束，并将当前位置移动到文件的最后
if f.atEndOfLine then
  response.Write("一行的结尾！")
end if
if f.atEndOfStream then
  response.Write("文件的结尾！")
end if
f.Close()
set f = nothing
set fso = nothing

打开并写文件

dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 2, false) '第二个参数 2 表示重写，如果是 8 表示追加
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.Close()
set f = nothing
set fso = nothing

判断文件是否存在

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists("C:\test.txt") then
  response.Write("目标文件存在")
else
  response.Write("目标文件不存在")
end if
set fso = nothing

移动文件

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.MoveFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing

复制文件

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.CopyFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing

删除文件

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\test.txt")
set fso = nothing

创建文件夹

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("C:\test") '目标文件夹的父文件夹必须存在
set fso = nothing

判断文件夹是否存在

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists("C:\Windows") then
  response.Write("目标文件夹存在")
else
  response.Write("目标文件夹不存在")
end if
set fso = nothing

删除文件夹

dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\test") '文件夹不必为空
set fso = nothing

这篇文章就介绍到这，更多的大家可以查看我们以前发布的关于vbs txt操作的相关文章。

赞 (0)

相关推荐

  • VBS实现将Excel表格保存为txt文本

    希望能够找到个能给excel表另存为TXT的VBS代码,虽然另存为可以选择,但还是需要直接VBS执行这一步另存为TXT格式的,应该如何写代码呢? 有装Excel的话,就会比较简单,下面的是通用的不装Office也可以运行的,如下: VBScript code: 复制代码 代码如下: Set oShell = CreateObject("Shell.Application") Set oDir = oShell.BrowseForFolder(0,"选择目录",0)

  • 用VBS将一篇txt后缀的内容保存为html格式

    do.vbs 复制代码 代码如下: 'BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments(0) Set fso=CreateObject("Scripting.FileSystemObject") Set htm=fso.CreateTextFile(txt&".htm",True) title=fso.GetFile(

  • VBS合并一个文件夹里的TXT的实现代码

    复制代码 代码如下: Const ForReading = 1 'VBS的这句不能少. dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject("Scripting.FileSystemObject") '创建FSO对象 jiuw = inputbox("请输入源文件夹所在的路径(含文件夹名称)","请输入多个TX

  • vbs解决处理TXT文本数据相关问题实现代码

    有个小问题,如下: 现有文本文件1.txt,内容如下: 数值_1出现频度12647 数值_2出现频度10000 数值_3出现频度12608 数值_4出现频度8712 数值_5出现频度10658 数值_6出现频度8472 数值_7出现频度11232 数值_8出现频度8648 数值_9出现频度9264 数值_10出现频度7192 数值_11出现频度7192 .... 大概有100行 要求把里面每行的数值放到变量中,然后输出成文本文件 2.txt 举例: 把第一行的12674,放到变量a1中 把第二行

  • TXT转HTM、HTML「TXT转网页」的vbs实现代码

    在众多文本编辑器中,Microsoft的Word是功能很强大的.况且XP PRO本身支持VBS调用Word文档对象,那么使用VBS是最好不过的了.思路如下:VBS打开Word,Word打开TXT,另存为网页,退出. 1. VBS调用Word.Application组件 如果电脑中安装了Word,那么用VBS打开Word其实很简单,如下: Set objWord = CreateObject("Word.Application") objWord.Visible = True 这样可以以

  • vbs实现的支持拖动的txt文本切割器

    SplitFile.vbs '/*=========================================================================    ' * Intro       .txt文本切割器,默认为8000个字符切为一个文件.支持拖动.    ' * FileName    SplitFile.vbs    ' * Author      yongfa365    ' * Version     v1.0    ' * MadeTime    20

  • 用vbs产生的若干个随机数并写入到一个.txt中的代码

    复制代码 代码如下: Set a=WScript.CreateObject("WScript.Shell") a.Run "notepad" '打开记事本 do Randomize x= Int((40 * Rnd) + 1) '产生一个1~40的随机数赋给X WScript.Sleep 1000 a.SendKeys x&"," '模拟键盘,输出x n=n+1 '累计器 if n=10 then wscript.quit '若累计器N为

  • 将HTML或txt文件转换为ASP输出的vbs代码

    使用方法:手工修改html文件的名称与想要生成的asp的文件名称,然后将下面的代码保存为1.vbs,跟1.html放同一个目录双击运行即可. 复制代码 代码如下: html = "1.html" asp = "1.asp" Set fso = CreateObject("Scripting.FileSystemObject") Set fhtml = fso.OpenTextFile(html, 1) Set fasp = fso.OpenTex

  • vbs操作txt文本文件常用方法与函数代码

    'creat by 席飞剑(小席老师) '操作文本文件,操作fso对象(文件对象操作) 函数代码 创建文件 dim fso, f set fso = server.CreateObject("Scripting.FileSystemObject") set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖 f.Write("写入内容") f.WriteLine(&quo

  • Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码

    读文件: 复制代码 代码如下: #!perlopen filetxt,"/path/a.txt";   #  filetxt为文件句柄,用于和文件a.txt建立链接.文件句柄可任意取名,但不要和Perl自带的几个文件句柄重名.print <filetxt>;                 #  此处print函数用于显示文件a.txt的内容.<>为取行操作符,<文件句柄>用于读取所链接文件的内容.close filetxt;            

  • VBS操作Excel常见方法

    dim oExcel,oWb,oSheet Set oExcel= CreateObject("Excel.Application") Set oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls") Set oSheet = oWb.Sheets("Sheet1") MsgBox oSheet.Range("B2").Value '#提取单元格B2内容 '..... 3.如果是XP系统,可

  • Python读取分割压缩TXT文本文件实例

    废话不多说,上代码看吧! ''' 为了避免截断中文字符 文件要求是 unicode 编码 txt文件另存为对话框下面有下拉框,可选存 储编码格式 ''' import os import struct #导入所需python模块方法 filename = str(raw_input("Please enter an old file name: ")) filenamepre = str(raw_input("Please enter an new file name pre

  • PHP读取txt文本文件并分页显示的方法

    本文实例讲述了PHP读取txt文本文件并分页显示的方法.分享给大家供大家参考.具体实现方法如下: 复制代码 代码如下: <?php     session_start();     if (empty($page)) {$page=1;}     if (isset($_GET['page'])==TRUE) {$page=$_GET['page']; } ?> <html> <head> <meta http-equiv="Content-Type&q

  • jQuery 常见操作实现方式和常用函数方法总结

    jQuery 常见操作实现方式 $("标签名") //取html元素 document.getElementsByTagName("") $("#ID") //取单个控件document.getElementById("") $("div #ID") //取某个控件中 控件 $("#ID #ID") // 通过控件ID取其中的控件 $("标签.class样式名") /

  • JS基于FileSystemObject创建一个指定路径的TXT文本文件

    JS基于FileSystemObject创建一个指定路径的TXT文本文件

    本文实例讲述了JS基于FileSystemObject创建一个指定路径的TXT文本文件.分享给大家供大家参考.具体如下: Js创建一个指定路径的TXT文本文件,创建一个新的new ActiveXObject对象,使用这个对象的CreateTextFile方法来创建一个指定路径的TXT文本文件,简单吧? 在IE浏览器上运行该实例会有对应的安全提示,选择"允许阻止的内容",使程序正常运行即可.如下图所示: 文本文件创建成功后提示如下: 若文本文件已存在,则有如下提示: 具体代码如下: &l

  • PHP删除非空目录的函数代码小结

    有了这个小程序,PHPer就不用手动进行删除计算机上的目录文件了,在练习PHP目录文件操作时就可以用这个函数,在这个基础上还可以增加浏览文件夹目录,然后进行删除. 代码一: 复制代码 代码如下: <?php function d_rmdir($dirname) {   //删除非空目录 if(!is_dir($dirname)) { return false; } $handle = @opendir($dirname); while(($file = @readdir($handle)) !=

  • python方法生成txt标签文件的实例代码

    1.如果想要利用代码(不论是python.c++.亦或是matlab)实现生成标签文件,首先,也是灰常重要的一件事就是你的图片集一定要是有规律的命名.数字字母顺序排开.这一点非常重要,相关重命名方法请自行百度或请教大牛. 2.如图为博主的图片集.(注意命名规律) 博主只分为猫和鸟两类. 3.看代码. 在caffe根目录下创建一个我们的工程目录my-caffe-project 创建并编辑create_db.py文件,使用如下指令: vim create_db.py 然后,代码内容就是我们的重点了.

  • jquery操作checkbox的常用方法总结【附测试源码下载】

    本文实例讲述了jquery操作checkbox的常用方法.分享给大家供大家参考,具体如下: 做系统的过程中,与checkbox 复选框打交道,是难免的,而且在每个系统中,简直是必不可少的一道菜,通常的操作有一下几种: 1.用jquery 全部选择checkbox 2.用jquery 全部取消checkbox 3.用jquery 实现checkbox 反选 4.用jquery 获取所有已选择checkbox的值. 现在将这些常用的操作总结在一个例子中,方便以后查询,不愿意看代码的,也可以下载源码运

随机推荐