…

$cfg = $cfg + "{"+$en

$cfg = $cfg + "{" + chr(34) + "LRInfoBaseIDListSize" + chr(34) + ","+$en

$cfg = $cfg + "{" + chr(34) + "N" + chr(34) + ","+ $ShowAsTree+"}," + chr(34) + "ShowIBsAsTree" + chr(34) + ","+$en

$cfg = $cfg + "{" + chr(34) + "B" + chr(34) + ","+ $AutoSort+"}," + chr(34) + "AutoSortIBs"+ chr(34) + ","+$en           

…

$cfg = $cfg + "}"+$en

После наполнения переменной данными осуществляется запись ее содержимого в файл. Напомним, что файл 1cv8strt.pfl находится в каталоге «Documents and Settings\%username%Application Data1C1Cv8».

$FSO = CreateObject("Scripting.FileSystemObject").GetFile($path_to_base+"1cv8strt.pfl")

if @error=0

$FSO.Delete

endif

$FSO.close

$Stream = CreateObject("ADODB.Stream")

$Stream.CharSet = "utf-8"

$Stream.Mode = 3

$Stream.Open

$Stream.WriteText($cfg)

$Stream.SaveToFile($path_to_base+"1cv8strt.pfl")

$Stream.Closeendif

Скрипт: файл v8ib.lst

Локальные базы

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

$fso = CreateObject("Scripting.FileSystemObject")

$fso.DeleteFile($f_name)

$fso.close

Имеющиеся данные необходимо разбить на подстроки и записать в массив, затем, проанализировав их, вычленить локальные базы. В качестве признака, по которому будут формироваться подстроки, рекомендуется использовать символ «[». При таком преобразовании элементами массива будут содержать описания баз целиком, например:

a[0]= "[Тестовая сетевая база]" + chr(13) + chr(10) + "Connect= File = " + chr(34) + "С:Base" + chr(34) + ";" + chr(13) + chr(10) +