Как из полного Ф.И.О. сделать Ф.И.О. с инициалами

[B00lean]

Есть ТекстБокс в нем пишется имя например "Казакова Ирина Владимировна", в одно место документа добавляется имя добавляется целиком, а в другое нужно "И.В. Козакова". Как сделать из полного имени и отчества инициалы?

Были идеи тупо создать еще один ТекстБокс с инициалами, но хочется автоматизировать процесс.

Подскажите каким образом решить ситуацию.

[viter.alex]

Можно вот так, например. Передаете строку которая содержит Фамилию, Имя и Отчество. Именно в такой последовательности. А получаете инициалы и фамилию. Можно ее усовершенствовать и научить различать порядок слов (по окончанию отчества). Но это оставляю на совести ТС.

Function GetInitials(ByVal fio As String) As String
  Dim sStr
  sStr = Split(Trim(Replace(fio, "  ", " ")), " ")
  GetInitials = UCase(Left(sStr(1), 1)) & "." & UCase(Left(sStr(2), 1)) & ". " & UCase(sStr(0))
End Function

[B00lean]

Спасибо помогло =)

Кому интересно залил примерчик:

http://slil.ru/27319039

[viter.alex]

Сообщение от B00lean

Спасибо помогло =)

Кому интересно залил примерчик:…

Мне стало интересно. Проверил. Очень неплохо. Но сразу выдало ошибку, потому что я, по «подлости нутра», не ввел текст, а нажал сразу кнопку.
Выход: Блокировать кнопку пока в поле ввода не будет трех слов (количество слов можно определять по пробелам между ними). Почитай эту тему