Visual Prolog：編輯控件：檢查字符串是否包含數字

Question

我們使用下面的示例來驗證編輯控件只包含數字。

class predicates 
    validateNumber : control::validateResponder. 
clauses 
    validateNumber(Control) = control::contentsOk :- 
     hasDomain(integer, _X), 
     _X = trytoTerm(Control:getText()), 
     !. 
    validateNumber(Control) = control::contentsInvalid(Control, Control, 
      string::format("%s must be an integer!", Control:getLabel())). 

有沒有例子來驗證字符串是否只包含字母和消息用戶，如果它包含數字？

Answer 1

下面的代碼添加了只允許字母表的驗證。 Replaceall允許空間。感謝Gukalov爲討論提供答案。視覺序言。 com

class predicates 
    allowonlyalphabets : control::validateResponder. 
clauses 
    allowonlyalphabets(Control) = 
    if string::hasAlpha(string::replaceAll(Control:getText(), " ", "")) then 
     control::contentsOk 
    else 
     control::contentsInvalid(Control, Control, 
      string::format("%s must not contain numbers!", Control:getLabel())) 
    end if.