Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос первой буквы какого то слова в начало другого
 
#1
27.01.2014 11:31:25
Здравствуйте.

Подскажите пожалуйста как решить данную проблему.
Мне нужен был перевод ФИО в траслит

В одной из тем http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=39578
я нашел ответ на свой вопрос. Пользователь MCH выложил файл http://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=59733&action=download

Мне это как раз подходит.
Но вот возник еще вопрос. Необходимо также ФИО преобразовать в транслит но по следующему принципу :

Сидоров Иван Петрович должен стать не sidorovip а isidorov.

То есть первая буква имени идет в начало, отчество удаляем и все это в транслит.

Помогите решить такую задачу.
 
 
 
#2
27.01.2014 11:40:56
Код
Function Login(txt As String) As String
    Dim outstr$, x
    For Each x In Split(txt)
        If outstr = "" Then outstr = LCTranslit(x) Else outstr = Left$(LCTranslit(x), 1) & outstr
    Next x
    Login = Mid(outstr, 2)
End Function
 
 
 
#3
27.01.2014 11:48:45
так?
 
 
 
#4
27.01.2014 12:16:27
Спасибо большое то что нужно.
 
 
 
#5
27.01.2014 12:22:15
Что что нужно?
Проверил файл Димы - видать пример виноват... Лучше нужно пример готовить:

Сидоров Пидор Дидоровичdsidorov
Дятлов Жятел Вятловичvdyatlov
Кещян Жанна Васильевна vkeschyan
 
 
 
#6
27.01.2014 12:41:40
Извиняюсь.
Плохо проверил.

Получается что он берет первую букву отчества. а надо первую букву имени
Изменено: GanaginDmitry - 27.01.2014 12:51:03
 
 
 
#7
27.01.2014 13:00:07
Плохо проверили...
Т.е. не всё :)
 
 
 
#8
27.01.2014 13:53:45
А  помогите пожалуйста исправить.
Признаю свою ошибку что не проверил. Больше такого не повторится
 
 
 
#9
27.01.2014 14:01:56
))
исправил.
теперь Пидор есть p )
 
 
 
Страницы: 1
Читают тему
Наверх