comp » Поиск » HelpF.pro

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

Пример BAT, CMD файла архивирования БД и записи на DVD Категория: Администрирование

Получение списка компьютеров сети (домена)

Код 1C v 7.x

 

спКомп = СоздатьОбъект("СписокЗначений");

Попытка

	ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");

	ScrptCtrl.Language="vbscript";

	ScrptCtrl.AddCode("

	|Function GetComputers()

	|	Set WinNT = GetObject(""WinNT:"")  

	|	WinNT.Filter = Array(""domain"")

	|	For Each Domain In WinNT

	|		Set ADSI = GetObject(""WinNT://"" & Domain.Name) 

	|		ADSI.Filter = Array(""computer"")

	|		For Each Comp In ADSI

	|			strInfo=strInfo & Domain.Name & "";"" & Comp.Name & vbCrLf

	|		Next

	|	Next

	|	GetComputers = strInfo

	|End Function

	|");

	Текст=СокрЛП(ScrptCtrl.Run("GetComputers"));  

	ScrptCtrl = "";

Исключение

	Предупреждение(ОписаниеОшибки());

	Возврат;

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



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

	СтрТекста=СтрПолучитьСтроку(Текст,Индекс); 

	Разделитель=Найти(СтрТекста,";");

	Домен=Лев(СтрТекста,Разделитель-1);

	Компьютер=Прав(СтрТекста,СтрДлина(СтрТекста)-Разделитель);

	спКомп.ДобавитьЗначение(Компьютер,Домен+""+Компьютер); 

КонецЦикла; 

спКомп.Сортировать();

Код 1C v 8.х

 

спКомп = Новый СписокЗначений;

Попытка

	ScrptCtrl= Новый COMОбъект("MSScriptControl.ScriptControl");

	ScrptCtrl.Language="vbscript";

	ScrptCtrl.AddCode("

	|Function GetComputers()

	|	Set WinNT = GetObject(""WinNT:"")  

	|	WinNT.Filter = Array(""domain"")

	|	For Each Domain In WinNT

	|		Set ADSI = GetObject(""WinNT://"" & Domain.Name) 

	|		ADSI.Filter = Array(""computer"")

	|		For Each Comp In ADSI

	|			strInfo=strInfo & Domain.Name & "";"" & Comp.Name & vbCrLf

	|		Next

	|	Next

	|	GetComputers = strInfo

	|End Function

	|");

	Текст=СокрЛП(ScrptCtrl.Run("GetComputers"));  

	ScrptCtrl = "";

Исключение

	Предупреждение(ОписаниеОшибки());

	Возврат;

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



Для Индекс=1 по СтрЧислоСтрок(Текст) Цикл

	СтрТекста=СтрПолучитьСтроку(Текст,Индекс); 

	Разделитель=Найти(СтрТекста,";");

	Домен=Лев(СтрТекста,Разделитель-1);

	Компьютер=Прав(СтрТекста,СтрДлина(СтрТекста)-Разделитель);

	спКомп.Добавить(Компьютер,Домен+""+Компьютер); 

КонецЦикла; 

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

//Выберем комп

спКомп.ВыбратьЭлемент();

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

Коды ошибок 1Сv8 800* Категория: Системные Ошибки

Как сравнить похожие строки (неполное совпадение строк)?

Ниже привожу пример функции нечеткого сравнения строк. Возвращаемое значение - от 0 (вообще не совпадает) до 1 (совпадает полностью)
По опыту, результат сравнения можно считать достоверным при совпадении больше 0.8 (80%)

Код

CREATE FUNCTION fn_FuzzyCompareString(
@Stri1 varchar(250),
@Stri2 varchar(250),
@MaxLen int)
RETURNS float
AS
BEGIN

DECLARE @Str1 varchar(250), @Str2 varchar(250), @SCountVar int,
@SCountEq int, @LenStr int, @Res float
DECLARE @NumSymbStr2 int
DECLARE @Cnt1 int, @Cnt2 int
DECLARE @SubStr varchar(250)

SELECT
@LenStr=1,
@SCountVar=0 ,
@SCountEq=0,
@res=0

Set @Str1 = replace(LTRIM(RTRIM(upper(@Stri1))),'.',' ')
Set @Str2 = replace(LTRIM(RTRIM(upper(@Stri2))),'.',' ')

if ((@MaxLen <= 0) or (Len(@Str1)=0) or (Len(@Str2)=0))
Begin
Set @Res=0
End
else
begin
While (@LenStr<=@MaxLen)
BEGIN
Set @NumSymbStr2=1
Set @Cnt2=0

While ((@Cnt2+@LenStr)<=LEN(@Str2))
BEGIN

Set @SubStr = '%'+SUBSTRING(@Str2,@NumSymbStr2,@LenStr)+'%'
if (PATINDEX(@SubStr, @Str1)<>0)
begin
Set @SCountEq=@SCountEq+1
end

Set @SCountVar=@SCountVar+1
Set @NumSymbStr2=@NumSymbStr2+1
Set @Cnt2 = @Cnt2+1
END

Set @NumSymbStr2=1
Set @Cnt2=0

While ((@Cnt2+@LenStr)<=LEN(@Str1))
BEGIN

Set @SubStr = '%'+SUBSTRING(@Str1,@NumSymbStr2,@LenStr)+'%'
if (PATINDEX(@SubStr, @Str2)<>0)
begin
Set @SCountEq=@SCountEq+1
end

Set @SCountVar=@SCountVar+1
Set @NumSymbStr2=@NumSymbStr2+1
Set @Cnt2 = @Cnt2+1
END

Set @LenStr=@LEnStr+1
END

end
if @SCountVar=0
SET @Res=0
Else
BEGIN
SET @Res=Convert(Numeric (10,5),@SCountEq)/Convert(Numeric (10,5),@SCountVar)
END

RETURN @Res
END

Использование этой функции (на примере прямого запроса к справочнику ФизЛица для 1С:ТиС 7.7): в выборку попадут все физлица, у которых релевантность выше 0.8

Код

DECLARE @FIO varchar(250)

Set @FIO = 'Иванов Петр'

SELECT
Спр.Code as [ФизЛицоКод],
Спр.ID as [ФизЛицо],
Спр.DESCR as [ФИО],
dbo.fn_FuzzyCompareString(dbo.fn_FIO(Спр.DESCR),@FIO,3) As [Релевантность]
FROM
SC503 as Спр (nolock)
where
ISMARK = 0
and
ISFOLDER = 2
and
dbo.fn_FuzzyCompareString(dbo.fn_FIO(Спр.DESCR),@FIO,3)>=0.8
GO

Категория: Полезные, Универсальные Функции