С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
1 / 1 / 0
Регистрация: 10.07.2021
Сообщений: 10
1
Excel

Изменение регистра первого слова в значении

15.07.2021, 18:24. Показов 1667. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток! Поделитесь пожалуйста советом как правильно написать функцию для формы, которая меняла бы регистр первого слова целиком. Например, Фамилия Имя Отчество –> ФАМИЛИЯ Имя Отчество.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
15.07.2021, 18:24
Ответы с готовыми решениями:

Нечетные слова, изменение регистра
Подскажите, пожалуйста, хотя бы примерно как получить нечетные слова в тексте и как им поменять...

Удалить из сообщения все повторяющиеся слова (без учета регистра) кроме первого вхождения
Здравствуйте, подскажите, что не так Использую для удаления one = string.Join(" ", one.Split('...

Удалить из сообщения все повторяющиеся слова (без учета регистра) кроме первого вхождения
1. Удалить из сообщения все повторяющиеся слова (без учета регистра) кроме первого вхождения. ...

Удалить из сообщения все повторяющиеся слова (без учета регистра) кроме первого вхождения
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data;...

3
2747 / 1721 / 779
Регистрация: 23.03.2015
Сообщений: 5,440
15.07.2021, 19:01 2
Лучший ответ Сообщение было отмечено KRON74 как решение

Решение

KRON74,
Visual Basic
1
2
3
4
5
6
7
8
9
Function MMM(wrds As String) As String
    arr = Split(wrds)
    MMM = UCase(arr(0)) & " " & Replace(wrds, arr(0), "")
End Function
 
 
Sub NNN()
    MsgBox MMM("abbs ddd fff")
End Sub
1
838 / 488 / 186
Регистрация: 09.03.2009
Сообщений: 1,680
15.07.2021, 19:02 3
Visual Basic
1
2
3
4
5
6
7
8
Sub Capitalize_1()
   Dim strS As String, pos As Integer
 
   strS = "Иванов Петр Семенович"   ' тут возьмите поле с формы
   pos = InStr(strS, " ")
   strS = UCase(Mid(strS, 1, pos - 1)) & Mid(strS, pos)  ' тут можно сразу на форму вернуть
   Debug.Print strS  ' отладочка
End Sub
1
1 / 1 / 0
Регистрация: 10.07.2021
Сообщений: 10
15.07.2021, 19:19  [ТС] 4
Большое спасибо за вариацию подходов!
1
15.07.2021, 19:19
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
15.07.2021, 19:19
Помогаю со студенческими работами здесь

Какие линии IRQ блокируются при значении регистра IMR = А5h
5. Какие линии IRQ (назовите номер и назначение – за какие устройства отвечают) блокируются при...

Напечатать те слова, которые отличны от первого слова и предпоследняя буква слова входит в в него еще раз
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Строки. Напечатать те слова, которые отличны от первого слова и длина слова минимальна
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:буквы слова не упорядочены по алфавиту
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Вывести слова текста, которые отличны от первого слова и первая буква слова входит в него ещё раз
Дан текст, содержащий от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между...

Если последняя буква первого слова совпадает с первой буквой последнего слова, то поменять местами слова максимальной и минимальной длины
Дан текст, слова которого отделяются друг от друга пробелами. Если последняя буква первого слова...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
Как создать нейросеть для генерации картинок на Python
InfoMaster 12.01.2025
Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .
Создание нейросети для генерации текста на Python
InfoMaster 12.01.2025
Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .
Как создать нейросеть распознавания изображений на Python
InfoMaster 12.01.2025
Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .
Основы искуственного интеллекта
InfoMaster 12.01.2025
Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .
Python и нейросети
InfoMaster 12.01.2025
Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .
Python в машинном обучении
InfoMaster 12.01.2025
Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .
Создание UI на Python с TKinter
InfoMaster 12.01.2025
TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .
HTML5 в разработке мобильных приложений
InfoMaster 12.01.2025
Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru