'排除重复的字符串
function getnotrepeat(byval arrlist as arraylist) as arraylist
dim i as integer : dim tmparraylist as new arraylist
for i = 0 to arrlist.count - 1
if not tmparraylist.contains(arrlist(i)) then
tmparraylist.add(arrlist(i))
end if
next
return tmparraylist
end function
