Germany | Finland | Saint Petersburg | Drive

Find_Invalid_Symbols()

Опубликовано в QPILE

Временами приходится проверять правильность полученных текстовых данных. Эта функция проверяет, что строка (первый параметр) состоит только из допустимых символов, составляющих строку - второй параметр.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Поиск недопустиых символов в строке STR. Список допустимых - строка VALID
' Возвращает номер первого недопустимого символа  или -1, если все символы допустимы

FUNC Find_Invalid_Symbols(fs_string,siv_valid)
 for result from 0 to len(fs_string)-1
  if find(siv_valid,0,substr(fs_string,result,1)) == -1
   return
  end if
 end for
 result = -1
END FUNC

Добавить комментарий