QTP中的DataTable操作(转)

(转自云层的个人空间)

近日在对记事本进行研究的时候发现如果需要自动填写一篇文章，我们需要反复使用

 Window("记事本").WinEditor("Edit").Type <输入内容>51Testing软件测试网2o m"hf'B a#v4N

(A&iq"@,o1F Z5s385329来填写具体的内容，而换行的处理我们又要使用51Testing软件测试网4Y0_ ^Ezi O_fX"bN

 Window("记事本").WinEditor("Edit").Type  micRuturn51Testing软件测试网v] @8g LY.T
P$DR

G A^ f|*z$o d(X385329在将输入内容参数化了后，我们怎么将整个文章自动换行进行输入呢?这里我们首先需要使用的是DataTable的指针51Testing软件测试网n;x.F#Ln6o*p^}0@

1.参数化输入内容

%c8_| C5_385329Window("记事本").WinEditor("Edit").Type DataTable("p_KeyboardInput", dtLocalSheet)

2.获得Datatable的记录数，从而确定需要读取的数据有多少51Testing软件测试网 i%dok g+^ njj"c

这里我们可以通过DataTable.GetRowCount的方法来获得对应dtLocalSheet的记录数

XdS SK2s7L;R^t3853293.判断是否需要进行换行

Nkc[ Mnj385329这里我使用换行符存放在Datatable中的方式，通过if语句进行判断

  If   DataTable("p_KeyboardInput", dtLocalSheet) = "micReturn" Then51Testing软件测试网?1Y
V!^-pX
U{Lu
  Window("记事本").WinEditor("Edit").Type micReturn51Testing软件测试网/C:{ Q4dM:v
 else51Testing软件测试网&ac7|9zw.|_
p
  Window("记事本").WinEditor("Edit").Type DataTable("p_KeyboardInput", dtLocalSheet)51Testing软件测试网4c6k0qz n9M}'^'R.j!}N
 End If51Testing软件测试网H9W$N!Rq sI
T

4.完成一行datatalbe的使用后，我们指针下移51Testing软件测试网 ^H4aH/[hc

DataTable.SetNextRow

5.通过循环完成对整个datatable的调用51Testing软件测试网`s/U ^q

(E0g iHD k3N385329For i=1 to DataTable.GetRowCount

Pi
l ms#H385329Next51Testing软件测试网"m(n4}N.?]w,a

kC#f[4fI4JWe-m385329最后注意设置该action的运行只进行一次哦，否则会反复运行将整个datatable的数据再运行一次