Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция, преобразующая строку в имя собственное / 5 сообщений из 5, страница 1 из 1
22.08.2005, 05:50
    #33227036
Настенька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция, преобразующая строку в имя собственное
Скажите, есть ли встроенная функция для преобразования строки в имя. напр.
есть имя: иванов иван иванович. после преобразования должно быть:
Иванов Иван Иванович. т.е. первые буквы каждого слова преобразовываются в заглавные.
...
Рейтинг: 0 / 0
22.08.2005, 08:41
    #33227088
Функция, преобразующая строку в имя собственное
Код: plaintext
StrConv("иванов иван иванович", vbProperCase)
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
14.12.2007, 16:03
    #35011056
Mazai-XZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция, преобразующая строку в имя собственное
Пользователь2
Код: plaintext
StrConv("иванов иван иванович", vbProperCase)

А можно по подробнее? Допустим есть текстбокс, как текст в нём заставить писаться с заглавной буквы?
...
Рейтинг: 0 / 0
14.12.2007, 18:15
    #35011498
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция, преобразующая строку в имя собственное
Как идея (не супер, далеко...)

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Text1_KeyPress(KeyAscii As Integer)
    With Text1
        .Text = StrConv(.Text, vbProperCase)
        .SelStart = Len(.Text)
    End With
End Sub

или так (тоже не фонтан):

Код: plaintext
1.
2.
Private Sub Text1_Validate(Cancel As Boolean)
    Text1.Text = StrConv(Text1.Text, vbProperCase)
End Sub
...
Рейтинг: 0 / 0
15.12.2007, 11:46
    #35012105
Mazai-XZ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция, преобразующая строку в имя собственное
VladConnКак идея (не супер, далеко...)

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Text1_KeyPress(KeyAscii As Integer)
    With Text1
        .Text = StrConv(.Text, vbProperCase)
        .SelStart = Len(.Text)
    End With
End Sub

или так (тоже не фонтан):

Код: plaintext
1.
2.
Private Sub Text1_Validate(Cancel As Boolean)
    Text1.Text = StrConv(Text1.Text, vbProperCase)
End Sub



Благодарствую, добрый человек! ) А почему не супер? Первый вариант вообще отлично работает! со вторым чуть сложнее, работает только если его на кнопку привязать, а сам по себе не срабатывает! Огромное спасибо!!!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция, преобразующая строку в имя собственное / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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