[Nitrogenium]

Как можно запретить ввод некоторых символов в поле диалогового окна, например, эти -
\
;
`
{
}
<пробелы в начале или в конце строки>
По специфике моей программы они вызывают ошибку при дальнейших вычислениях

[Do$]

Проверять строку на наличие этих символов, если они в ней содержатся - требовать ввести заново.

[Nitrogenium]

Проверять строку на наличие этих символов, если они в ней содержатся - требовать ввести заново.

А какой функцией это делать лучше - не подскажете?

[TararykovDG]

Сообщение от Nitrogenium А какой функцией это делать лучше - не подскажете?

wcmath

[Олег (jr.)]

Сообщение от Nitrogenium Как можно запретить ввод некоторых символов в поле диалогового окна, например, эти - \ ; ` { } <пробелы в начале или в конце строки> По специфике моей программы они вызывают ошибку при дальнейших вычислениях

Типа того
DCL

Код:

[Выделить все]

 boo : dialog{
: edit_box{label= "Enter text:";
key="txt1";
width=20;
}
spacer_0 ;
:row {
ok_cancel;
}
}

LISP

Код:

[Выделить все]

 (defun valid  (strtext chars /)
  (setq chars (vl-string->list chars))
  (if
    (vl-some '(lambda (x) (vl-string-position x strtext)) chars)
     nil
     t
     )
  )


(defun run-dial (/ dcl_ex knock )

(setq dcl_ex (load_dialog "TestTextBox.dcl"));<--change dcl path

(if (null (new_dialog "boo" dcl_ex))(exit));<--change dialog name

(setq chars "\\;`{}")
  
(setq input nil);input - global variable
  
(action_tile "txt1"
  (strcat
    "(if (not (valid (setq input(get_tile \"txt1\")) chars))"
  "(progn (alert \"Wrong characters entered\")"
  "(mode_tile \"txt1\" 2)"
  "(set_tile  \"txt1\" \"\")))"
  )
  )
 
  (action_tile "accept"
  (strcat 
  "(if (not input)"
  "(setq knock nil)"
  "(progn(setq knock T)(done_dialog)))"
  )
    )

  
(action_tile "cancel" "(done_dialog)")

(start_dialog)

(unload_dialog dcl_ex)
 
knock 
)

(defun C:demo(/ );input - global variable
 (setq result (run-dial))
  (alert input)

  (princ)
  )