qtp 文本文件的读取
上一篇 / 下一篇 2009-07-05 16:24:28 / 个人分类:QTP
- 文件版本: V1.0
- 开发商: 本站原创
- 文件来源: 本地
- 界面语言: 简体中文
- 授权方式: 免费
- 运行平台: Win9X/Win2000/WinXP
文本文件的读取
^8tdH3K1B*a6xi(a0Option Explicit
Const ForReading = 151Testing软件测试网gy-ebph
51Testing软件测试网2\)s7vQq grU+L.i!D?(FConst ForWritting = 2
sdF*_+c Wl\ @ Z Z051Testing软件测试网9~n7t)p5`'rR%i"UConst ForAppending = 851Testing软件测试网+|n9s}xg
51Testing软件测试网)|L*m&@-}VE:ItiDim fso,file,msg51Testing软件测试网E}R0H.d
f+F#] q8jF0Set fso=CreateObject("Scripting.FileSystemObject")51Testing软件测试网!|q4D.X[9|r2m
i_&G#q.KB,ED0Set file=fso.OpenTextFile("d:\a.txt",ForReading,True)
4Q+Ve6fXHsS)q7{051Testing软件测试网zIiX2I,i!{?gWDo While Not file.AtEndOfStream51Testing软件测试网kB tvhQn
51Testing软件测试网%Cu@tjq1g8]1X-Rmsg = file.ReadLine
U Zm4ybB051Testing软件测试网 SOHE1Z} CMsgBox msg51Testing软件测试网q/A~#vS/J]a;F
SejSs kT7{3Q0Loop51Testing软件测试网3M LKq0B%K4n
$j9t ^4?'| {/u0file.Close
u#k7a'X2A xE051Testing软件测试网%Of q"x;A*ISet file=Nothing51Testing软件测试网x1GN'OB*pC
?$z-K g0Y},W{:@0Set fso=Nothing51Testing软件测试网j,f2NB0g A&x h7m
C\ {[B0第一步:首先创建两个对象,一个FileSystemObject对象fso,然后用fso对象的opentextfile方法去打开一个文件。并返回一个textStream对象给file。51Testing软件测试网2rCR O!GV$H
L_8C3W]ab!F0第二步:使用file对象对打开的文件进行操作,例子中是对文件的读取。读取通过file对象的一个方法ReadLine来实现。
*Kygct0)[k`O!q wU F A0第三步:读取完毕,关闭文件
+w'j.kvVX?x051Testing软件测试网"r\T(}8O8]ML+A第四步:释放file对象和fso对象51Testing软件测试网7G/lY&S*S;O6UU F
-@ L)cV P,`#~5Yu0File还有一些其它的方法,如Read、ReadAll等
*ha0K#|1T6h'T.`08zk@J.kXF;Y0b#S
ir0文本文件的写入51Testing软件测试网
Wi c J&t7W\t
Option Explicit
OR r!h:i i+rh5V%e [0Const ForReading = 151Testing软件测试网b]"N7].f2| c
51Testing软件测试网MxP)Zod,HConst ForWritting = 2
5?SUTW:[0[N_#}@0Const ForAppending = 851Testing软件测试网#[5M Cp7? M q a p U
51Testing软件测试网.I,A5c*edsMDim fso,file,msg
&z"qZ'wV E051Testing软件测试网HI+m[H{P:cSet fso=CreateObject("Scripting.FileSystemObject")
#z1Gk%J`r(Z$kHx0v e(h"U{N Y |0Set file=fso.OpenTextFile("d:\a.txt",ForWritting,True)51Testing软件测试网'@@(\ @x
51Testing软件测试网6f0x j:HxzFile.WriteLine “hello world”51Testing软件测试网4I]O*I5^Hs3z%u
E:mqLg${#_b;{4]0File.WriteLine “this is a writing file case”51Testing软件测试网 O!Nv1`$c[P?
to5@&` Ce[L0file.Close
(Baxd sm%K0s7S%gr#`x0Set file=Nothing51Testing软件测试网|"xQSN&O\
51Testing软件测试网.qy7|*v9bgqR@td~+ASet fso=Nothing51Testing软件测试网5Cu0}qD;t h"j
5d f'up pkf7S0文件写入的步骤跟读取是一样的,唯一的区别是它们打开文件的方式不同。一个是以读的方式打开,另一个是以写的方式,这通过OpenTextFile方法的参数实现。OpenTextFile方法的第二个参数是一个常量值:1、2、8,1是ForReading的,2是ForWritting的,3是ForAppending的追加方式。51Testing软件测试网3l4rpSIZ p
51Testing软件测试网9v \]6A(Vl X,HMExcel文件的读写51Testing软件测试网3N&??~v:M1[