Выделить только ту часть строки, которая находится между двоеточиями

24.01.2012, 07:25. **Показов** 2882. **Ответов** 10

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

помогите пожалуйста, необходимо написать код для следующей задачи: мы должны ввести строку с двумя двоеточиями (вавава:попопо:гагага) и программа должна выделить только ту часть которая находиться между двоточиями (попопо)

@Димит · 24.01.2012, 08:46

Что такое выделить?
И где находится Ваша вавава:попопо:гагага

@xtreme · 24.01.2012, 11:12

Visual Basic
1
2
3
4
5
6
Dim sVal As String, sInter As String
Dim iFirst As String, iLast As String
sVal = "вавава:попопо:гагага"
iFirst = InStr(sVal, ":")
iLast = InStrRev(sVal, ":")
sInter = Mid(sVal, iFirst + 1, iLast - iFirst - 1)

Выведет: "попопо"

Но если sVal = "вавава:поп:опо:гагага",
То выведет "поп:опо"

В общем вырезает всё, что находится между первым и последним двоеточием

24.01.2012, 15:05

через inputbox мы вводим любую строку где есть два двоеточия и то что попадает между ними программа должна нам вывести (msgbox)

24.01.2012, 15:06

Сообщение от Димит

Что такое выделить?
И где находится Ваша вавава:попопо:гагага

через inputbox мы вводим любую строку где есть два двоеточия и то что попадает между ними программа должна нам вывести (msgbox)

24.01.2012, 15:13

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

Visual Basic
1
2
3
4
5
6
Dim sVal As String, sInter As String
Dim iFirst As String, iLast As String
sVal = "вавава:попопо:гагага"
iFirst = InStr(sVal, ":")
iLast = InStrRev(sVal, ":")
sInter = Mid(sVal, iFirst + 1, iLast - iFirst - 1)

Выведет: "попопо"

Но если sVal = "вавава:поп:опо:гагага",
То выведет "поп:опо"

В общем вырезает всё, что находится между первым и последним двоеточием

спасибо большое, но мне надо чтобы ввод происходил через inputbox, а вывод через msgbox. я попробовал подправить, но он начал ругаться на iLast As String, буду сильно благодарен если поможете еще раз

24.01.2012, 15:18

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub gh()
Dim k, l As String
Dim sVal As String
Dim sInter As String
Dim iFirst As String
Dim iLast As String
l = InputBox("ââîä ")
sVal = l
 
iFirst = InStr(sVal, ":")
iLast = InStrRev(sVal, ":")
sInter = Mid(sVal, iFirst + 1, iLast - iFirst - 1)=k
msgbox("результат ") & k
End Sub

вот так я сделал

@xtreme · 24.01.2012, 16:00

Извиняюсь, ошибочка вышла...

вместо

Visual Basic
1
Dim iFirst As String, iLast As String

нужно

Visual Basic
1
Dim iFirst As Integer, iLast As Integer

InStr и InStrRev возвращают Variant (Long), справка VBA

Я бы предложил вот так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub gh()
Dim sVal As String, sInter As String
Dim iFirst As Integer, iLast As Integer
 
sVal = InputBox("ââîä ")
 
If Len(Trim(sVal)) = 0 Then
  MsgBox prompt:="Íè ÷åãî íå ââåäåíî", Title:="Îøèáêà"
  Exit Sub
End If
 
 
iFirst = InStr(sVal, ":")
iLast = InStrRev(sVal, ":")
sInter = Mid(sVal, iFirst + 1, iLast - iFirst - 1)
MsgBox "ðåçóëüòàò " & sInter
End Sub

24.01.2012, 16:06

скажите пожалуйста, что тут написано MsgBox prompt:="Íè ÷åãî íå ââåäåíî", Title:="Îøèáêà"

@xtreme · 24.01.2012, 16:26

Visual Basic
1
MsgBox prompt:="Не было ни чего введено", Title:="Ошибка"

24.01.2012, 19:31

спасибо большое, работает великолепно

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

stark

	Выделить только ту часть строки, которая находится между двоеточиями 24.01.2012, 07:25. Показов 2882. Ответов 10 Метки нет (Все метки) помогите пожалуйста, необходимо написать код для следующей задачи: мы должны ввести строку с двумя двоеточиями (вавава:попопо:гагага) и программа должна выделить только ту часть которая находиться между двоточиями (попопо)

@Димит 90 / 37 / 14 Регистрация: 03.11.2010 Сообщений: 429
	24.01.2012, 08:46
	Что такое выделить? И где находится Ваша вавава:попопо:гагага 0

stark
	24.01.2012, 15:05
	через inputbox мы вводим любую строку где есть два двоеточия и то что попадает между ними программа должна нам вывести (msgbox)

stark
	24.01.2012, 16:06
	скажите пожалуйста, что тут написано MsgBox prompt:="Íè ÷åãî íå ââåäåíî", Title:="Îøèáêà"

stark
	24.01.2012, 19:31
	спасибо большое, работает великолепно