Вставить символ "A" после каждого вхождения символа "Z" в строке

@Dr.Popov · Регистрация: 04.04.2011

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

Дана строка. В ней вставить символ "A" после каждого вхождения символа "Z".

@Catstail · 31.05.2012, 18:26

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function insA(S as string) As String
 
  Stro$=S
 
  p%=1
 
  Do
       k%=Instr(p%,Stro$,"Z")
       If k%=0 then Exit Do
       Stro$=left$(Stro$,(k%)) & "A" & mid$(Stro$,k%+1)
       p%=k%+2
  Loop
 
  insA=Stro$
 
End Function

@_stay true_ · 27.01.2013, 12:38

А можно то же самое, только чтобы программа после первого вхождения пробела в строку, добавляла после него символ%?

Имеется
акламйрам бурно приветствовать,устраивать/устроить овацию
алааклиматизация акклиматизация

А нужно получить:

акламйрам %бурно приветствовать,устраивать/устроить овацию
алааклиматизация %акклиматизация

Заранее спасибо.

@Catstail · 27.01.2013, 13:11

Еще проще:

Visual Basic
1
2
3
4
5
6
7
8
9
Function insA(S as string) As String
  k%=Instr(S," ")
  if k% = 0 then
    insA=S
  else
    insA=left$(S,k%) & "%" & mid$(S,k%+1)
  end if
 
End Function

@_stay true_ · 27.01.2013, 13:39

Спасибо большое!

Добавлено через 17 минут
Catstail,

Извини, что отвлекаю, но я впервые испытываю потербность в макросах, не мог бы ты выложить код целиком, а то у меня ругается типа "End Sub нужен там-то там-то" вот мой код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub procent()
'
' procent Ìàêðîñ
'
 
Function insA(s As String) As String
  k% = InStr(s, " ")
  If k% = 0 Then
    insA = s
  Else
    insA = Left$(s, k%) & "%" & Mid$(s, k% + 1)
  End If
 
End Function
End Sub

@Catstail · 27.01.2013, 14:51

Надо так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function insA(s As String) As String
    k% = InStr(s, " ")
    If k% = 0 Then
       insA = s
    Else
       insA = Left$(s, k%) & "%" & Mid$(s, k% + 1)
    End If
End Function
 
Sub procent()
 
   S$="Проба пера и проба сил"
   Debug.print insA(S$)
 
End Sub

mobile · 27.01.2013, 15:25

Сообщение от Dr.Popov

Дана строка. В ней вставить символ "A" после каждого вхождения символа "Z".

Visual Basic
1
stroka=Replace(stroka, "Z", "ZA")

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Dr.Popov 0 / 0 / 0 Регистрация: 04.04.2011 Сообщений: 39

	Вставить символ "A" после каждого вхождения символа "Z" в строке 31.05.2012, 17:36. Показов 2336. Ответов 6 Метки нет (Все метки) Дана строка. В ней вставить символ "A" после каждого вхождения символа "Z". 0

@_stay true_ 0 / 0 / 0 Регистрация: 27.01.2013 Сообщений: 8
	27.01.2013, 12:38
	А можно то же самое, только чтобы программа после первого вхождения пробела в строку, добавляла после него символ%? Имеется акламйрам бурно приветствовать,устраивать/устроить овацию алааклиматизация акклиматизация А нужно получить: акламйрам %бурно приветствовать,устраивать/устроить овацию алааклиматизация %акклиматизация Заранее спасибо. 0