Проверка строки на бинарность

[Игорь Столяров]

Привет всем !

Вот ещё интересная задача ...

Есть некая строка c флагами (в общем случае, большая, загружена в память из файла).
Нужно проверить её содержимое на бинарность, т.е. в строке допустимы только "0" и "1".

Можно это как-то сделать без перебора всех символов в цикле ?
Хотелось бы, что-то вроде InString(), только наоборот ...

Заранее спасибо за любую идею.

[Yufil]

А для чего регулярные выражения придумали? Что-то типа
Match(MyString, '^[0|1]*$', Match:Regular)

[Игорь Столяров]

А для чего регулярные выражения придумали?

Упс ! Точно ! Спасибо !

[Ал]

в простых случаях использовал NUMERIC

[morkovin]

А для чего регулярные выражения придумали? Что-то типа
Match(MyString, '^[0|1]*$', Match:Regular)

А мне надо, чтобы в строке были только ноль, дефис и пробел. Попробовал
Match(MyString, '^[0|-| ]*$', Match:Regular)
не получается

[Ал]

А для чего регулярные выражения придумали? Что-то типа
Match(MyString, '^[0|1]*$', Match:Regular)

А мне надо, чтобы в строке были только ноль, дефис и пробел. Попробовал
Match(MyString, '^[0|-| ]*$', Match:Regular)
не получается

Код: Выделить всё

MyString = '000-00--0- -0 0  --0   -   ---0----00'
IF  Match(MyString, '^[---| |0]*$', Match:Regular)
    STOP('yes')
ELSE
    STOP('no')
END

MyString = '000 00-0 -0 01  -0-- 000   -'
IF  Match(MyString, '^[---| |0]*$', Match:Regular)
    STOP('yes')
ELSE
    STOP('no')
END

если все хотите указывать в одном наборе, то '-' как первый или последний символ набора:

Код: Выделить всё

MyString = '000-00--0- -0 0  --0   -   ---0----00'
IF  Match(MyString, '^[- 0]*$', Match:Regular)
    STOP(clip(MyString)&' : yes')
ELSE
    STOP(clip(MyString)&' : no')
END

 MyString = '000-00--0- -00ПРИВЕТ0  --0   -   ---0----00'
IF  Match(MyString, '^[- 0]*$', Match:Regular)
    STOP(clip(MyString)&' : yes')
ELSE
    STOP(clip(MyString)&' : no')
END

[Yufil]

Там вместо квадратных скобок нужны фигурные, в Help для CW6 ошибка. Причём открывающая скобка должна быть удвоена. Писал по памяти ( давно не пользовал в Кларионе, только в JS и Python ) только как пример. И напортачил...
Да, возможно перед пробелом уместен символ \