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

  • Автор темы Автор темы Kizarek86
  • Дата начала Дата начала

Kizarek86

Green Team
20.07.2007
876
8
В общем то вроде просто должно быть, может есть какая нибудь функция подходящая для этого.необходимо чтобы в поле содержались только цифры и кирилица, если в поле ввели другие данные, то выводить предупреждение и не сохранять документ.подскажите кто сталкивался)
 
Например, так. Собака в Input Validation:
Код:
symbList := "0,1,2,3,4,5,6,7,8,9,а,б,в,г,д,е..., А,Б,В,Г,Д...";
@If(@IsNull(@Trim(@ReplaceSubstring(@ThisValue; @Explode(symbList); @Nothing))); @Success; @Failure("Предупреждение"));
 
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
 
Можно чуть-чуть покороче (с помощью оператора 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
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab

Похожие темы