powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как преобразовать строку
7 сообщений из 7, страница 1 из 1
Как преобразовать строку
    #33541820
Molasar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как с помощью VBA преобразовать строку:

ИВАНОВ ИВАН -> Иванов Иван
...
Рейтинг: 0 / 0
Как преобразовать строку
    #33541842
Nickson
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть встроенные функции преобразования регистров:
UCase (в верхний) и LCase (в нижний).
В данном случае будет выглядеть так:
str1=LCase(ИВАНОВ ИВАН)
...
Рейтинг: 0 / 0
Как преобразовать строку
    #33541848
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Nickson Человеку надо и большие буквы :)
Примерно так:
Код: plaintext
1.
2.
3.
4.
s1 = "ИВАНОВ ИВАН"
a1 = InStr( 2 , s1, " ")
s2 = Left(s1,  1 ) + LCase(Mid(s1,  2 , a1 -  1 )) + Mid(s1, a1 +  1 ,  1 ) + LCase(Mid(s1, a1 +  2 ))
MsgBox (s2)
...
Рейтинг: 0 / 0
Как преобразовать строку
    #33541859
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И вдогонку:
В Word есть такое
Код: plaintext
.Range.Case = wdTitleWord
...
Рейтинг: 0 / 0
Как преобразовать строку
    #33542033
GlebZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
StrConv("vasya", vbProperCase )
С английским - работает. А с русским я дела не имею.
Водку? Водку - буду!
...
Рейтинг: 0 / 0
Как преобразовать строку
    #33542463
Функция StrConv и с русским работает.
...
Рейтинг: 0 / 0
Как преобразовать строку
    #33544709
GlebZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пользователь2Функция StrConv и с русским работает.
Ну так я с ним не работаю :) С ProperCase только проблемка когда двойная фамилия (ну или имя) или со всякими McCortney и типа того.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как преобразовать строку
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]