Настало время осветить этот вопрос с точки зрения программирования. Итак, мы рассмотрели преобразование только одного символа, однако выражение состоит из множества символов, которые необходимо последовательно преобразовать:

$keyw_s="Служебные файлы"

For $c=1 to Len($keyw_s)

    $symbol= cstr(dectohex(Asc(Right(Left($keyw_s,$c),1)))

Next

В приведенном примере переход от символа к символу осуществляется с помощью цикла For…Next и комбинации функций Left и Right. В конечном счете переменная $symbol является шестнадцатеричным числом (HEX).

Теперь необходимо отдельно получить первый и второй символы каждого из HEX-числа и с первым символом в случае, если его код ASCII больше 128, выполнить преобразование (см. таблицу 3). Первый символ и второй символ определяются следующим образом:

$string=ucase(left(cstr(dectohex(Asc(Right(Left($keyw_s,$c),1)))),1))

$string2=ucase(right(cstr(dectohex(Asc(Right(Left($keyw_s,$c),1)))),1))

Приступим к реализации алгоритма преобразования первого символа шестнадцатеричного числа. В нем целесообразно использовать систему флагов и инструкцию select…case.

Приведем пример преобразования первой буквы выражения – «С». Как было определено ранее, этому символу соответствует шестнадцатеричное значение D1, исходя из таблицы 2, D должно преобразоваться в 2, а само число в 21:

    Select

…

Case instr(ucase($string),UCase("d"))<>0

    $t=$t+cstr("2")+$string2

…

End Select

В данном случае используется только инструкция select…case. Флаговая система используется для определения алгоритма преобразования, в зависимости от HEX-кода символа:

If $flag_S=0

Select

Case instr(ucase($string),UCase("с"))<>0

    $t=$t+cstr("1")+$string2

$flag_S=1

…

    EndSelect

    If $flag_S=0

           $t=$t+cstr(dectohex(Asc(Right(Left($keyw_s,$c),1))))

    endif

Определение 2-го байта символа осуществляется по ASCII-коду символа:

If Asc(Right(Left($keyw_s,$c),1))>128

$t=$t+"04"

Else

$t=$t+"00"

Endif

Поскольку строка описания может иметь только 32 символа и обновляется исключительно записываемая часть, то во избежание оставления «хвостов» необходимо все остальные символы обнулить:

For $r=1 to 32-len($keyw_s)

$t=$t+cstr("00")

Next

И, наконец, последний штрих – запись соответствующих значений в реестр:

WriteValue($keyw_path+""+$ds_s+"\_LabelFromReg","Cache", $t, "REG_BINARY")

$r_w1=ReadValue($keyw_path+""+$ds_s+"\_LabelFromReg","version")

WriteValue($keyw_path+""+$ds_s+"\_LabelFromReg","Version", $r_w1+1, "REG_DWORD")

$r_w2=ReadValue($keyw_path+""+$ds_s+"\_GVI","version")