Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2017, 10:05   #1
evdss
Пользователь
 
Регистрация: 12.10.2010
Сообщений: 66
По умолчанию функция для замены регистра

Добрый день!
есть функция
Код:
Function ConvertRegistr(sString As String, Tip As Byte) As String
 'Tip = 1 - ВСЕ ПРОПИСНЫЕ
 'Tip = 2 - все строчные
 'Tip = 3 - Начинать С Прописных
 'Tip = 4 - Как в предложениях
 'Tip = 5 - иЗМЕНИТЬ рЕГИСТР
 Dim i&
     If Tip = 4 Then
         ConvertRegistr = StrConv(sString, 2)
         Mid$(ConvertRegistr, 1, 1) = UCase(Mid$(ConvertRegistr, 1, 1))
     ElseIf Tip > 4 Then
         For i = 1 To Len(sString)
             Mid$(sString, i, 1) = IIf(Mid$(sString, i, 1) = UCase(Mid$(sString, i, 1)), _
                     LCase(Mid$(sString, i, 1)), UCase(Mid$(sString, i, 1)))
         Next
         ConvertRegistr = sString
     Else
         ConvertRegistr = StrConv(sString, Tip)
     End If
     
     
 End FunctionL
не получается добавить еще один вид перевода. Необходимо только первую букву в строке сделать строчной, а остальное останется без изменения. Например, Ул.Юбилейная, надо ул.Юбилейная.

Последний раз редактировалось Аватар; 30.11.2017 в 10:12.
evdss вне форума Ответить с цитированием
Старый 30.11.2017, 10:20   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

lCase над первым символом строки
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна функция для замены значений lutorius Microsoft Office Excel 1 24.11.2017 16:29
Функция замены регистра предложения (Pascal) kenko825 Помощь студентам 4 02.12.2015 11:04
Функция поиска и замены подстроки в строке типа PChar Son Помощь студентам 9 19.04.2010 16:06
Оракл. Функция замены символов в полях Stilet SQL, базы данных 2 01.03.2010 17:15
Функция замены символов в строке. Fataller Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 7 23.01.2010 10:14