qtp 文本文件的读取

文本文件的读取
^8tdH3K1B*a6xi(a0Option Explicit

Const ForReading = 151Testing软件测试网gy-ebph

Const ForWritting = 2

Const ForAppending = 851Testing软件测试网+|n9s}xg

Dim fso,file,msg51Testing软件测试网E}R0H.d

f+F#] q8jF0Set fso=CreateObject("Scripting.FileSystemObject")51Testing软件测试网!|q4D.X[9|r2m

i_&G#q.K
B,ED0Set file=fso.OpenTextFile("d:\a.txt",ForReading,True)

Do While Not file.AtEndOfStream51Testing软件测试网kBtvhQn

msg = file.ReadLine

MsgBox msg51Testing软件测试网q/A~#vS/J]a;F

SejSs kT7{3Q0Loop51Testing软件测试网3M LKq0B%K4n

$j9t^4?'| {/u0file.Close

Set 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软件测试网2r
CR O!GV$H

L_8C3W]ab!F0第二步：使用file对象对打开的文件进行操作，例子中是对文件的读取。读取通过file对象的一个方法ReadLine来实现。

)[k`O!q wUF A0第三步：读取完毕，关闭文件

第四步：释放file对象和fso对象51Testing软件测试网7G/lY&S*S;O6UU F

-@ L)cV P,`#~5Yu0File还有一些其它的方法，如Read、ReadAll等

8zk@J.kXF;Y0b#S ir0文本文件的写入51Testing软件测试网 Wic J&t7W\
t
Option Explicit

OR r!h:i i+rh5V%e [0Const ForReading = 151Testing软件测试网b]"N7].f2| c

Const ForWritting = 2

[N_#}@0Const ForAppending = 851Testing软件测试网#[5MCp7? Mq a p U

Dim fso,file,msg

Set fso=CreateObject("Scripting.FileSystemObject")

v e(h"U{N Y |0Set file=fso.OpenTextFile("d:\a.txt",ForWritting,True)51Testing软件测试网'@@(\ @x

File.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

s7S%gr#`x0Set file=Nothing51Testing软件测试网|"x
QSN&O\

Set fso=Nothing51Testing软件测试网5Cu0}qD;t h"j

5d f'uppkf7S0文件写入的步骤跟读取是一样的，唯一的区别是它们打开文件的方式不同。一个是以读的方式打开，另一个是以写的方式，这通过OpenTextFile方法的参数实现。OpenTextFile方法的第二个参数是一个常量值：1、2、8，1是ForReading的，2是ForWritting的，3是ForAppending的追加方式。51Testing软件测试网3l4rpSIZ p

Excel文件的读写51Testing软件测试网3N&??~v:M1[
 

?`1My9f0Option Explicit51Testing软件测试网
F3U Dp8h)s8y#t4X

"I]8~-O4QA0Dim xlApp,xlFile,xlSheet,xlSheet2

-Udt E)S fQ1I `%R4S0Dim iRowCount,iLoop,jLoop,numAdd(4),iColumnCount,record

9a Ce)K q [~0Set xlApp=CreateObject("Excel.Application")51Testing软件测试网
_1e`i2ze g

Set xlFile=xlApp.Workbooks.Open("D:\data.xls")51Testing软件测试网%H+eJ\%B'o%n[

1U"p6Oy
No0Set xlSheet=xlFile.Sheets("Sheet1")

b.}*Irn
C+bq0Set xlSheet2=xlFile.Sheets("Sheet2")51Testing软件测试网Ds
I$sD"U

8M'aKPLf7`0iRowCount=xlSheet.usedRange.Rows.Count51Testing软件测试网e[m0v2p](Z
D

iColumnCount=xlSheet.usedRange.Columns.Count

 51Testing软件测试网f6_|.kT

|vr4p+Qx9_6jG0For iLoop = 1 To iRowCount

       For jLoop = 1 To iColumnCount

3l)Td:t}1T:eh0              numAdd(jLoop) = xlSheet.Cells(iLoop,jLoop)51Testing软件测试网8RN"F~Gq^ D-V?

.L ih'sh0              'MsgBox numAdd(jLoop)

              xlSheet2.Cells(iLoop,jLoop)=numAdd(jLoop)

k$\#}An,?e+v0             51Testing软件测试网1nVF8J8Dv#`&wZ6]

[)[;{:^\ \9Z0              'MsgBox xlSheet2.Cells(iLoop,jLoop)

V@9t'dY:g0       Next51Testing软件测试网'bOX}$\X1h

       record = Join(numAdd," ")51Testing软件测试网 a,j(`*VJ3ppF

       MsgBox record

Next

 51Testing软件测试网7RMJ*`"OK

xlFile.Save51Testing软件测试网uQ~H^t%V

Y S,V5u,{'f S`0xlFile.Close51Testing软件测试网 HvL0qaY#B

xlApp.Quit

Set xlSheet = Nothing

?'[4?9[? }3m0Set xlSheet2 = Nothing

Set xlFile = Nothing51Testing软件测试网rvM'i1H2N"@q|

Set xlApp = Nothing

第一步：Excel的三层概念：Application、ExcelFile、Sheet，因此需要创建三个对象来实现对Excel文件的操作。首先创建一个Excel.Application对象xlApp，然后通过xlApp打开一个Excel文件，并返回一个对象给xlFile，最后通过xlFile的Sheets属性来操作某一个sheet。51Testing软件测试网6tB,E rl |

%JXv$J2D3OZC0第二步：通过sheet对象的cells子对象来操作某一sheet中的区域，sheet对象可以通过usedRange属性来识别此文件已经使用的cells。通过其中的count方法来获取具体值。51Testing软件测试网&b x7r;A:LA-@.l

第三步：操作完成，保存文件、关闭文件、退出程序

第四步：释放对象

数据库的读写51Testing软件测试网a_r5? N?:l&rp
Dim Cnn, Rst, strCnn51Testing软件测试网{G+qL6gwf1sJ4p

Set Cnn = CreateObject( "ADODB.Connection“ )51Testing软件测试网ZL'\-BK o~
s.I%s

K8GMCHv(ef0Set Rst = CreateObject( "ADODB.Recordset“ )

strCnn= "Provider=Microsoft.Jet.OLEDB.4.0.1;Data Source=C:\qtp_file\cal.mdb; Persist Security Info=False"51Testing软件测试网 eV*X t^(^'f8J z

Cnn.Open strCnn51Testing软件测试网Y+R2xnpc

]5jJ(lx8DV0Rst.Open "Select * from student", Cnn51Testing软件测试网Gm%RKrh

n+I FB5}0Rst.MoveFirst

Do While Not Rst.EOF51Testing软件测试网 \]b3r$W8H\[,y

MsgBox Trim(Rst.Fields("name"))

Rst.MoveNext

2t}sHFpn0Loop

Rst.Close

dJ~z^-io].i0Cnn.Close51Testing软件测试网.i%XS
v#sP.w{Q~~ t

P,~ U:U2Z0Set Rst = Nothing

Set Cnn = Nothing51Testing软件测试网&g(N,R:v9vM9F

*jzetsn3A01）  创建两个对象Connection对象和RecordSet对象和一个字符串连接串51Testing软件测试网#tBw?2so7d

2）  使用Connection通过连接串连接数据库51Testing软件测试网sn-_#{N

|5@!N!K y1L03）  将数据库操作的结果集保存到RecordSet对象中51Testing软件测试网J8l1p@.k

9g](o d U'J+CD9V"q04）  对于结果集中的数据可以通过RecordSet对象的方法来进行操作，Move系列方法是移动游标到相应位置，Fields属性来获取相应的字段值。

5）  关闭结果集、关闭数据库连接51Testing软件测试网t)|kKhSr

3i%u k4L6zQGrO06）  释放对象51Testing软件测试网B'~G"S\3?e

其它的数据库文件的操作都是类似的，只要通过相应的字符串连接串进行连接。51Testing软件测试网J-w5vo:XNNV

iFCduBV0xml文件的读写51Testing软件测试网
i$~[s:ekuK(Byk
Dim  xmlDoc,  xmlRoot,  ChildItem,  msg

Set  xmlDoc = CreateObject ("Microsoft.XMLDOM")51Testing软件测试网Qxf*}WJm*N

/^l I6n p4E|o:\0xmlDoc.Load "C:\qtp_file\addressbook.xml"  '使用load方法来加载xml文档，建立dom树和xml文档之间的关联51Testing软件测试网
l7sjBU#B^`S

^5[/M(I*Q9@-I$Y0 

Set xmlRoot = xmlDoc.documentElement ' 获取XML文档的根元素节点

For Each ChildItem In  xmlRoot.childNodes 51Testing软件测试网F"x2sdkMN Db

]/gO*I&pv6T6G Br0       MsgBox "当前节点是：" & ChildItem.baseName '显示当前节点的名称

M6t ^ N-U&s0          Set node1=ChildItem.childNodes.item(0)

N@1k.y-b.?;J0          Set node2=ChildItem.childNodes.item(1)51Testing软件测试网ry]X2`#u P1c

R3H
q5|B%G)u9x0          Set node3=ChildItem.childNodes.item(2)

5N u1I!C*p1g@ mOo0          MsgBox node1.baseName51Testing软件测试网_}5O+iHPiZlu

          MsgBox node2.baseName51Testing软件测试网'?$e6bWK}M

V$NG u3q+z_A]-I[0          MsgBox node3.baseName51Testing软件测试网_W9FH;~"h&u c%sS

YB:T2lc7Q}0          MsgBox node1.firstChild.nodeValue

(ug+A9rGgQ0          MsgBox node2.firstChild.nodeValue

          MsgBox node3.firstChild.nodeValue

Next51Testing软件测试网Q"i"y&qU,a

1）  同样通过创建XmlDom对象，使用对象通过load方法来关联xml文件

2）  创建xmlRoot对象来获取xml文件的根元素51Testing软件测试网+S
GI5p;Y ? bl%oa]

fm(E"[)_03）  通过对xmlRoot的子节点来操作整个文件51Testing软件测试网&},v\f~([

l&Ik8^v7L'l l04）  当然，最后结束操作要释放对象