string name, namepart, username
integer i, length
name = this.text
length = len(this.text)
for i = 1 to length
if left(name, 1) = ' ' then
username += left(namepart, 1)
namepart = ''
else
namepart += left(name, 1)
end if
name = right(name, len(name) - 1)
next
username += namepart
Это событие в выделенном событии из выпадающего списка. Строка "username" является выводом.