qtp 文本文件的读取

文本文件的读取
W"b~/QX1G0Option Explicit

(S6K7j'uT3Lx0Const ForReading = 151Testing软件测试网3t5GJ r-Z$jK*g(M

qIr#ug4Uy0Const ForWritting = 2

Const ForAppending = 8

Dim fso,file,msg

Set fso=CreateObject("Scripting.FileSystemObject")51Testing软件测试网H8|!r&K!P{'y8B2l^N

s^9p7l%N)B'm%g9r0Set file=fso.OpenTextFile("d:\a.txt",ForReading,True)

3Tb:_1P*KW[*g0Do While Not file.AtEndOfStream

msg = file.ReadLine51Testing软件测试网]G N\ S'c1\q I

MsgBox msg

3\
f ~b0C4J O `0Loop

file.Close

:D9l/l[\t_ cOv0Set file=Nothing51Testing软件测试网Z!cB VoDV1q

Set fso=Nothing51Testing软件测试网7iSh)D$C2gyf
^H5Zp

第一步：首先创建两个对象，一个FileSystemObject对象fso，然后用fso对象的opentextfile方法去打开一个文件。并返回一个textStream对象给file。51Testing软件测试网$ePvQCEqy7a,H

U%l?#J vwBDj0第二步：使用file对象对打开的文件进行操作，例子中是对文件的读取。读取通过file对象的一个方法ReadLine来实现。

第三步：读取完毕，关闭文件

o:UO(}Jb,t0第四步：释放file对象和fso对象

V#K+O)\!\-a Hz|0File还有一些其它的方法，如Read、ReadAll等

文本文件的写入
/cD([.p0x0Option Explicit

1eMJg[~C`'W0Const ForReading = 1

fLr0V3oa+R9M0Const ForWritting = 251Testing软件测试网*Ym
}4V J#r

Const ForAppending = 8

Dim fso,file,msg51Testing软件测试网.sHRJ0nd:Zl

Set fso=CreateObject("Scripting.FileSystemObject")

Set file=fso.OpenTextFile("d:\a.txt",ForWritting,True)

File.WriteLine “hello world”

F^h+K!x#z(DW0File.WriteLine “this is a writing file case”

}/}:zg$`xUF0file.Close

Mkl%[ x#~K"K8T0Set file=Nothing51Testing软件测试网]9{ K^E#aSY.I.T]

Set fso=Nothing

文件写入的步骤跟读取是一样的，唯一的区别是它们打开文件的方式不同。一个是以读的方式打开，另一个是以写的方式，这通过OpenTextFile方法的参数实现。OpenTextFile方法的第二个参数是一个常量值：1、2、8，1是ForReading的，2是ForWritting的，3是ForAppending的追加方式。51Testing软件测试网!t4i#C*o b%t:M

Excel文件的读写51Testing软件测试网r1s)g*U*PO3f
 51Testing软件测试网o9m X#jx
KwQv

Option Explicit

Dim xlApp,xlFile,xlSheet,xlSheet2

7Ov:V~wK#a0Dim iRowCount,iLoop,jLoop,numAdd(4),iColumnCount,record51Testing软件测试网"Z.x0D/\J'bc7R%l

Set xlApp=CreateObject("Excel.Application")

Set xlFile=xlApp.Workbooks.Open("D:\data.xls")51Testing软件测试网
DEj6WKiE.K

~d)@^$}3X!C0Set xlSheet=xlFile.Sheets("Sheet1")

E:G#v0V
rRC+s0Set xlSheet2=xlFile.Sheets("Sheet2")

tq6T$xH8t3t0 51Testing软件测试网(y0X@K ZQ

iRowCount=xlSheet.usedRange.Rows.Count51Testing软件测试网qN8_U9TU/\Q

#H8Q d f2Hf[N%r0iColumnCount=xlSheet.usedRange.Columns.Count51Testing软件测试网Z{b-npy0v+P

swKQK7NPy:d
H0 51Testing软件测试网%C2y/^XcYo2M3A

For iLoop = 1 To iRowCount

       For jLoop = 1 To iColumnCount

              numAdd(jLoop) = xlSheet.Cells(iLoop,jLoop)51Testing软件测试网J
ad X&h1['VG7h

7Ay6D&YKL$D"Td `0              'MsgBox numAdd(jLoop)

lcd#g OpW0              xlSheet2.Cells(iLoop,jLoop)=numAdd(jLoop)51Testing软件测试网/k5]{n+F1T'~

             51Testing软件测试网X5mFt0|!M

_G~c)` b jz*i!D0              'MsgBox xlSheet2.Cells(iLoop,jLoop)51Testing软件测试网xo5E9H(X'}

       Next

       record = Join(numAdd," ")51Testing软件测试网0?7C(s#G8zN$S

       MsgBox record

Next51Testing软件测试网y6h^A g&e1b

A3J@Br GO0 

4ux}'Z3QN$A v0xlFile.Save51Testing软件测试网*nuq1~3l9B_

xlFile.Close51Testing软件测试网z T#f?R ?9S$p

r)nK:d+N+CF'M Y0xlApp.Quit51Testing软件测试网-{xzc!nU?

,_%{8_'w:|K+k R y0Set xlSheet = Nothing51Testing软件测试网mW;cc/~(F

Set xlSheet2 = Nothing51Testing软件测试网6fRG(y"Q h

%jq$zVZ4D(U6f0Set xlFile = Nothing

Set xlApp = Nothing

9?,cJu'cY'gs4r-lr0第一步：Excel的三层概念：Application、ExcelFile、Sheet，因此需要创建三个对象来实现对Excel文件的操作。首先创建一个Excel.Application对象xlApp，然后通过xlApp打开一个Excel文件，并返回一个对象给xlFile，最后通过xlFile的Sheets属性来操作某一个sheet。

第二步：通过sheet对象的cells子对象来操作某一sheet中的区域，sheet对象可以通过usedRange属性来识别此文件已经使用的cells。通过其中的count方法来获取具体值。

J!hAI6t9_nd2J0第三步：操作完成，保存文件、关闭文件、退出程序51Testing软件测试网&wlj2}k[#{A

第四步：释放对象

数据库的读写51Testing软件测试网 t\m:S`#TQ
Dim Cnn, Rst, strCnn51Testing软件测试网H7m p]pM

Set Cnn = CreateObject( "ADODB.Connection“ )

Set Rst = CreateObject( "ADODB.Recordset“ )

Bt3H,nlmC2n%G0strCnn= "Provider=Microsoft.Jet.OLEDB.4.0.1;Data Source=C:\qtp_file\cal.mdb; Persist Security Info=False"

c N
Uk]{*mx0Cnn.Open strCnn51Testing软件测试网;_TW2Z;k
TW

Rst.Open "Select * from student", Cnn51Testing软件测试网$p+`hPXY9m&m

jy)wY` B%j0Rst.MoveFirst

Do While Not Rst.EOF

1lx4F,B}RW0MsgBox Trim(Rst.Fields("name"))

Rst.MoveNext51Testing软件测试网5i
s2gJM2[y
e

Loop51Testing软件测试网 I2@@YV0U2w

Rst.Close51Testing软件测试网-_+K+^z!SX

-ji0Gv k o+I0Cnn.Close51Testing软件测试网.},tX%J&zyS[

Set Rst = Nothing

Set Cnn = Nothing

"?U;fx:~ ]01）  创建两个对象Connection对象和RecordSet对象和一个字符串连接串

(g/E%[3n(r}Da02）  使用Connection通过连接串连接数据库

3）  将数据库操作的结果集保存到RecordSet对象中

4）  对于结果集中的数据可以通过RecordSet对象的方法来进行操作，Move系列方法是移动游标到相应位置，Fields属性来获取相应的字段值。

x
^|5v~6{b05）  关闭结果集、关闭数据库连接51Testing软件测试网4rMxYRnF

6）  释放对象51Testing软件测试网\QxU,s6F*g

b8qU.sD!b0其它的数据库文件的操作都是类似的，只要通过相应的字符串连接串进行连接。

\*V:S9@\TO,C0~0xml文件的读写51Testing软件测试网 L.K4t#q'~y\DL
Dim  xmlDoc,  xmlRoot,  ChildItem,  msg

"_1q;l@{|6V6~I~0Set  xmlDoc = CreateObject ("Microsoft.XMLDOM")

0Hv!~x_)OI L)?"eb0xmlDoc.Load "C:\qtp_file\addressbook.xml"  '使用load方法来加载xml文档，建立dom树和xml文档之间的关联51Testing软件测试网0uZ.U'YbV#a

 51Testing软件测试网}pV-A(n%D'?cEno

Set xmlRoot = xmlDoc.documentElement ' 获取XML文档的根元素节点51Testing软件测试网u"e.D@3J

-O_6Qq9x+~q0 

i+l&sf~$h
{jC0For Each ChildItem In  xmlRoot.childNodes 

       MsgBox "当前节点是：" & ChildItem.baseName '显示当前节点的名称51Testing软件测试网#U!PbCEtVJUB

cXpW4{?cv0          Set node1=ChildItem.childNodes.item(0)51Testing软件测试网.hlXK"D+wf ZL-q

          Set node2=ChildItem.childNodes.item(1)51Testing软件测试网9z&n`i.BD"?

          Set node3=ChildItem.childNodes.item(2)51Testing软件测试网H4zs/zsJ,\}

          MsgBox node1.baseName

TS:w kN
M-?0          MsgBox node2.baseName51Testing软件测试网2|*~ o.j#q

          MsgBox node3.baseName51Testing软件测试网+@,{c6yu:g5V+X

          MsgBox node1.firstChild.nodeValue

          MsgBox node2.firstChild.nodeValue51Testing软件测试网t!TR1V~,it2Q2?

          MsgBox node3.firstChild.nodeValue51Testing软件测试网S(D^1im^

Q"\W O{s!si z0Next51Testing软件测试网:rZ+Nf[8jcpP

i5G'e{O%Xm01）  同样通过创建XmlDom对象，使用对象通过load方法来关联xml文件51Testing软件测试网HD\$u [~ N9o/H+H

w0n|#~i?7n aB02）  创建xmlRoot对象来获取xml文件的根元素51Testing软件测试网]-c7g\E Q

NnY]C _,nR03）  通过对xmlRoot的子节点来操作整个文件

G~fFz#vU04）  当然，最后结束操作要释放对象