![]() |
![]() ![]() v.5.2011.12.30 |
Бесплатные домены для портфолио и электронных визиток |
|
Visual Basic 5.0/6.0 - Стандартные методы обработки текстовВсе примеры / Строки / Стандартные методы обработки текстовТурбо-ИнициалВырезатель
Автор: bobsapp | добавлено: 06.03.2010, 11:50 | просмотров: 1787 (1+) | комментариев: 0 | рейтинг:
Пример выделения инициалов из ФИО. Естественно, главное, чтобы фамилия, имя и отчество отделялись между собой пробелами.
![]() КодDim iSpace As Integer Dim sInitials As String Dim sName As String sName = "поле name из БД" iSpace = InStr(sName, " ") sInitials = Mid(sName, 1, iSpace) & _ Mid(sName, iSpace, 2) & "." iSpace = InStr(sName, " ", iSpace) sInitials = sInitial & Mid(sName, iSpace, 2) & "."
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 10)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|