Vbscript 脚本编程3 关于文件的读写

原创 2004年07月09日 14:41:00

Vbscript 脚本编程3     关于文件的读写

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

By <?xml:namespace prefix = st1 ns = "Tencent" />sssa2000

<?xml:namespace prefix = st2 ns = "urn:schemas-microsoft-com:office:smarttags" />7/9/2004

 

使用vbscript来读写文件,十分的方便,废话少说,切入正题。

 

1、打开文件

使用opentextfile方法

set fs =createobject(“scripting.filesystemobject”)

set ts=fs.opentextfile(“c:/1.txt”,1,true)

注意这里需要填入文件的完整路径,后面一个参数为访问模式

1forreading

2forwriting

8appending

第三个参数指定如果指定文件不存在,是否创建。

 

2、读取文件

读取文件的方法有三个

read(x)读取x个字符

readline读取一行

readall全部读取

例如:

set fs =createobject(“scripting.filesystemobject”)

set ts=fs.opentextfile(“c:/1.txt”,1,true)

value=ts.read(20)

line=ts.readline

contents=ts.readall

 

这里还要介绍几个指针变量:

textstream对象的atendofstream属性。当处于文件结尾的时候这个属性返回true.我们可以用循环检测又没有到达文件末尾。例如:

set fs =createobject(“scripting.filesystemobject”)

set f=fs.getfile(“c:/1.txt”,1,false)

set ts=f.openastextstream(1,0)

do while ts.atendofstream<>true

f.read(1)

loop

 

还有一个属性,atendofline,如果已经到了行末尾,这个属性返回true.

Textstream对象还有两个有用的属性,columnline.

在打开一个文件后,行和列指针都被设置为1

看一个综合的例子吧:

*******************************read.vbs******************************

set fs =createobject(“scripting.filesystemobject”)

set f=fs.opentextfile(“c:/1.txt”,1,true)

do while f.atendofstream<>true

data=””

for a=1 to 5

if f.atendofstream<>true then

data=data+f.readline

end if

next

dataset=dataset+1

wscript.echo “data set” &dataset & ”:” & data

loop

 

最后说一下在文件中跳行

skip(x)  跳过x个字符

skipline  跳过一行

用法也很简单 和前面一样,就不说了。

 

 

3、写文件

可以forwritingforappending方式来写

写有3各方法:

write(x)

writeline

writeblanklines(n) 写入n个空行

 

来看一个例子:

*****************************************************************

data=”hello, I like script programing”

set fs =createobject(“scripting.filesystemobject”)

if (fs.fileexists(“c:/2.txt”)) then

set f =fs.opentextfile(“c:/2.txt”,8)

f.write data

f.writeline data

f.close

else

set f=fs.opentextfile(“c:/2.txt”,2, true)

f.writeblanklines 2

f.write data

f.close

end if

注意 写完文件以后一定要关闭!!!!!!!  还有就是,如果要读文件又要写文件,读完之后一定也要记得关闭,这样才能以写的方式打开。

 

好了 关于文件都说完了,实际运用中还有可能牵扯到关于字符串的操作。

后面的1章里面,我打算写一点驱动器和注册表的内容,脚本编程内容也很丰富,我也只讲关于黑客方面的。今天好累啊,还有就是请大家不要在论坛灌水了,我每天都删贴,这样也不好,论坛是大家的,我每天写一些原创的东西也就是为了让我们的论坛和别的论坛有些不同,我一个人力量有限,还要靠大家的力量,我打算在论坛上找几个人一论坛的名义一起编个软件,这样我们的论坛也算有点名声。

很晚了,休息了。

VBScript的读写文件操作

第一步:OpenTextFile() 或者OpenAsTextStream() 第二步:Read 方法 或者ReadAll 方法 或者ReadLine 方法 Write 方法 W...
  • u013569416
  • u013569416
  • 2014年11月23日 17:18
  • 1620

利用SecureCRT的VBScript进行自动化控制

在SecureCRT中使用VBSCRIPT脚本,确实能够提高我们的工作效率,并且可以实现完全的自动化。 SecureCRT给我们提供了很好的平台——脚本工具制作和运行。下面就SecureCRT工...
  • pfm685757
  • pfm685757
  • 2017年03月21日 20:57
  • 1266

VBScript例子程序

VBS基本语法介绍W3CSchool工作中遇到的问题,项目组长给了一个Excel,让分析其中包含的字符含义,由于每页条数太多,导致看不出来要分析的字符在一长串字符中的位置。于是想把其中要注意的字符标注...
  • slaory
  • slaory
  • 2015年07月08日 20:54
  • 156

用VBSCRIPT自动输入登录信息

几日前,朋友问我能不能帮他做一个能自动输入登录信息功能的程序。了解到,他的那个程序是运行在一款叫做“夜神安卓模拟器”(OUT了,第一次知道还有这种神器)环境下的360股票APP。对于这款模拟器我不甚了...
  • cg_i
  • cg_i
  • 2016年08月19日 22:07
  • 1487

推荐一个比较好的VBS编辑器

QTP 本身的IDE环境, 有诸多缺陷。所以,一般中级以上的自动化测试工程师都会采用外部其他编辑器来编辑VBS脚本。通常情况下,一般都 notepad++。 但是,notepad++也是有很多不足之处...
  • blizzardlyk
  • blizzardlyk
  • 2013年02月06日 15:31
  • 12416

Hdfs 的读写操作

说明:本测试使用maven管理项目结构,测试前,请把 core-site.xml 拷贝到resource目录package hadoop.test; import java.io.BufferedR...
  • dehu_zhou
  • dehu_zhou
  • 2016年10月11日 10:26
  • 1292

JAVA调用vbScript脚本取得计算机信息小例子

一下的vbs文件,可以
  • dream_broken
  • dream_broken
  • 2014年06月04日 15:03
  • 1433

Windows内核编程基础篇之文件读/写操作

打开文件后,最重要是的操作在是对文件的读/写。读写的方法是对称的知识参数输入与输出方向不同。读取文件内容一般用ZwReadFile,写文件一般用ZwWriteFile。        先看看 ZwRe...
  • HK_5788
  • HK_5788
  • 2015年09月02日 13:48
  • 1290

VBScript中SendKeys与项目结合的妙用

VBScript中的SendKeys命令模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:object.SendKeys string。其中,“objec...
  • WZ18810463869
  • WZ18810463869
  • 2016年02月29日 21:09
  • 484

脚本加密与解密

此代码可以进行Encode加解密,比如下面这样的asp代码: 98062--脚本天地 ...
  • apollokk
  • apollokk
  • 2015年09月15日 17:44
  • 715
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Vbscript 脚本编程3 关于文件的读写
举报原因:
原因补充:

(最多只允许输入30个字)