Проверка данных в поле

[Kizarek86]

В общем то вроде просто должно быть, может есть какая нибудь функция подходящая для этого.необходимо чтобы в поле содержались только цифры и кирилица, если в поле ввели другие данные, то выводить предупреждение и не сохранять документ.подскажите кто сталкивался)

 

[Medevic]

Например, так. Собака в Input Validation:

symbList := "0,1,2,3,4,5,6,7,8,9,а,б,в,г,д,е..., А,Б,В,Г,Д...";
@If(@IsNull(@Trim(@ReplaceSubstring(@ThisValue; @Explode(symbList); @Nothing))); @Success; @Failure("Предупреждение"));

 

[Kizarek86]

Medevic, очередное спасибо, то что доктор прописал)

 

[Kizarek86]

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

 

[Medevic]

В QueryClose:

Dim res As Variant
res = Evaluate({symbList := "0,1,2,3,4,5,6,7,8,9,а,б,в,г,д,е..., А,Б,В,Г,Д...";
@IsNull(@Trim(@ReplaceSubstring(поле для проверки; @Explode(symbList); @Nothing)));}, Source.Document)
If Not Cbool(res(0)) Then Continue = False

 

[Kizarek86]

Medevic, биг спасибо, теперь отлично работает.

 

[Mihal]

Можно чуть-чуть покороче (с помощью оператора Like).

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim doc As NotesDocument

Set doc=Source.Document
If Not (doc.Text(0) Like "*[а-яА-Я0-9]") Then
Messagebox "Тольцо цифры и кирилица!"
continue=False
End If

End Sub

 

[Constantin A Chervonenko]

Например, так. Собака в Input Validation:

symbList := "0,1,2,3,4,5,6,7,8,9,а,б,в,г,д,е..., А,Б,В,Г,Д...";
@If(@IsNull(@Trim(@ReplaceSubstring(@ThisValue; @Explode(symbList); @Nothing))); @Success; @Failure("Предупреждение"));

ужОс..

Может лучше @Matches(@ThisValue; "+{0-9A-Я}") ?