out » Поиск » HelpF.pro

Результаты по ключевому слову: out

Получение списка баз 1С 7.7 из реестра

Ниже приведено несколько способов получения списка баз 1С 7.7 из реестра:
Код получения списка баз 1С 7.7 из 8.х

Код 1C v 8.х

 функция сзПолучитьСписокБаз()

    попытка

        олеСкрипт = новый COMОбъект("MSScriptControl.ScriptControl");

        олеСкрипт.Language = "VBScript";

        стрКод =

        "function strGetListBase()

        |  const RootKey = &H80000001

        |  set Reg = GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

        |                      ""\root\default:StdRegProv"")

        |  PathKey = ""Software\1C\1Cv7\7.7\Titles""

        |  Reg.EnumValues RootKey, PathKey, Arr

        |  Answer = ""{""""#"""",4772b3b4-f4a3-49c0-a1a5-8cb5961511a3,"" & chr(10)

        |  Answer = Answer & ""{3,1e512aab-1b41-4ef6-9375-f0137be9dd91,0,0,"" & chr(10)

        |  Answer = Answer & ""{"" & (UBound(Arr) + 1) & "","" & chr(10)

        |  for x = LBound(Arr) to UBound(Arr)

        |    call Reg.GetStringValue(RootKey, PathKey, Arr(x), Value)

        |    Answer = Answer & ""{1e512aab-1b41-4ef6-9375-f0137be9dd91,"" & chr(10) &_

        |             ""{"""""" & replace(Value, """""""", """""""""""") & """""",0,"" &_

        |             chr(10) & ""{""""S"""","""""" & Arr(x)& """"""},"" &_

        |             chr(10) & ""{3,0,"" & chr(10) & ""{0},"""""""",-1,-1,0,0}"" &_

        |             chr(10) & ""}"" & chr(10) & ""}""

        |    if x <> UBound(Arr) then Answer = Answer & "",""

        |    Answer = Answer & chr(10)

        |  next

        |  Answer = Answer & ""},"" & chr(10) & ""{""""Pattern""""}"" & chr(10) &_

        |           ""}"" & chr(10) & ""}""

        |  strGetListBase = Answer

        |end function";

        олеСкрипт.AddCode(стрКод);

        стрОтвет = олеСкрипт.Run("strGetListBase");

        Ответ = ЗначениеИзСтрокиВнутр(стрОтвет);

        Ответ.СортироватьПоПредставлению();

    исключение

        Ответ = новый СписокЗначений;

        Ответ.Добавить("Базы 1С:Передприятия 7.7 не обнаруженны!");

    конецпопытки;

    возврат Ответ;

конецфункции

Код для 1С 7.7

Код 1C v 7.x

 

Функция ПолучитьСписокБаз1()

    Перем Value,arrValues;

    Scr = CreateObject("MSScriptControl.ScriptControl");

    Scr.Language = "vbscript";

    Scr.Timeout=-1;

    HKEY_CURRENT_USER = 2147483649;

    strKeyPath = "Software\1C\1Cv7\7.7\Titles";

    Locator=СоздатьОбъект("WbemScripting.SWbemLocator");

    ServiceDef=Locator.ConnectServer(".","root\default");

    oReg = ServiceDef.Get("StdRegProv");

    Dict=СоздатьОбъект("Scripting.Dictionary");

    Scr.AddObject("Dict",Dict);

    Scr.AddObject("oReg",oReg);

    Scr.ExecuteStatement("dim arrValues,Value:");

    Scr.ExecuteStatement("oReg.EnumValues "+HKEY_CURRENT_USER+","""+strKeyPath+""",arrValues:");

    Scr.ExecuteStatement("for i=lbound(arrValues) to ubound(arrValues):Dict.add ""pj"" & i, arrValues(i):next");

    ТЗБаз=СоздатьОбъект("ТаблицаЗначений");

    ТЗБаз.НоваяКолонка("Путь");

    ТЗБаз.НоваяКолонка("Описание");

    Для к=0 По Dict.count Цикл

        Д=Dict.Item("pj"+к);

        Scr.ExecuteStatement("oReg.GetStringValue "+HKEY_CURRENT_USER+","""+strKeyPath+""","""+Д+""",Value");

        ТЗБаз.НоваяСтрока();

        ТЗБаз.Путь = Д;

        ТЗБаз.Описание = Scr.eval("Value");

    КонецЦикла;

	//Посмотрим что в ТЗ

	//ТЗБаз.ВыбратьСтроку();

    Возврат ТЗБаз;

КонецФункции



Процедура ПолучитьСписокБаз2()

     Попытка

          scrptCtrl=createobject("MSScriptControl.ScriptControl");

          scrptCtrl.language="vbscript";

          scrptCtrl.addcode("Function Get1CV77Titles()

          |const HKEY_CURRENT_USER = &H80000001

          |Set oReg=GetObject(""winmgmts:{impersonationLevel=impersonate}!\\."" &_

          |""\root\default:StdRegProv"")

          |strKeyPath = ""Software\1C\1Cv7\7.7\Titles""

          |oReg.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValues

          |strInfo=vbNullString

          |For i = LBound(arrValues) To UBound(arrValues)

          | call oReg.GetStringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)

          | strInfo=strInfo & arrValues(i) & ""="" & Value & vbCrLF

          |Next

          |Get1CV77Titles = strInfo 

          |End Function");

          Сообщить(scrptCtrl.run("Get1CV77Titles"));

     Исключение

          Сообщить(ОписаниеОшибки()); 

     КонецПопытки;

КонецПроцедуры

<Сообщил Gloom>

                  

Процедура ПолучитьСписокБаз3()

     Ключ="HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles";

     ИмяКаталога=СокрЛП(КаталогПользователя());

     ИмяБазы=СокрЛП(каталогИБ());

     Если прав(ИмяКаталога,1)<>"\" Тогда ИмяКаталога=ИмяКаталога+"\" КонецЕсли;

     Если прав(ИмяБазы,1)<>"\" Тогда ИмяБазы=ИмяБазы+"\" КонецЕсли;

     ИмяБазыСтр=Симв(34)+СтрЗаменить(ИмяБазы,"\","\\")+Симв(34);

     ИмяФайла="USER.TXT";

     Команда="Regedit /ea "+Симв(34)+ИмяКаталога+ИмяФайла+Симв(34)+" "+Симв(34)+Ключ+Симв(34);

     КомандаСистемы(Команда);

     Текст=СоздатьОбъект("Текст");

     Текст.КодоваяСтраница(0);

     Текст.Открыть(ИмяКаталога+ИмяФайла);

     Текст.Показать();

     Стр=""; Нашли=0;

     Для сч=1 по Текст.КоличествоСтрок() Цикл

          Стр=СокрЛП(Текст.ПолучитьСтроку(сч));

          Сообщить(Стр);

          Если Найти(стр,ИмяБазыСтр)<>0 Тогда

               Нашли=1;

               прервать;

          КонецЕсли;

     КонецЦикла;

КонецПроцедуры

Категория: COM-объекты, WMI, WSH

Задать вопрос пользователю, ответ на вопрос

Код 1C v 8.2 УП

 Режим = РежимДиалогаВопрос.ДаНетОтмена;

Ответ = Вопрос("Выполнить?", Режим, 0);

   

Если Ответ =КодВозвратаДиалога.Да Тогда

        Сообщить("Выполнено");

ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда

        Сообщить("Не выполнено");

КонецЕсли;

Код 1C v 8.х

 

Режим = РежимДиалогаВопрос.ДаНет;

Ответ = Вопрос("Сохранить текст?", Режим,0) ;

Если Ответ = КодВозвратаДиалога.Нет Тогда

	ТекДок.Записать(ПутьКФайлу);

КонецЕсли ;



//Свойства РежимДиалогаВопрос:

//ДаНет (YesNo)

//ДаНетОтмена (YesNoCancel)

//ОК (OK)

//ОКОтмена (OKCancel)

//ПовторитьОтмена (RetryCancel)

//ПрерватьПовторитьПропустить (AbortRetryIgnore)



//Свойства КодВозвратаДиалога:

//Да (Yes)

//Нет (No)

//ОК (OK)

//Отмена (Cancel)

//Повторить (Retry)

//Прервать (Abort)

//Пропустить (Ignore)

//Таймаут (Timeout)

Код 1C v 7.x

 

// Зададим вопрос, и варианты ДА, НЕТ

Рез = Вопрос("Вы получили данное сообщение?", 4); 

// При нажатии Да - Рез=6, Нет- Рез=6 



//Можно и так:

Если Вопрос("Сохранить?", "Да+Нет") = "Да" Тогда

	 ТекДок.Записать(ПутьКФайлу);

КонецЕсли;  



//Вопрос(Текст_вопроса, Режим, Таймаут) - Вывести окно вопроса и получить ответ.

//Возвращает ответную реакцию в виде числа или строки, в соответствии с заданием параметра <Режим>:

//-1 или 'Таймаут' ('Timeout'), если закончилось время ожидания ответа;

//1 или 'ОК' ('ОК'), если если нажата кнопка OK;

//2 или 'Отмена' ('Cancel'), если нажата кнопка Отмена;

//3 или 'Стоп' ('Abort'), если нажата кнопка Стоп;

//4 или 'Повтор' ('Retry'), если нажата кнопка Повтор;

//5 или 'Пропустить' ('Ignore'), если нажата кнопка Пропустить;

//6 или 'Да' ('Yes'), если нажата кнопка Да;

//7 или 'Нет' ('No'), если нажата кнопка Нет.

//	

//Параметры:

//Текст_вопроса - cтрока текста вопроса;

//Режим - определяет набор кнопок диалога в виде числа или строки (в скобках английское написание):

//  0 или 'ОК' ('ОК') - кнопка OK;

//  1 или 'ОК+Отмена' ('OK+Cancel') - кнопки OK и Отмена;

//  2 или 'Стоп+Повтор+Пропустить' ('Abort+Retry+Ignore') - кнопки Стоп, Повтор, Пропустить;

//  3 или 'Да+Нет+Отмена' ('Yes+No+Cancel') - кнопки Да, Нет, Отмена;

//  4 или 'Да+Нет' ('Yes+No') - кнопки Да, Нет;

//  5 или 'Повтор+Отмена' ('Retry+Cancel') - кнопки Повтор, Отмена;

//  (любое другое значение или отсутствие параметра равносильно  0);

//Таймаут - число секунд времени ожидания ответа (если опущен или 0, то без ограничения).

Категория: Встроенные Функции

Какие ключи командной строки используются для запуска приложений 1С Категория: Администрирование

Пакетный режим Конфигуратора 7.7

Пример пакетного файла:

[General]
Output="D:\Типовые конфигурации\1SBBDemo\log.txt"
Quit=1
SaveData=1
[SaveData]
SaveToFile="D:\Типовые конфигурации\1SBBDemo\arch.zip"

Ярлык для запуска базы и выполнения файла пакетного режима:

\\Server\1cv77\BIN\1cv7s.exe config /D "D:\Типовые конфигурации\1SBBDemo\" /@"D:\Типовые конфигурации\1SBBDemo\paket.txt"

Комментарий к файлу:
Во время работы будет сформирован лог-файл (Output="D:\Типовые конфигурации\1SBBDemo\log.txt"). Он будет здесь D:\Типовые конфигурации\1SBBDemo\log.tx.
Будет выполнено сохранение данных (SaveData=1) в файл arch.zip (SaveToFile="D:\Типовые конфигурации\1SBBDemo\arch.zip"). После выполения работы - конфигуратор будет закрыт (Quit=1). Информационная база хранится в D:\Типовые конфигурации\1SBBDemo\. Файл пакетного режима харанится в папке базы и называется paket.txt.

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

Более подробно читайте в статье Параметры, ключи запуска 1Сv7 из командной строки

Категория: Администрирование

Некоторые полезные настройки при работе с УРИБ. Категория: Администрирование

Как сохранить поле BLOB (image) как файл на диск?

Наиболее эффективно это можно сделать с помощью объектов OLE Automation , работа с которыми осуществляется при помощи:
sp_OACreate, sp_OAGetProperty, sp_OASetProperty, sp_OAMethod, sp_OAGetErrorInfo, sp_OADestroy (подробное описание есть в http://technet.microsoft.com/ru-ru/library/ms203721(sql.90).aspx).
Рабочий пример процедуры (была написана для сохранения zip-архивов, хранящихся в базе):

Код

CREATE PROCEDURE dbo.SaveRequestDataAsFile (
@FileName varchar(1024) --имя файла
,@FilePath varchar(1024) --путь файла
,@ReqID --некое условие на таблицу
)
AS
BEGIN

DECLARE
@Stream integer,
@Buffer varbinary(4096),
@Size integer,
@Pos integer,
@BufSize integer,
@FileNameLocal varchar(1024),
@HR integer

if RIGHT(@FilePath, 1)<>'&# 092;' begin set @FilePath=@FilePath+'&# 092;' end

set @FileNameLocal = @FilePath + @FileName

SET @BufSize = 4096

EXEC @HR = sp_OACreate 'ADODB.Stream',@Stream OUT
if @HR<>0
begin
--обработка ошибки создания объекта
EXEC [dbo].[sp_displayoaerrorinfo] @Stream ,@HR
end

EXEC @HR = sp_OASetProperty @Stream,'Type',1 -- binary
EXEC @HR = sp_OASetProperty @Stream,'Mode',3 -- write|read
EXEC @HR = sp_OAMethod @Stream,'Open'

S_elect
@Size = DATALENGTH(SrvRequests.RequestData)
FROM SrvRequests WHERE SrvRequests.RequestID = @ReqID

Set @Pos=0

WHILE @Pos < @Size BEGIN
SET @BufSize = CASE WHEN @Size - @Pos < 4096 THEN @Size - @Pos ELSE 4096 END

S_elect @Buffer = substring(SrvRequests.RequestData ,@Pos+1, @BufSize)
from SrvRequests where SrvRequests.RequestID = @ReqID

EXEC @HR = sp_OAMethod @Stream, 'Write', NULL, @Buffer

SET @Pos = @Pos + @BufSize
END

EXEC @HR = sp_OAMethod @Stream,'SaveToFile',null, @FileNameLocal,2
EXEC @HR = sp_OAMethod @Stream,'Close'
EXEC @HR = sp_OADestroy @Stream
END

Рекомендуется создать еще пару процедур для внятного описания ошибок в случае их возникновения

Код

CREATE PROCEDURE sp_hexadecimal
@binvalue varbinary(255),
@hexvalue varchar(255) OUTPUT
AS
DECLARE @charvalue varchar(255)
DECLARE @i int
DECLARE @length int
DECLARE @hexstring char(16)
S_elect @charvalue = '0x'
S_elect @i = 1
S_elect @length = DATALENGTH(@binvalue)
S_elect @hexstring = '0123456789abcdef'
WHILE (@i <= @length)
BEGIN
DECLARE @tempint int
DECLARE @firstint int
DECLARE @secondint int
S_elect @tempint = CONVERT(int, SUBSTRING(@binvalue,@i,1))
S_elect @firstint = FLOOR(@tempint/16)
S_elect @secondint = @tempint - (@firstint* 16)
S_elect @charvalue = @charvalue +
SUBSTRING(@hexstring, @firstint+1, 1) +
SUBSTRING(@hexstring, @secondint+1, 1)
S_elect @i = @i + 1
END
----------------------------------------------------------------------
CREATE PROCEDURE sp_displayoaerrorinfo
@object int,
@hresult int
AS
DECLARE @output varchar(255)
DECLARE @hrhex char(10)
DECLARE @hr int
DECLARE @source varchar(255)
DECLARE @description varchar(255)
PRINT 'OLE Automation Error Information'
EXEC sp_hexadecimal @hresult, @hrhex OUT
S_elect @output = ' HRESULT: ' + @hrhex
PRINT @output
EXEC @hr = sp_OAGetErrorInfo @object, @source OUT, @description OUT
IF @hr = 0
BEGIN
S_elect @output = ' Source: ' + @source
PRINT @output
S_elect @output = ' Description: ' + @description
PRINT @output
END
ELSE
BEGIN
PRINT ' sp_OAGetErrorInfo failed.'
RETURN
END

Категория: OLE, ActiveX