自己完成的代码，请喜欢QTP的一起讨论

以下代码是鄙人在建行北开中心时就某一现金平台完成的代码，使用的是描述性编程，因此基本无对象库所言；

代码的目的是要剥离银行网页中类似“6123********7890”中的星号，并按照模糊查询匹配账号值的选取，代码如下：

'*******************************************************
'以下内容为变量定义
'*******************************************************
Dim InitArray        '定义动态数组存储原WebList的所有项
Dim SecondArray                '定义拆分后WebList项
Dim ArrayCount                '定义变量保存WebList的项数
Dim itemstr                'List中的各项
Dim CheckListIndexNum        '返回匹配字符串所在项的Index值
Dim ExcStarResult        '去除*号以后的账户信息结果

'*******************************************************
'以下内容为实际脚本代码
'*******************************************************
Set ObjWebList = Browser("creationtime:=0").Page("creationtime:=0").WebList("html id:=select_acc","name:=select")
ArrayCount = Browser("creationtime:=0").Page("creationtime:=0").WebList("html id:=select_acc","name:=select").GetROProperty("items count")

'ExcStarResult = ArrayEquel(ArrayCount,"2222","*****") '调用ArrayEquel()函数
'print ExcStarResult '打印返回值

Browser("creationtime:=0").Page("creationtime:=0").WebList("html id:=select_acc","name:=select").Select SelectedListByIndex(ArrayCount,"400101")

'*******************************************************
'函数名称：SelectedListByIndex()
'函数描述：该函数用以去除账号信息中包含的特殊字符
'输入参数：arrcount - 账号记录条数
'findstr - 用户需要查找的账号内容
'prechar - 需要去除的特殊字符内容
'输出参数；FinalArray - 去除特殊字符后拼接起来的字符串
'编写者/日期：代兵/2010 - 01 - 28
'*******************************************************
Function SelectedListByIndex(arrcount,findstr)
Dim str
str = cstr(findstr)
For i = 1 To ArrayCount
    itemstr = ObjWebList.GetItem(i)
    If Instr(itemstr,str) Then
       CheckListIndexNum = "#" + cstr(i-1)
       SelectedListByIndex = CheckListIndexNum
       Exit for
    End If
Next
end function

'*******************************************************
'函数名称：ArrayEquel()
'函数描述：该函数用以去除账号信息中包含的特殊字符
'输入参数：arrcount - 账号记录条数
'findstr - 用户需要查找的账号内容
'prechar - 需要去除的特殊字符内容
'输出参数；FinalArray - 去除特殊字符后拼接起来的字符串
'编写者/日期：代兵/2010 - 01 - 28
'*******************************************************
Function ArrayEquel(arrcount,findstr,prechar)
Dim str
str = cstr(prechar)
itemstr = ObjWebList.GetROProperty("all items")
For i = 1 to ArrayCount
    InitArray = split(itemstr,";")
    SecondArray = split(InitArray(i-1),str)
    FinalArray = SecondArray(0) & SecondArray(1)
    Exit for
Next
ArrayEquel = FinalArray
End Function