zadach269.BAS

{* Задача269 *}

REM basic

' Известно, что в исходной строке есть двоеточие.Получить все символы, расположенные между первым и вторым двоеточием.Если второго двоеточия нет, то получить все символы, расположенные после единственного имеющегося двоеточия.


LINE INPUT "vvedite Text?", a$
d1 = INSTR(a$, ":")
d2 = INSTR(d1 + 1, a$, ":")
If d2 = 0 Then d2 = LEN(a$) + 1
PRINT Mid$(a$, d1 + 1, ABS(d2 - d1 - 1))
End