1

Тема: перемещение слова

Здравствуйте,

Помогите, пожалуйсте, с решением следующей задачи.

Имееется следующая текстовая переменная:
n=Application.UserName

UserName - в формате "Фамилия, Имя"

Каким способом можно преобразовать в формат "Имя Фамилия"? т.е. без знака запятой и в указанном порядке?

Заранее благодарен.

2

Re: перемещение слова

Вариантов масса. От простых строковых функций:

'Берём часть строки, начиная от запятой с пробелом и соединяем её через пробел с частью той же строки, начиная с первого символа и заканчивая запятой с пробелом.
n = Mid(Application.UserName, InStr(Application.UserName,", ")+2) & " " & Mid(Application.UserName, 1, InStr(Application.UserName,", ")-1)

до разбиения строки в массив и формирования новой строки из элементов этого массива:

n=Split(Application.UserName, ", ")(1) & " " & Split(Application.UserName, ", ")(0)
Лучше день потерять — потом за пять минут долететь!

3

Re: перемещение слова

Спасибо большое!