forum.clarionlife.net

Код: Выделить всё

                PROGRAM
                MAP
                  convert2(string str, byte direction),string
                END

  CODE
  message(convert2('Ghbvth yf heccrjv zpsrt фтв щт Утпдшыр!', 3))

convert2    procedure(string str, byte direction)!,string
str1        string('йцукенгшщзхъфывапролджэячсмитьбюё')
str2        string('qwertyuiop[]asdfghjkl;''zxcvbnm,.`')
c           long
l           long
p           long
  code
  l = len(clip(str))
  loop c = 1 to l
    case direction
    ! russian to english = 1
    of 1
      p = instring(lower(str[c]),str1,1,1)
      if p
        if str[c] = lower(str[c])
          str[c] = str2[p]
        else
          str[c] = upper(str2[p])
        end
      end
    ! english to russian = 2
    of 2
      p = instring(lower(str[c]),str2,1,1)
      if p
        if str[c] = lower(str[c])
          str[c] = str1[p]
        else
          str[c] = upper(str1[p])
        end
      end
    ! toggle language = 3
    of 3
      p = instring(lower(str[c]),str1,1,1)
      if p
        if str[c] = lower(str[c])
          str[c] = str2[p]
        else
          str[c] = upper(str2[p])
        end
      else
        p = instring(lower(str[c]),str2,1,1)
        if p
          if str[c] = lower(str[c])
            str[c] = str1[p]
          else
            str[c] = upper(str1[p])
          end
        end
      end
    end
  end
  return str