|
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
|