Grazie a Totem per il codice e per aver risolto come al solito il problema..
dim s as string
dim temp as string
dim values as new hashtable
values.add("ab", 1)
values.add("ba", 2)
values.add("aa", 3)
values.add("bb", 4)
while s.length > 0
for each comb as string in values.keys
if s.startswith(comb) then
temp += values(comb).tostring
s = s.remove(0, comb.length)
end if
next
end while
msgbox(temp)
CIao Grazie TOTEM
|