'Exclude repetition strings
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
