关于Rational的两段代码

1.使用Robot读取Treeview节点内容

使用robot的Inspector，抓取treeview的时候，有contents属性，里面就包含了treeview的节点内容，可惜的是，SQAGetProperty不支持读取contents，所以只能使用其它的方法。我下面的代码读取的是Rational Test Samples中ClassicsC中的treeview内容，并保存到一个文件中。

tempfile="C:\treeview.txt"

Open tempfile For Output As #1 '生成一个treeview文本

Window SetContext, "Caption=Classics Online", "" '设置ClassicsC为焦点窗体

result1=SQAGetProperty("Type=TreeView;Name=treMain","Nodes.Count",Size) '取treeview的数目

for i = 1 to cint(size)

teste = "Nodes(" & cstr(i) & ").Text" '取各个条目的内容

result2=SqaGetProperty("Type=TreeView;Name=treMain", teste,a)

Write #1,a

next i

close #1

2.在ClearQuest中读取特定组的用户

在CQ中，有的时候，需要显示特定的用户，比如指定修改的人员。这样比较好的方法是从特定的组中读取用户。这个我很早就想实现，但一直都没做到。昨天有人给我发短消息，询问一个需要用到此技术的问题。于是我下定决心解决这个问题，用了3个小时，终于明白怎么回事了。CQ的帮助做的实在很烂，在CQ中调试代码也是一样艰辛的过程，好在我终于成功了。

新建一个字段Programmer，在Choice List中选择BASIC编码，在Forms中添加Programmer字段。

在Choice List中编写如下代码：

set adminSession = CreateObject("ClearQuest.AdminSession")

adminSession.Logon "admin", "password", "ss" '管理员用户名，密码和Maintenance Tool中的Schema名称。

set GroupObj = adminSession.GetGroup("Mygroups") '取MyGroup组的用户

set UserObj=GroupObj.Users

numUsers = UserObj.count

for i=0 to numUsers-1

set Progammer= UserObj.Item(i)

ProgammerName = Progammer.Name

choices.additem ProgammerName

next i

使用同样的方法，可以取到比如所有Group的名字等。