Germany | Finland | Saint Petersburg | Drive

Version

Описание

Получение строки, содержащей версию AmiSharp. Начиная с версии 1.0.1.3

Параметры

Нет

Возвращаемое значение

Строка видa     A.B.C.D   где

  • A - Major version
  • B - Minor version
  • C - Release
  • D - Build

Пример использования

  1. ConsoleWrite($AmiSharp.Version())

    В стандартном выводе появится строка

    1.0.1.3

  2. Проверка минимально необходимой версии Amisharp для работы скрипта AutoIt:

    Func VersionCompare($Etalon)
       $Etalon = StringSplit($Etalon,'.',3)
       $Etalon = (($Etalon[0]*1000 + $Etalon[1])*1000 + $Etalon[2])*1000 + $Etalon[3]

       Local $Version = StringSplit($Amisharp.Version(),'.',3)
       $Version = (($Version[0]*1000 + $Version[1])*1000 + $Version[2])*1000 + $Version[3]

       Return $Version >= $Etalon
    EndFunc

    if Not VersionCompare("1.0.1.3") Then
       MsgBox(16,$ScriptName,"Необходим AmiSharp V1.0.1.3 или старше")
       Exit
    EndIf

  3. dnl Проверка допустимости версии AmiSharp
    dnl Возвращает True или False
    dnl Параметр - строка минимально допустимой версии в формате "1.0.1.3"

    function AmiSharp_Version_StringToNum(Str)
    {  Local Result,i;

       Result = 0;
       Str = StrReplace(Str,".",",");
          for (i = 0 ; i <= 3 ; i++)
             Result = Result * 1000 + StrToNum(StrExtract(Str,i));
          Return Result;
    }

    procedure AmiSharp_Version(MinimalVersion)
    {  Local VarName,Result;

       VarName = "~Version~" + GetChartID();

       Result = StaticVarGet(VarName);
       if (IsEmpty(Result))
       { Result = AmiSharp_Version_StringToNum(m4_amisharp.Version()) >= AmiSharp_Version_StringToNum(MinimalVersion);
          StaticVarSet(VarName,Result);
       }
       Return Result;
    }

  • Просмотров:: 1404

Недостаточно прав для комментирования