Определить номер первой и номер последней буквы К в тексте

@nastyakisa · Регистрация: 26.12.2011

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

Ребята, я уже вчера обращалась за помощью, простите меня за наглость, сделаю это еще раз..
У меня возникли проблемы с написанием программы.
Программа должна определять номер первой и номер последней буквы К в тексте. Все символы, расположенные между ними, записать в обратном порядке.

Помогите пожалуйста!
Заранее очень благодарна!

Dragokas · 22.03.2012, 14:00

Visual Basic

Sub Key_Key()
Dim St As String, StRev As String, k1 As Integer, k2 As Integer
St = "Текст для поиска буквы"
k1 = InStr(LCase(St), "к")
k2 = InStrRev(LCase(St), "к")
StRev = StrReverse(Mid(St, k1 + 1, k2 - k1 - 1))
MsgBox "Исходный текст:" & vbLf & St & vbLf & _
    "Позиция 1-й буквы ""К"": " & k1 & vbLf & _
    "Позиция последней буквы ""К"": " & k2 & vbLf & _
    "Модифицированный текст:" & vbLf & StRev
End Sub

@Fedogor · 22.03.2012, 14:10

Позволю себе модифицировать код Diskretor в случае если нужно выводить весь текст получаемый на входе:

Visual Basic

Sub Key_Key()
Dim St As String, StRev As String, strA As String, strC As String, k1 As Integer, k2 As Integer
St = "покрышка"
k1 = InStr(LCase(St), "к")
strA = Mid(St, 1, k1)
k2 = InStrRev(LCase(St), "к")
strC = Mid(St, k2, Len(St) - k2 + 1)
StRev = StrReverse(Mid(St, k1 + 1, k2 - k1 - 1))
MsgBox "Исходный текст:" & vbLf & St & vbLf & _
    "Позиция 1-й буквы ""К"": " & k1 & vbLf & _
    "Позиция последней буквы ""К"": " & k2 & vbLf & _
    "Модифицированный текст:" & vbLf & strA & StRev & strC
End Sub

Dragokas · 22.03.2012, 14:27

Так короче:

Visual Basic

1	strC = Mid(St, k2)

@Fedogor · 22.03.2012, 14:47

Супер. Забыл это прекрасное свойство функции Mid. Подправил

Добавлено через 1 минуту

Visual Basic

Sub Key_Key()
Dim St As String, StRev As String, strA As String, strC As String, k1 As Integer, k2 As Integer
St = "покрышка"
k1 = InStr(LCase(St), "к")
strA = Mid(St, 1, k1)
k2 = InStrRev(LCase(St), "к")
strC = Mid(St, k2)
StRev = StrReverse(Mid(St, k1 + 1, k2 - k1 - 1))
MsgBox "Исходный текст:" & vbLf & St & vbLf & _
    "Позиция 1-й буквы ""К"": " & k1 & vbLf & _
    "Позиция последней буквы ""К"": " & k2 & vbLf & _
    "Модифицированный текст:" & vbLf & strA & StRev & strC
End Sub

@nastyakisa 1 / 1 / 0 Регистрация: 26.12.2011 Сообщений: 8
		1
	Определить номер первой и номер последней буквы К в тексте 22.03.2012, 12:09. Показов 2808. Ответов 4 Метки нет (Все метки) Ребята, я уже вчера обращалась за помощью, простите меня за наглость, сделаю это еще раз.. У меня возникли проблемы с написанием программы. Программа должна определять номер первой и номер последней буквы К в тексте. Все символы, расположенные между ними, записать в обратном порядке. Помогите пожалуйста! Заранее очень благодарна! 1

	22.03.2012, 14:47