Замена символов в посте

[lexa345 816]

Может кому пригодится, замена русского текста комментариев в уп на английский ГОСТ Р 7.0.34-2014  Video.rar

 

 

s_return           : ""
s_replacement_char : ""
commvar$ : -1           # вывод цифр в коментах

flktbl 3 66  #
    "A" "А"
    "a" "а"
    "B" "Б"
    "b" "б"
    "V" "В"
    "v" "в"
    "G" "Г"
    "g" "г"
    "D" "Д"
    "d" "д"
    "E" "Е"
    "e" "е"
    "YO" "Ё"
    "yo" "ё"
    "ZH" "Ж"
    "zh" "ж"
    "Z" "З"
    "z" "з"
    "I" "И"
    "i" "и"
    "J" "Й"
    "j" "й"
    "K" "К"
    "k" "к"
    "L" "Л"
    "l" "л"
    "M" "М"
    "m" "м"
    "N" "Н"
    "n" "н"
    "O" "О"
    "o" "о"
    "P" "П"
    "p" "п"
    "R" "Р"
    "r" "р"
    "C" "С"
    "c" "с"
    "T" "Т"
    "t" "т"
    "U" "У"
    "u" "у"
    "F" "Ф"
    "f" "ф"
    "KH" "Х"
    "kh" "х"
    "C" "Ц"
    "c" "ц"
    "CH" "Ч"
    "ch" "ч"
    "SH" "Ш"
    "sh" "ш"
    "SHH" "Щ"
    "shh" "щ"
    "" "Ъ"       ## "''" "Ъ"
    "" "ъ"       ## "''" "ъ"
    "Y" "Ы"
    "y" "ы"
    "" "Ь"       ##  "'" "Ь"
    "" "ь"       ##  "'" "ь"
    "E" "Э"
    "e" "э"
    "YU" "Ю"
    "yu" "ю"
    "YA" "Я"
    "ya" "я"

pcomment$       #Output Comments   
     s_return = regex("([^\x00-\x7F])", scomm$, 0)
     while strlen(s_return),
        [
        s_replacement_char = flook(3, s_return)

        scomm$ = regex(s_return, s_replacement_char, 2)

        s_return = regex("([^\x00-\x7F])", scomm$, 0)
        ]

#     scomm$ = ucase (scomm$)                              # вывод больших букв в коментах

 

[Jevgenijs 215]

не понятно. но очень интересно. Спасибо lexa345

[hlibhlib 436]

2 часа назад, Jevgenijs сказал:

не понятно. но очень интересно. Спасибо

Вписывая Комменты к Операциям Кириллицей, после такой правки поста - в УП выведется Ваш Кириллический Текст в Английской транскрипции на Латинице.