Germany | Finland | Saint Petersburg | Drive

Преобразование регистра символа

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

Поскольку в QPILE нет функции, преобразующей символ в верхний/нижний регистры, пришлось написать их. Все незамысловато на самом деле.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Возвращает переданный символ CHR в верхнем регистре
FUNC Chr_Upper(sp_chr)
               result = find("qwertyuiopasdfghjklzxcvbnmйцукенгшщзхъфывапроджэячсмитьбюё",0,sp_chr)
               if result == -1
                        result = sp_chr
               else
                        result = substr("QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗХЪФЫВАПРОДЖЭЯЧСМИТЬБЮЁ",result,1)
              end if
END FUNC

 

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Возвращает переданный символ CHR в нижнем регистре
FUNC Chr_Lower(sp_chr)
            result = find("QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗХЪФЫВАПРОДЖЭЯЧСМИТЬБЮЁ",0,sp_chr)
           if result == -1
                  result = sp_chr
          else
                  result = substr("qwertyuiopasdfghjklzxcvbnmйцукенгшщзхъфывапроджэячсмитьбюё",result,1)
         end if
END FUNC 
Добавить комментарий