Дана строка. Преобразовать в ней все прописные латинские буквы в строчные

@Antiq · Регистрация: 26.05.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте. Не могу разобраться, в написании данного кода в языке VBA.

Dragokas · 02.06.2012, 16:36

Visual Basic

Sub aa()
Dim Back$, st$, i%
st = InputBox("Enter your text, please:", , "Ïðåîáðàçîâàòü ñòðî÷íûå ëàòèíñêèå â ïðîïèñíûå - TEST, Test.")
Back = st
For i = 1 To Len(st)
    If Mid(st, i, 1) Like "[A-Z]" Then Mid(st, i, 1) = LCase(Mid(st, i, 1))
Next
MsgBox "Îðèãèíàë:" + vbLf + Back + vbLf + "Ïðåîáðàçîâàíî â:" + vbLf + st
End Sub

@Sasha_Smirnov · 02.06.2012, 17:28

А когда эта строка дана в документе Word, можно просто жать Shift-F3 (выделив её), чему соответствует

Visual Basic

Sub Shift_F3()
    ActiveDocument.Range.Case = wdNextCase
    ActiveDocument.Range.Case = wdNextCase
End Sub

Ещё: код изменяет (переключает) регистр не только латинских, но и многих других букв. Зато просто!

@ikki · 02.06.2012, 18:55

Sasha_Smirnov, ну так вся фишка задания в том и состоит, что нелатинские прописные в строчные преобразовывать не надо

а иначе достаточно lcase

@Sasha_Smirnov · 02.06.2012, 20:35

Ну это как взять Берлин — почему бы не взять и Дрезден?!

Другое дело — взять только Берлин ☺☺☺

@ikki · 02.06.2012, 20:42

Сообщение от Sasha_Smirnov

Ну это как взять Берлин — почему бы не взять и Дрезден?!

млин! а ведь и правда!!!

код

Visual Basic

1	s=lcase(s)

полностью решает поставленную задачу.

@Catstail · 03.06.2012, 13:43

"Вкус" этой задачи - именно в нечеткой постановке... А lcase - это каждый может.

"Сглотнуть корову всякий может. А ты вот получи от неё 12 поросят!..." А. и Б. Стругацкие "Сказка о тройке"

@Antiq 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 4
		1
	Дана строка. Преобразовать в ней все прописные латинские буквы в строчные 02.06.2012, 15:16. Показов 3576. Ответов 6 Метки нет (Все метки) Здравствуйте. Не могу разобраться, в написании данного кода в языке VBA. 0

@ikki призрак 3262 / 890 / 119 Регистрация: 11.05.2012 Сообщений: 1,702 Записей в блоге: 2
	02.06.2012, 18:55	4
	Sasha_Smirnov, ну так вся фишка задания в том и состоит, что нелатинские прописные в строчные преобразовывать не надо а иначе достаточно lcase 0

@Sasha_Smirnov 5561 / 1367 / 150 Регистрация: 08.02.2009 Сообщений: 4,107 Записей в блоге: 30
	02.06.2012, 20:35	5
	Ну это как взять Берлин — почему бы не взять и Дрезден?! Другое дело — взять только Берлин ☺☺☺ 1

@Catstail Модератор 36515 / 19820 / 4153 Регистрация: 12.02.2012 Сообщений: 32,954 Записей в блоге: 13
	03.06.2012, 13:43	7
	"Вкус" этой задачи - именно в нечеткой постановке... А lcase - это каждый может. "Сглотнуть корову всякий может. А ты вот получи от неё 12 поросят!..." А. и Б. Стругацкие "Сказка о тройке" 1

Опции темы