$Stream.CharSet = "utf-8"

$Stream.Mode = 3

$Stream.Open

$Stream.WriteText("{"+chr(34)+"У Вас нет доступа. Обратитесь к системному администратору."+chr(34)+"}")

$Stream.SaveToFile($id_dir_name+"def.usr")

$Stream.Close

…

Запись данных в файл

На последнем этапе осуществляется запись сформированных данных в файл. В решении данной задачи есть несколько нюансов: помимо сформированных данных в файле необходимо в него записать информацию, касающуюся каталогов, и обновить нумерацию параметров OrderInList и OrderInTree.

Листинг описания папок для тестовых и локальных баз выглядит следующим образом:

$local_folder = "[Локальные базы]" + $en + "ID=7fa1d5a9-d087-4026-9eea-f18a233d618f" + $en + "OrderInList=-1" + $en + "Folder=/" + $en + "OrderInTree=16384"

$test_folder = "[Тестовые базы]" + $en + "ID=7fa1d5a9-d087-9636-9eea-f18a233d618f" + $en + "OrderInList=-1" + $en + "Folder=/" + $en + "OrderInTree=32768"

ID должен быть уникальным. Каким конкретно? – не известно. Был проведен эксперимент, в результате которого выяснилось, что ID может быть любым. На практике рекомендуется выбрать один из ID, созданных 1C, и изменить одну из его частей произвольным образом.

Из примера видно, что максимальное значение параметра OrderInTree=32768. Ранее отмечалось, что начало нумераций и шаг значений параметров OrderInList и OrderInTree не имеют значения. Этот факт подтвержден многочисленными экспериментами. В качестве начала отсчета были выбраны число 16384 и такой же шаг (заимствовано из 1С). Для удобства корректировки значений введены два коэффициента $w_1 и $w_2. Один из них управляет значениями OrderInList, а второй – OrderInTree соответственно. При таком способе установки нумерации получится, что в одном из каталогов нумерация параметра OrderInList начнется с одного числа, например, 32768, а в другом – 65536. В каждом из разделов нумерация произвольна и содержимое файла будет корректно считано браузером 1С. Листинг корректировки данных следующий:

$const_w=16384

$w_1=1

$w_2=3

for each $element in $array_base

    if instr(ucase($element),ucase("orderintree"))<>0

           $s=$s+$element+cstr($const_w*$w_2)+$en

           $w_2=$w_2+1

    else

           if instr(ucase($element),

                 ucase("orderinlist"))<>0

                 $s=$s+$element+cstr

                        ($const_w*$w_1)+$en

                 $w_1=$w_1+1