Шамаев Иван - Qlik Expert Russia

Резервное копирование и восстановление Qlik NPrinting

24.06.202024.06.2020 от Qlik Expert Russia

Резервное копирование и восстановление Qlik NPrinting

Рекомендуется создавать регулярные резервные копии, чтобы иметь возможность восстановления инстанса (развертывания) Qlik NPrinting в случае сбоя системы или когда необходимо переместить или заменить узел (node) в вашем развертывании.

Ключевым компонентом резервной копии Qlik NPrinting является хранилище NPrinting (PostgreSQL).

Резервная копия Qlik NPrinting может быть восстановлена только в случае установки той же самой версии Qlik NPrinting, потому что структура хранилища Qlik NPrinting может отличаться для разных версий NPrinting.

Qlik NPrinting поставляется с утилитой Qlik.Nprinting.Manager.exe, которая используется для создания резервных копий и восстановления развертываний. Qlik.NPrinting.Manager.exe файл установлен по умолчанию и находится в папке %Program Files%\NPrintingServer\Tools\Manager. Этот инструмент является консольным приложением и должен выполняться из командной строки. Полученная резервная копия содержит файл дампа базы данных репозитория Qlik NPrinting и связанные файлы в ZIP-архиве.

Резервное копирование Qlik NPrinting

Справка (help) из командной строки

Чтобы увидеть справку командной строки для Qlik.NPrinting.Manager.exe введите одну из следующих команд:

Qlik.Nprinting.Manager.exe --help помощь для общей помощи
Qlik.Nprinting.Manager.exe backup --help для помощи с резервными копиями
Qlik.Nprinting.Manager.exe restore --help для помощи по восстановлению из резервной копии

Прежде чем вы начнете:

Проверьте, установлен ли Qlik NPrinting Engine на компьютер Qlik NPrinting Server, на котором вы создаете резервную копию.
Проверьте местоположение вашей установки PostgreSQL, обычно это C:\Program Files\NPrintingServer\pgsql\bin.
Убедитесь, что вы знаете пароль суперпользователя для базы данных PostgreSQL.
Удалите, переместите или переименуйте любые существующие файлы резервных копий, если это не первая созданная резервная копия, поскольку инструмент не будет перезаписывать существующий файл с тем же именем.

Сделайте следующее:

1. На компьютере, на котором установлен сервер Qlik NPrinting, откройте Windows Service Manager (services.msc) и остановите следующие сервисы в указанном порядке, щелкнув правой кнопкой мыши сервис и выбрав Stop:

Qlik NPrintingEngine (если установлен на компьютере)
Qlik NPrintingScheduler
Qlik NPrintingWebEngine

Qlik NPrinting RepoService должен быть запущен, чтобы создать резервную копию.

2. С помощью Windows Explorer создайте папку для хранения резервных копий, например C:\NPrintingBackups.

3. Открыть Windows command prompt (cmd.exe) из-под администратора и перейдите в папку, где Qlik.NPrinting.Manager.exe установлен. Расположение по умолчанию: %Program Files%\NPrintingServer\Tools\Manager. Например:

cd C:\Program Files\NPrintingServer\Tools\Manager

4. Введите Qlik.Nprinting.Manager.exe backup -f, затем полный путь к папке резервной копии, созданной на шаге 2, затем добавьте опцию -p, а затем полный путь к папке bin PostgreSQL.

Также добавьте параметр –pg-password с последующим паролем суперпользователя базы данных репозитория, который вы задали во время установки. Например:

Qlik.Nprinting.Manager.exe backup -f C:\NPrintingBackups\NP_Backup.zip -p "C:\Program Files\NPrintingServer\pgsql\bin" --pg-password secretPassword

1	Qlik.Nprinting.Manager.exe backup -f C:\NPrintingBackups\NP_Backup.zip -p "C:\Program Files\NPrintingServer\pgsql\bin" --pg-password secretPassword

Примечание: Кавычки необходимы, когда у вас есть пробелы в пути.

5. Внимательно прочитайте сообщения, отображаемые на консоли, так как они предоставляют важную информацию о состоянии и ошибках.

По завершении резервного копирования вы увидите ZIP-файл с именем NP_Backup.zip в папке, созданной на шаге 2, например, C:\NPrintingBackups

6. Убедитесь, что резервное копирование прошло успешно, перейдя в папку, созданную на шаге 2 (см. выше), и проверив, что файл .zip находится там.

Предупреждение: Перед созданием новой резервной копии вы должны удалить, переместить или переименовать любой существующий файл резервной копии, поскольку инструмент не будет перезаписывать существующий файл с тем же именем.

Восстановление Qlik NPrinting из резервной копии

1. На компьютере, где вы хотите восстановить развертывание сервера Qlik NPrinting, откройте Windows Service Manager (services.msc) и убедитесь, что следующие службы остановлены:

Qlik NPrintingEngine (если установлен на компьютере)
Qlik NPrintingScheduler
Qlik NPrintingWebEngine

2. Откройте Windows командная строка (cmd.exe) из-под администратора и перейдите в папку, где установлен Qlik.NPrinting.Manager.exe. Расположение по умолчанию: %Program Files%\NPrintingServer\Tools\Manager. Например:

cd C:\Program Files\NPrintingServer\Tools\Manager

3. Введите Qlik.Nprinting.Manager.exe restore -f, затем полный путь к файлу backup.zip , затем добавьте -p, а затем полный путь к папке bin PostgreSQL. Также добавьте параметр –pg-password с последующим паролем суперпользователя базы данных репозитория.

Например:

Qlik.Nprinting.Manager.exe restore -f C:\NPrintingBackups\NP_Backup.zip -p "C:\Program Files\NPrintingServer\pgsql\bin" --pg-password secretPassword

1	Qlik.Nprinting.Manager.exe restore -f C:\NPrintingBackups\NP_Backup.zip -p "C:\Program Files\NPrintingServer\pgsql\bin" --pg-password secretPassword

Предупреждение: Восстановление перезаписывает установленный репозиторий и сбрасывает его до версии, сохраненной в резервной копии. Если вы создали новые объекты после создания резервной копии, они будут потеряны.

Примечание: Кавычки необходимы, когда у вас есть пробелы в пути.

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

Если ошибок нет, вы готовы перезапустить свои сервисы.

5. Открой Windows Service Manager (services.msc) и запустите следующие службы в указанном порядке, щелкнув правой кнопкой мыши службу и выбрав Start:

Qlik NPrintingWebEngine
Qlik NPrintingScheduler
Qlik NPrintingEngine (если установлен на компьютере)

Скрипт проверки обновления данных PowerShell

22.06.2020 от Qlik Expert Russia

В этой заметке будет приведет пример скрипта для проверки обновления файлов QVD на филиалах. Специфическая задача, вряд ли весь скрипт Вам пригодится, но куски скрипта по отправке писем, динамическое формирования переменных из файла, проверка обновления файлов по дате создания/модификации файла могут быть полезными. Плюс используется функция в PowerShell.

Парсинг всех QVD для быстрого поиска поля по значению

16.06.2020 от Qlik Expert Russia

Парсинг всех QVD для быстрого поиска поля по значению

//Загрузка списка файлов из директории. Загрузка данных из этих файлов
SET directoryName = 'C:\QVDStorage\RawData\';

//Получение названия файлов
FOR each fileName in FileList('$(directoryName)*.qvd')
    
    FileList:
    Load
      '$(directoryName)' as [DirectoryName],
      mid('$(fileName)',len('$(directoryName)')+1) as [FileName]
    Autogenerate(1)
    ;
  
NEXT fileName

//Получение названия полей во всех QVD
FOR i=1 to NoOfRows('FileList')
  LET vQVDName = Peek('FileName',$(i)-1,'FileList');
  
  TEMP:
  FIRST 1
  LOAD *
  FROM '$(directoryName)$(vQVDName)'(qvd);
  

  FOR vColumnCounter = 1 TO NoOfFields('TEMP')
  
    LET vFieldName = FieldName(vColumnCounter, 'TEMP');
    
    QVDFieldsName:
    Load
      '$(vQVDName)' as QVDName,
      '$(vFieldName)' as FieldName
    Autogenerate(1);
    
  NEXT

  DROP Table TEMP;
  
NEXT



FOR i=1 to NoOfRows('QVDFieldsName')

  LET vQVDName = Peek('QVDName',$(i)-1,'QVDFieldsName');
  LET vFieldName = Peek('FieldName',$(i)-1,'QVDFieldsName');
  
  [Поиск поля по значению]:
  LOAD Distinct
       '$(vQVDName)'		As [Название QVD],
       '$(vFieldName)'	As [Название поля],
       [$(vFieldName)]	As [Значение поля]
  FROM '$(directoryName)$(vQVDName)'(qvd);
  
NEXT

QUALIFY *;

  FOR i=1 to NoOfRows('FileList')
  
    LET vQVDName = Peek('FileName',$(i)-1,'FileList');
    LET vTableName = Replace('$(vQVDName)','.qvw','');
    
    [$(vTableName)]:
    LOAD *
    FROM '$(directoryName)$(vQVDName)'(qvd);
    
  NEXT

UNQUALIFY *;

//Удаляем таблицу
DROP Table QVDFieldsName;

//Удаляем таблицу
DROP Table FileList;

FOR iCount = 0 to NoOfTables()-1

  LET vTableName = TableName(iCount);
  
  [Количество записей]:
  LOAD 
       '$(vTableName)'				As [Наименование таблицы],
       NoOfRows('$(vTableName)')			As [Количество записей],
       NoOfFields('$(vTableName)')		As [Количество столбцов]
  AutoGenerate 1;
  
NEXT iCount

//Загрузка списка файлов из директории. Загрузка данных из этих файлов

SET directoryName = 'C:\QVDStorage\RawData\';

//Получение названия файлов

FOR each fileName in FileList('$(directoryName)*.qvd')

FileList:

Load

'$(directoryName)' as [DirectoryName],

mid('$(fileName)',len('$(directoryName)')+1) as [FileName]

Autogenerate(1)

;

NEXT fileName

//Получение названия полей во всех QVD

FOR i=1 to NoOfRows('FileList')

LET vQVDName = Peek('FileName',$(i)-1,'FileList');

TEMP:

FIRST 1

LOAD *

FROM '$(directoryName)$(vQVDName)'(qvd);

FOR vColumnCounter = 1 TO NoOfFields('TEMP')

LET vFieldName = FieldName(vColumnCounter, 'TEMP');

QVDFieldsName:

Load

'$(vQVDName)' as QVDName,

'$(vFieldName)' as FieldName

Autogenerate(1);

DROP Table TEMP;

FOR i=1 to NoOfRows('QVDFieldsName')

LET vQVDName = Peek('QVDName',$(i)-1,'QVDFieldsName');

LET vFieldName = Peek('FieldName',$(i)-1,'QVDFieldsName');

[Поиск поля по значению]:

LOAD Distinct

'$(vQVDName)' As [Название QVD],

'$(vFieldName)' As [Название поля],

[$(vFieldName)] As [Значение поля]

FROM '$(directoryName)$(vQVDName)'(qvd);

QUALIFY *;

FOR i=1 to NoOfRows('FileList')

LET vQVDName = Peek('FileName',$(i)-1,'FileList');

LET vTableName = Replace('$(vQVDName)','.qvw','');

[$(vTableName)]:

LOAD *

FROM '$(directoryName)$(vQVDName)'(qvd);

UNQUALIFY *;

//Удаляем таблицу

DROP Table QVDFieldsName;

//Удаляем таблицу

DROP Table FileList;

FOR iCount = 0 to NoOfTables()-1

LET vTableName = TableName(iCount);

[Количество записей]:

LOAD

'$(vTableName)' As [Наименование таблицы],

NoOfRows('$(vTableName)') As [Количество записей],

NoOfFields('$(vTableName)') As [Количество столбцов]

AutoGenerate 1;

NEXT iCount

Выгрузка всех таблиц из базы данных PostgreSQL в QlikView

16.06.2020 от Qlik Expert Russia

CUSTOM CONNECT TO "Provider=QvOdbcConnectorPackage.exe;driver=postgres;host=localhost;port=4992;db=nprinting;SSLMode=prefer;UseSystemTrustStore=0;ByteaAsLongVarBinary=0;TextAsLongVarchar=0;UseUnicode=1;FetchTSWTZasTimestamp=1;MaxVarcharSize=262144;UseDeclareFetch=1;Fetch=200;EnableTableTypes=1;MoneyAsDecimal=1;QueryTimeout=30;XUserId=QQWbBLKHJOIJL498ihjioZdGC;XPassword=QQWbBLKHJOIJL498ihjioZdGCTBA;";


tables:
sql
SELECT table_name FROM information_schema.tables 
WHERE table_schema='public' and table_catalog='nprinting';

FOR i=1 to NoOfRows('tables')
 
  LET vTableName = Peek('table_name',$(i)-1,'tables');
  
 
  [$(vTableName)]:
  SQL SELECT * FROM public.$(vTableName);
  ;
  
 
  STORE [$(vTableName)] into 'C:\QVDStorage\RawData\$(vTableName).qvd' (qvd);
  
  DROP Table [$(vTableName)];
 
NEXT i
 
DROP Table tables;

CUSTOM CONNECT TO "Provider=QvOdbcConnectorPackage.exe;driver=postgres;host=localhost;port=4992;db=nprinting;SSLMode=prefer;UseSystemTrustStore=0;ByteaAsLongVarBinary=0;TextAsLongVarchar=0;UseUnicode=1;FetchTSWTZasTimestamp=1;MaxVarcharSize=262144;UseDeclareFetch=1;Fetch=200;EnableTableTypes=1;MoneyAsDecimal=1;QueryTimeout=30;XUserId=QQWbBLKHJOIJL498ihjioZdGC;XPassword=QQWbBLKHJOIJL498ihjioZdGCTBA;";

tables:

sql

SELECT table_name FROM information_schema.tables

WHERE table_schema='public' and table_catalog='nprinting';

FOR i=1 to NoOfRows('tables')

LET vTableName = Peek('table_name',$(i)-1,'tables');

[$(vTableName)]:

SQL SELECT * FROM public.$(vTableName);

;

STORE [$(vTableName)] into 'C:\QVDStorage\RawData\$(vTableName).qvd' (qvd);

DROP Table [$(vTableName)];

NEXT i

DROP Table tables;

Выгрузка всех таблиц из базы данных PostgreSQL в QlikView

Проверка работы службы NPrinting через vb.net

22.01.202022.01.2020 от Qlik Expert Russia

Imports System
Imports System.ServiceProcess
Imports System.IO
Imports System.Threading

Module Module1

    Sub Main()

        '==============================================================
        ' ОПИСЫВАЕМ ПЕРЕМЕННЫЕ - DIM BLOCK
        '==============================================================
        Dim vNPrintingLogPath As String, vToday As String, vNow As Date, vLastTime As Date
        Dim vMinDuration As Int32, vMinDurationFileName
        Dim files As New List(Of String)
        Dim fs As Object
        Dim vDuration As TimeSpan
        Dim myController = New ServiceController
        Dim processes() As Process = Process.GetProcesses
        Dim processName As String

        '==============================================================
        ' ЗАДАЕМ ПЕРЕМЕННЫЕ &amp; ОБЪЕКТЫ
        '==============================================================
        vNPrintingLogPath = "C:\Users\Public\Documents\NPrinting\Log\"
        vToday = Today.ToString("yyyyMMdd")
        vNow = Now
        fs = CreateObject("Scripting.FileSystemObject")

        '==============================================================
        ' АЛГОРИМТ ПРОВЕРКИ
        '==============================================================

        vMinDuration = 9999999 ' Исходное значение

        '=== Получаем последний обновленный файл по сегодняшнему дню
        For Each foundFile As String In My.Computer.FileSystem.GetFiles(
         vNPrintingLogPath,
         FileIO.SearchOption.SearchTopLevelOnly, vToday &amp; "*_NPrintingSvc.log")
            vLastTime = System.IO.File.GetLastWriteTime(foundFile)
            vDuration = vNow - vLastTime

            If vDuration.TotalMinutes &lt; vMinDuration Then
                vMinDuration = vDuration.TotalMinutes
                vMinDurationFileName = foundFile
            End If

        Next

        '=== ЕСЛИ vMinDuration > 60 минут, то требуется убить qv.exe и рестартануть NPrinting службу
        If vMinDuration > 60 Then

            '=== 1. KILL Qv.exe
            For p As Integer = processes.Count - 1 To 0 Step -1
                processName = processes(p).ProcessName.ToLower()

                If processName = "qv" Then
                    '=== УБИТЬ ПРОЦЕСС NPrintingService.exe
                    processes(p).Kill()
                    '=== ЖДЕМ 3 секунды
                    'Console.WriteLine("Ждем 3 секунды. " &amp; processName &amp; " завершен.")
                    Threading.Thread.Sleep(3000)

                End If
            Next

            '=== 2. KILL NPrintingSvc.exe
            For p As Integer = processes.Count - 1 To 0 Step -1
                processName = processes(p).ProcessName.ToLower()


                If processName = "nprintingsvc" Then   'processName = "qv" Or
                    '=== УБИТЬ ПРОЦЕСС NPrintingService.exe
                    processes(p).Kill()
                    '=== ЖДЕМ 3 секунды
                    Threading.Thread.Sleep(3000)

                    '=== ЗАПУСКАЕМ NPrintingService

                    myController.ServiceName = "NPrintingService"
                    myController.MachineName = "server-qv-name"

                    myController.Start()
                    Threading.Thread.Sleep(1000)

                End If
            Next


        Else
            Console.WriteLine("Рестарт не требуется")
        End If

    End Sub

End Module

Imports System

Imports System.ServiceProcess

Imports System.IO

Imports System.Threading

Module Module1

Sub Main()

'==============================================================

' ОПИСЫВАЕМ ПЕРЕМЕННЫЕ - DIM BLOCK

'==============================================================

Dim vNPrintingLogPath As String, vToday As String, vNow As Date, vLastTime As Date

Dim vMinDuration As Int32, vMinDurationFileName

Dim files As New List(Of String)

Dim fs As Object

Dim vDuration As TimeSpan

Dim myController = New ServiceController

Dim processes() As Process = Process.GetProcesses

Dim processName As String

'==============================================================

' ЗАДАЕМ ПЕРЕМЕННЫЕ & ОБЪЕКТЫ

'==============================================================

vNPrintingLogPath = "C:\Users\Public\Documents\NPrinting\Log\"

vToday = Today.ToString("yyyyMMdd")

vNow = Now

fs = CreateObject("Scripting.FileSystemObject")

'==============================================================

' АЛГОРИМТ ПРОВЕРКИ

'==============================================================

vMinDuration = 9999999 ' Исходное значение

'=== Получаем последний обновленный файл по сегодняшнему дню

For Each foundFile As String In My.Computer.FileSystem.GetFiles(

vNPrintingLogPath,

FileIO.SearchOption.SearchTopLevelOnly, vToday & "*_NPrintingSvc.log")

vLastTime = System.IO.File.GetLastWriteTime(foundFile)

vDuration = vNow - vLastTime

If vDuration.TotalMinutes < vMinDuration Then

vMinDuration = vDuration.TotalMinutes

vMinDurationFileName = foundFile

End If

'=== ЕСЛИ vMinDuration > 60 минут, то требуется убить qv.exe и рестартануть NPrinting службу

If vMinDuration > 60 Then

'=== 1. KILL Qv.exe

For p As Integer = processes.Count - 1 To 0 Step -1

processName = processes(p).ProcessName.ToLower()

If processName = "qv" Then

'=== УБИТЬ ПРОЦЕСС NPrintingService.exe

processes(p).Kill()

'=== ЖДЕМ 3 секунды

'Console.WriteLine("Ждем 3 секунды. " & processName & " завершен.")

Threading.Thread.Sleep(3000)

End If

'=== 2. KILL NPrintingSvc.exe

For p As Integer = processes.Count - 1 To 0 Step -1

processName = processes(p).ProcessName.ToLower()

If processName = "nprintingsvc" Then 'processName = "qv" Or

'=== УБИТЬ ПРОЦЕСС NPrintingService.exe

processes(p).Kill()

'=== ЖДЕМ 3 секунды

Threading.Thread.Sleep(3000)

'=== ЗАПУСКАЕМ NPrintingService

myController.ServiceName = "NPrintingService"

myController.MachineName = "server-qv-name"

myController.Start()

Threading.Thread.Sleep(1000)

End If

Else

Console.WriteLine("Рестарт не требуется")

End If

End Sub

End Module

PowerShell пример скрипта. Загрузка переменных из файла

22.01.2020 от Qlik Expert Russia

#==============================================================================================
# УСТАНОВКА ПЕРЕМЕННЫХ СКРИПТА
#==============================================================================================
    # ОБЩИЕ ПЕРЕМЕННЫЕ. ПОЛУЧАЕМ ДАТУ
    $dateTime        = Get-Date
    $vDateStr        = $dateTime.ToString('yyyyMMdd')
    
    Get-Content "D:\QVProject\QVDev\settings_powershell.txt" | Foreach-Object{
       $var = $_.Split('=')
       New-Variable -Name $var[0] -Value $var[1] -Force
    }

    #----------------------------------------------------
    # ПЕРЕМЕННЫЕ ДАТА И ВРЕМЯ ДЛЯ СРАВНЕНИЯ
    $vDateNow        = $dateTime.ToString('yyyyMMdd')
    $vTimeNow        = $dateTime.ToString('HHmm')
    
    #----------------------------------------------------
    # ФАЙЛ ЛОГА    
    $vLogFile = "$vDirQVProject\QVLog\CheckTiSNew_$vDateStr.log"
    
    #----------------------------------------------------
    # ДИРЕКТОРИИ QVD-ФАЙЛОВ
    $vQvdDir_DataTemp = "$vDirQVProject\QVData\DataTemp"
    
    $vTisQvwDir       = "$vDirQVProject\QVApp"
    

#==============================================================================================
# ФУНКЦИИ
#==============================================================================================
    # ФУНКЦИЯ ЗАПИСИ ЛОГА
    Function LogWrite
    {
       Param ([string]$logstring)

        if (!(Test-Path $vLogFile)) {

            Add-content $vLogFile -value "Запущено DateTime|Сообщение"

        }

       $vLogDateTime = Get-Date -format "yyyy.MM.dd HH:mm:ss"
       Add-content $vLogFile -value "$vLogDateTime|$logstring"
    }

    #----------------------------------------------------

    # КОНВЕРТИРУЕМ ВРЕМЯ ПОЛУЧЕННОЕ С МОСКОВСКОГО СЕРВЕРА НА МОСКОВСКОЕ ВРЕМЯ, ИНАЧЕ ВИНДА ОТОБРАЖАЕТ В МЕСТНОЙ ЗОНЕ ВРЕМЯ
    Function ConvertLocalTimeToMoscow {
        Param ([Datetime]$vTimeParam)
        $vTimeMoscow = [System.TimeZoneInfo]::ConvertTimeBySystemTimeZoneId($vTimeParam, 'Russian Standard Time')
        Return $vTimeMoscow
    }

    #----------------------------------------------------

    # ПОЛУЧАЕМ MIN ВРЕМЯ И ДАТУ ОБНОВЛЕНИЯ ФАЙЛОВ QVD
    Function GetMinDateTimeFromTisTables {
       Param ([string]$vDir_Param,[string]$vFilialPrefix,[string]$vTypeReturn,[string]$vTimeZone)
        $vMinTime = ""
        $vMinDate = ""
        $vMinFileName = ""
        $PC = Get-Content "\\qvserver\c$\Files\Tis_TableList.txt"
        Foreach ($obj in $PC) {
            if ( ($obj -ne "") -and ($obj -notlike "TablesLoad") ){
                $vFileName = $obj+"_"+$vFilialPrefix+"*.qvd"
                $vDateTime = (Get-Item "$vDir_Param\$vFileName").LastWriteTime
                #$vTime = (Get-Item "$vDir_Param\$vFileName").LastWriteTime.toString("yyyy.MM.dd HH:mm:ss")
                #$vDate = (Get-Item "$vDir_Param\$vFileName").LastWriteTime.toString("yyyyMMdd")

                # Если moscow, то переводим в Russian Standard Time
                if ($vTimeZone -eq "moscow") {
                    $vDateTime = ConvertLocalTimeToMoscow $vDateTime
                    
                }

                #Получаем дату и время
                $vTime = $vDateTime.toString("yyyy.MM.dd HH:mm:ss")
                $vDate = $vDateTime.toString("yyyyMMdd")

                if (($vMinTime -ne "") -and ($vMinTime -ne $null))  {
                    if($vTime -le $vMinTime){
                        $vMinTime = $vTime
                        $vMinDate = $vDate
                        $vMinFileName = $vFileName
                    }
                }
                else {
                    $vMinTime = $vTime
                    $vMinDate = $vDate
                    $vMinFileName = $vFileName
                }
        
            }
        }

        if($vTypeReturn -eq "date") {
            return $vMinDate
        }
        elseif($vTypeReturn -eq "time"){
            return $vMinTime
        }
        elseif($vTypeReturn -eq "filename"){
            return $vMinFileName
        }
    }

    Function GetFileTime {
       Param ([string]$vDir_Param,[string]$vFile)
       return (Get-Item $vDir_Param\$vFile).LastWriteTime.toString("yyyy.MM.dd HH:mm:ss.fff")
    }

    Function GetMinLogTime {
       Param ([string]$vDir_Param,[string]$vFile)
       $vFiles = @(Get-ChildItem -Path $vDir_Param\$vFile | sort LastWriteTime | select Name -last 1)
       $vFilesName = $vFiles.Name
       return (Get-Item $vDir_Param\$vFilesName).LastWriteTime.toString("yyyy.MM.dd HH:mm:ss.fff")
    }

#==============================================================================================
# ШАГ 1: Получаем дату и время обновления
#==============================================================================================
    #При каждом старте PowerShell фиксируем старт
    LogWrite("Старт")

    # ПОЛУЧАЕМ MIN ДАТЫ ОБНОВЛЕНИЯ ФАЙЛОВ QVD В ДИРЕКТОРИИ
    # Дата время: Откуда файлы должны уйти
    $vDataTemp_MinDate = GetMinDateTimeFromTisTables $vQvdDir_DataTemp $vFilialPrefix "date" "local"
    $vDataTemp_MinTime = GetMinDateTimeFromTisTables $vQvdDir_DataTemp $vFilialPrefix "time" "local"

    # Дата время: Куда должны уйти
    $vServerQV_MinDate = GetMinDateTimeFromTisTables $vQvdDir_ServerQV $vFilialPrefix "date" "moscow"
    $vServerQV_MinTime = GetMinDateTimeFromTisTables $vQvdDir_ServerQV $vFilialPrefix "time" "moscow"

    #-----------------------------------------------

    # Дата время: QlikView TIS
    $vTisScript_Date = GetFileTime $vTisQvwDir "Extractor_TiS_qv.qvw"
    $vTisScript_Time = GetFileTime $vTisQvwDir "Extractor_TiS_qv.qvw"

    # Дата время: QlikView TIS LOG
    $vTisScriptLog_Date = GetMinLogTime $vTisQvwDir "Extractor_TiS_qv*.qvw.log"
    $vTisScriptLog_Time = GetMinLogTime $vTisQvwDir "Extractor_TiS_qv*.qvw.log"

    # ОТЛАДКА потом удалить
    LogWrite("$vQvdDir_DataTemp $vDataTemp_MinTime")
    LogWrite("$vQvdDir_ServerQV $vServerQV_MinTime")
    LogWrite("$vTisQvwDir $vTisScript_Time")

#==============================================================================================
# ШАГ 2: ЕСЛИ QVD В ПАПКЕ $vQvdDir_DataTemp СТАРЫЕ (ОТЛИЧАЮТСЯ ОТ СЕГОДНЯШНЕЙ ДАТЫ),
#        ТО ЗАПУСКАЕМ ПОВТОРНЫЙ EXTRACT
#==============================================================================================
    
    # ПОВЕРЯЕМ Выполняется ли сейчас скрипт EXTRACT
    # НАДО доработать на предмет, если еще выполняется скрипт 
    # и в логе нет ошибки, то прерываем скрипт PowerShell
    if( $TimeQvw -ge $TimeLog) {
        LogWrite("'Extractor_TiS_qv.qvw' сохранился сегодня")
		#TODO здесь нужно проверить дальше файлы QVD
		#Пока проверка в отдельной ветке
    }
    else {
        LogWrite("'Extractor_TiS_qv.qvw' еще не сохранился сегодня")
    }

    
    # Если Дата QVD Файлов в vQvdDir_ServerQV не соответствует текущей дате, то запускаем обновление
    if ( $vServerQV_MinDate -ne $vDateNow) {
        LogWrite("Не все QVD-файлы обновились на \\qvserver\DataTemp_TIS")

        # Если время запуска скрипта PowerShell входит в указанные интервалы, то осуществлять проверку
        if( ($vTimeNow -gt '0200' -and $vTimeNow -lt '0300') `
            -or ($vTimeNow -gt '0400' -and $vTimeNow -lt '0500') `
            -or ($vTimeNow -gt '0600' -and $vTimeNow -lt '0850')
           ){
                # Если все файлы в DataTemp обновились сегодня, то копируем
                if($vDataTemp_MinDate -ne $vDateNow){
                    #TODO копирование через ZIP
                    #TODO создание файла триггера
					LogWrite("Не все QVD-файлы обновились на в филиале в DataTemp")
                    Start-Process D:\QVProject\exctractor_tis_not_updated.cmd 
					LogWrite("Start-Process D:\QVProject\exctractor_tis_not_updated.cmd")
                }
                else {
                    #TODO Запупуск TIS EXTRACTOR
                    LogWrite("Не все QVD-файлы перенеслись на qvserver")
                    Start-Process D:\QVProject\exctractor_tis_not_updated.cmd #ПЕРЕДЕЛАТЬ (Нужно переделать на копирование файлов QVD в ZIP формате)
                    LogWrite("Start-Process D:\QVProject\exctractor_tis_not_updated.cmd")
                }
            }
    }
    else {
        LogWrite("QVD-файлы обновились на \\qvserver\DataTemp_TIS")
    }

 

#==============================================================================================
# УДАЛЯЕМ СТАРЫЕ ЛОГИ
#==============================================================================================

    $DestFolder = $vDirQVProject + "\QVLog\"

    # удаляем старые файл с логами (старше $Days дней)

    $Days = "10"
    $Now = Get-Date
    $LastLog = $Now.AddDays(-$Days)
    $Files = Get-ChildItem $DestFolder -Recurse | Where {$_.LastWriteTime -le $LastLog}

    Foreach ($File in $Files) {
        #Write-Host "Deleting File $File" -ForegroundColor DarkRed
        Remove-Item $File.FullName | Out-Null
    }

    # удаляем старые файлы с логами TiS_Script (старше $TiSScriptDays дней)

    $TiSScriptDays = "10"
    $LastTiSScriptLog = $Now.AddDays(-$TiSScriptDays)
    $TiSFolder = $vDirQVProject + "\QVApp\"
    $TiSScriptFiles = Get-ChildItem $TiSFolder -Include *.log -Recurse | Where {$_.LastWriteTime -le $LastTiSScriptLog}

    Foreach ($LogFile in $TiSScriptFiles) {
        #Write-Host "Deleting File $LogFile" -ForegroundColor DarkRed
        Remove-Item $LogFile.FullName | Out-Null
    }

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

#==============================================================================================

# УСТАНОВКА ПЕРЕМЕННЫХ СКРИПТА

#==============================================================================================

# ОБЩИЕ ПЕРЕМЕННЫЕ. ПОЛУЧАЕМ ДАТУ

$dateTime = Get-Date

$vDateStr = $dateTime.ToString('yyyyMMdd')

Get-Content "D:\QVProject\QVDev\settings_powershell.txt" | Foreach-Object{

$var = $_.Split('=')

New-Variable -Name $var[0] -Value $var[1] -Force

}

#----------------------------------------------------

# ПЕРЕМЕННЫЕ ДАТА И ВРЕМЯ ДЛЯ СРАВНЕНИЯ

$vDateNow = $dateTime.ToString('yyyyMMdd')

$vTimeNow = $dateTime.ToString('HHmm')

#----------------------------------------------------

# ФАЙЛ ЛОГА

$vLogFile = "$vDirQVProject\QVLog\CheckTiSNew_$vDateStr.log"

#----------------------------------------------------

# ДИРЕКТОРИИ QVD-ФАЙЛОВ

$vQvdDir_DataTemp = "$vDirQVProject\QVData\DataTemp"

$vTisQvwDir = "$vDirQVProject\QVApp"

#==============================================================================================

# ФУНКЦИИ

#==============================================================================================

# ФУНКЦИЯ ЗАПИСИ ЛОГА

Function LogWrite

{

Param ([string]$logstring)

if (!(Test-Path $vLogFile)) {

Add-content $vLogFile -value "Запущено DateTime|Сообщение"

}

$vLogDateTime = Get-Date -format "yyyy.MM.dd HH:mm:ss"

Add-content $vLogFile -value "$vLogDateTime|$logstring"

}

#----------------------------------------------------

# КОНВЕРТИРУЕМ ВРЕМЯ ПОЛУЧЕННОЕ С МОСКОВСКОГО СЕРВЕРА НА МОСКОВСКОЕ ВРЕМЯ, ИНАЧЕ ВИНДА ОТОБРАЖАЕТ В МЕСТНОЙ ЗОНЕ ВРЕМЯ

Function ConvertLocalTimeToMoscow {

Param ([Datetime]$vTimeParam)

$vTimeMoscow = [System.TimeZoneInfo]::ConvertTimeBySystemTimeZoneId($vTimeParam, 'Russian Standard Time')

Return $vTimeMoscow

}

#----------------------------------------------------

# ПОЛУЧАЕМ MIN ВРЕМЯ И ДАТУ ОБНОВЛЕНИЯ ФАЙЛОВ QVD

Function GetMinDateTimeFromTisTables {

Param ([string]$vDir_Param,[string]$vFilialPrefix,[string]$vTypeReturn,[string]$vTimeZone)

$vMinTime = ""

$vMinDate = ""

$vMinFileName = ""

$PC = Get-Content "\\qvserver\c$\Files\Tis_TableList.txt"

Foreach ($obj in $PC) {

if ( ($obj -ne "") -and ($obj -notlike "TablesLoad") ){

$vFileName = $obj+"_"+$vFilialPrefix+"*.qvd"

$vDateTime = (Get-Item "$vDir_Param\$vFileName").LastWriteTime

#$vTime = (Get-Item "$vDir_Param\$vFileName").LastWriteTime.toString("yyyy.MM.dd HH:mm:ss")

#$vDate = (Get-Item "$vDir_Param\$vFileName").LastWriteTime.toString("yyyyMMdd")

# Если moscow, то переводим в Russian Standard Time

if ($vTimeZone -eq "moscow") {

$vDateTime = ConvertLocalTimeToMoscow $vDateTime

}

#Получаем дату и время

$vTime = $vDateTime.toString("yyyy.MM.dd HH:mm:ss")

$vDate = $vDateTime.toString("yyyyMMdd")

if (($vMinTime -ne "") -and ($vMinTime -ne $null)) {

if($vTime -le $vMinTime){

$vMinTime = $vTime

$vMinDate = $vDate

$vMinFileName = $vFileName

}

else {

$vMinTime = $vTime

$vMinDate = $vDate

$vMinFileName = $vFileName

}

if($vTypeReturn -eq "date") {

return $vMinDate

}

elseif($vTypeReturn -eq "time"){

return $vMinTime

}

elseif($vTypeReturn -eq "filename"){

return $vMinFileName

}

Function GetFileTime {

Param ([string]$vDir_Param,[string]$vFile)

return (Get-Item $vDir_Param\$vFile).LastWriteTime.toString("yyyy.MM.dd HH:mm:ss.fff")

}

Function GetMinLogTime {

Param ([string]$vDir_Param,[string]$vFile)

$vFiles = @(Get-ChildItem -Path $vDir_Param\$vFile | sort LastWriteTime | select Name -last 1)

$vFilesName = $vFiles.Name

return (Get-Item $vDir_Param\$vFilesName).LastWriteTime.toString("yyyy.MM.dd HH:mm:ss.fff")

}

#==============================================================================================

# ШАГ 1: Получаем дату и время обновления

#==============================================================================================

#При каждом старте PowerShell фиксируем старт

LogWrite("Старт")

# ПОЛУЧАЕМ MIN ДАТЫ ОБНОВЛЕНИЯ ФАЙЛОВ QVD В ДИРЕКТОРИИ

# Дата время: Откуда файлы должны уйти

$vDataTemp_MinDate = GetMinDateTimeFromTisTables $vQvdDir_DataTemp $vFilialPrefix "date" "local"

$vDataTemp_MinTime = GetMinDateTimeFromTisTables $vQvdDir_DataTemp $vFilialPrefix "time" "local"

# Дата время: Куда должны уйти

$vServerQV_MinDate = GetMinDateTimeFromTisTables $vQvdDir_ServerQV $vFilialPrefix "date" "moscow"

$vServerQV_MinTime = GetMinDateTimeFromTisTables $vQvdDir_ServerQV $vFilialPrefix "time" "moscow"

#-----------------------------------------------

# Дата время: QlikView TIS

$vTisScript_Date = GetFileTime $vTisQvwDir "Extractor_TiS_qv.qvw"

$vTisScript_Time = GetFileTime $vTisQvwDir "Extractor_TiS_qv.qvw"

# Дата время: QlikView TIS LOG

$vTisScriptLog_Date = GetMinLogTime $vTisQvwDir "Extractor_TiS_qv*.qvw.log"

$vTisScriptLog_Time = GetMinLogTime $vTisQvwDir "Extractor_TiS_qv*.qvw.log"

# ОТЛАДКА потом удалить

LogWrite("$vQvdDir_DataTemp $vDataTemp_MinTime")

LogWrite("$vQvdDir_ServerQV $vServerQV_MinTime")

LogWrite("$vTisQvwDir $vTisScript_Time")

#==============================================================================================

# ШАГ 2: ЕСЛИ QVD В ПАПКЕ $vQvdDir_DataTemp СТАРЫЕ (ОТЛИЧАЮТСЯ ОТ СЕГОДНЯШНЕЙ ДАТЫ),

# ТО ЗАПУСКАЕМ ПОВТОРНЫЙ EXTRACT

#==============================================================================================

# ПОВЕРЯЕМ Выполняется ли сейчас скрипт EXTRACT

# НАДО доработать на предмет, если еще выполняется скрипт

# и в логе нет ошибки, то прерываем скрипт PowerShell

if( $TimeQvw -ge $TimeLog) {

LogWrite("'Extractor_TiS_qv.qvw' сохранился сегодня")

#TODO здесь нужно проверить дальше файлы QVD

#Пока проверка в отдельной ветке

}

else {

LogWrite("'Extractor_TiS_qv.qvw' еще не сохранился сегодня")

}

# Если Дата QVD Файлов в vQvdDir_ServerQV не соответствует текущей дате, то запускаем обновление

if ( $vServerQV_MinDate -ne $vDateNow) {

LogWrite("Не все QVD-файлы обновились на \\qvserver\DataTemp_TIS")

# Если время запуска скрипта PowerShell входит в указанные интервалы, то осуществлять проверку

if( ($vTimeNow -gt '0200' -and $vTimeNow -lt '0300') `

-or ($vTimeNow -gt '0400' -and $vTimeNow -lt '0500') `

-or ($vTimeNow -gt '0600' -and $vTimeNow -lt '0850')

){

# Если все файлы в DataTemp обновились сегодня, то копируем

if($vDataTemp_MinDate -ne $vDateNow){

#TODO копирование через ZIP

#TODO создание файла триггера

LogWrite("Не все QVD-файлы обновились на в филиале в DataTemp")

Start-Process D:\QVProject\exctractor_tis_not_updated.cmd

LogWrite("Start-Process D:\QVProject\exctractor_tis_not_updated.cmd")

}

else {

#TODO Запупуск TIS EXTRACTOR

LogWrite("Не все QVD-файлы перенеслись на qvserver")

Start-Process D:\QVProject\exctractor_tis_not_updated.cmd #ПЕРЕДЕЛАТЬ (Нужно переделать на копирование файлов QVD в ZIP формате)

LogWrite("Start-Process D:\QVProject\exctractor_tis_not_updated.cmd")

}

else {

LogWrite("QVD-файлы обновились на \\qvserver\DataTemp_TIS")

}

#==============================================================================================

# УДАЛЯЕМ СТАРЫЕ ЛОГИ

#==============================================================================================

$DestFolder = $vDirQVProject + "\QVLog\"

# удаляем старые файл с логами (старше $Days дней)

$Days = "10"

$Now = Get-Date

$LastLog = $Now.AddDays(-$Days)

$Files = Get-ChildItem $DestFolder -Recurse | Where {$_.LastWriteTime -le $LastLog}

Foreach ($File in $Files) {

#Write-Host "Deleting File $File" -ForegroundColor DarkRed

Remove-Item $File.FullName | Out-Null

}

# удаляем старые файлы с логами TiS_Script (старше $TiSScriptDays дней)

$TiSScriptDays = "10"

$LastTiSScriptLog = $Now.AddDays(-$TiSScriptDays)

$TiSFolder = $vDirQVProject + "\QVApp\"

$TiSScriptFiles = Get-ChildItem $TiSFolder -Include *.log -Recurse | Where {$_.LastWriteTime -le $LastTiSScriptLog}

Foreach ($LogFile in $TiSScriptFiles) {

#Write-Host "Deleting File $LogFile" -ForegroundColor DarkRed

Remove-Item $LogFile.FullName | Out-Null

}

QlikView API Экспорт значений переменных из InputBox в текстовый файл

14.01.2020 от Qlik Expert Russia

Dim qvPath As String, qvTargetAppName As String
Dim Qv As Object, fs As Object, txtFileObj As Object, rowText As String
Dim qvDocObjTarget As Object, InputBoxData As Object
Dim strTextFile As String

qvPath = "C:\VisualStudioProjects\"
Qv = CreateObject("QlikTech.QlikView")
fs = CreateObject("Scripting.FileSystemObject")
strTextFile = qvPath &amp; "Variables\InputBoxFile.txt"


qvTargetAppName = "Приложение с InputBox.qvw"

qvDocObjTarget = Qv.OpenDoc(qvPath &amp; qvTargetAppName, 3, False)

InputBoxData = qvDocObjTarget.GetSheetObject("IB03")


txtFileObj = fs.CreateTextFile(strTextFile, 2, True)

For iRowIB = 0 To InputBoxData.GetNoOfRows - 1
	rowText = InputBoxData.GetCell(iRowIB, 0).Text &amp; "|" &amp; InputBoxData.GetCell(iRowIB, 2).Text
	txtFileObj.WriteLine(rowText)
Next
txtFileObj.Close

qvDocObjTarget.Save
qvDocObjTarget.CloseDoc
Qv.Quit

Dim qvPath As String, qvTargetAppName As String

Dim Qv As Object, fs As Object, txtFileObj As Object, rowText As String

Dim qvDocObjTarget As Object, InputBoxData As Object

Dim strTextFile As String

qvPath = "C:\VisualStudioProjects\"

Qv = CreateObject("QlikTech.QlikView")

fs = CreateObject("Scripting.FileSystemObject")

strTextFile = qvPath & "Variables\InputBoxFile.txt"

qvTargetAppName = "Приложение с InputBox.qvw"

qvDocObjTarget = Qv.OpenDoc(qvPath & qvTargetAppName, 3, False)

InputBoxData = qvDocObjTarget.GetSheetObject("IB03")

txtFileObj = fs.CreateTextFile(strTextFile, 2, True)

For iRowIB = 0 To InputBoxData.GetNoOfRows - 1

rowText = InputBoxData.GetCell(iRowIB, 0).Text & "|" & InputBoxData.GetCell(iRowIB, 2).Text

txtFileObj.WriteLine(rowText)

txtFileObj.Close

qvDocObjTarget.Save

qvDocObjTarget.CloseDoc

Qv.Quit

Создать объекты листа из XML – QlikView 12.40 API vb.net

31.12.2019 от Qlik Expert Russia

        '=== ОБЪЯВЛЯЕМ ПЕРЕМЕННЫЕ ===
        Dim Qv As Object, qvActiveSheet As Object, qvSheetObjects As Object
        Dim fs As Object, xmlFileObj As Object
        Dim qvDocObjSource As Object
        Dim qvDocObjTarget As Object
        Dim vFileName As String, vXMLPath As String, vXMLFileName As String, qvPath As String
        Dim list As New ArrayList()

        '=== СОЗДАЕМ ОБЪЕКТЫ, КОТОРЫЕ В ДАЛЬНЕЙШЕМ БУДЕМ ИСПОЛЬЗОВАТЬ ===
        Qv = CreateObject("QlikTech.QlikView")
        fs = CreateObject("Scripting.FileSystemObject")

        qvPath = "C:\QVApp\"
        qvDocObjSource = Qv.OpenDoc(qvPath &amp; "Приложение источник.qvw", 3, False)


        qvActiveSheet = qvDocObjSource.ActivateSheetById("SH02")
        qvSheetObjects = qvActiveSheet.GetSheetObjects()
        vXMLPath = "C:\QVApp\XML\"

        For Each element In qvSheetObjects
            vFileName = element.GetObjectId.Replace("Document\", "")
            list.Add(vFileName.ToString())
            vXMLFileName = vXMLPath &amp; vFileName &amp; ".xml"
            xmlFileObj = fs.CreateTextFile(vXMLFileName, 2, True)
            xmlFileObj.Close
            Console.WriteLine(vFileName)
            element.WriteXmlPropertiesFile(vXMLFileName)
        Next

        qvDocObjSource.CloseDoc

        qvDocObjTarget = Qv.OpenDoc(qvPath &amp; "Пустое приложение.qvw", 3, False)

        'qvDocObjTarget.CreateSheet("SH0999")

        For Each fileNameInList In list
            vXMLFileName = vXMLPath &amp; fileNameInList &amp; ".xml"
            qvDocObjTarget.GetSheetById("SH02").CreateObjectFromXmlPropertiesFile(vXMLFileName)
        Next

        MsgBox("Press Key")

'=== ОБЪЯВЛЯЕМ ПЕРЕМЕННЫЕ ===

Dim Qv As Object, qvActiveSheet As Object, qvSheetObjects As Object

Dim fs As Object, xmlFileObj As Object

Dim qvDocObjSource As Object

Dim qvDocObjTarget As Object

Dim vFileName As String, vXMLPath As String, vXMLFileName As String, qvPath As String

Dim list As New ArrayList()

'=== СОЗДАЕМ ОБЪЕКТЫ, КОТОРЫЕ В ДАЛЬНЕЙШЕМ БУДЕМ ИСПОЛЬЗОВАТЬ ===

Qv = CreateObject("QlikTech.QlikView")

fs = CreateObject("Scripting.FileSystemObject")

qvPath = "C:\QVApp\"

qvDocObjSource = Qv.OpenDoc(qvPath & "Приложение источник.qvw", 3, False)

qvActiveSheet = qvDocObjSource.ActivateSheetById("SH02")

qvSheetObjects = qvActiveSheet.GetSheetObjects()

vXMLPath = "C:\QVApp\XML\"

For Each element In qvSheetObjects

vFileName = element.GetObjectId.Replace("Document\", "")

list.Add(vFileName.ToString())

vXMLFileName = vXMLPath & vFileName & ".xml"

xmlFileObj = fs.CreateTextFile(vXMLFileName, 2, True)

xmlFileObj.Close

Console.WriteLine(vFileName)

element.WriteXmlPropertiesFile(vXMLFileName)

qvDocObjSource.CloseDoc

qvDocObjTarget = Qv.OpenDoc(qvPath & "Пустое приложение.qvw", 3, False)

'qvDocObjTarget.CreateSheet("SH0999")

For Each fileNameInList In list

vXMLFileName = vXMLPath & fileNameInList & ".xml"

qvDocObjTarget.GetSheetById("SH02").CreateObjectFromXmlPropertiesFile(vXMLFileName)

MsgBox("Press Key")

PowerShell и API генерация формул (Expression) в объекте QlikView

31.12.2019 от Qlik Expert Russia

cd "C:\QVApp\Генерация чарта"
#Очищаем лог
Clear


#Открываем файл Excel с выражениями
$excelApp = New-Object -ComObject Excel.Application 
$excelApp.Visible = $true
$wb = $excelApp.Workbooks.Open("C:\QVApp\Генерация чарта\Expressions3.xlsx")

#Активируем нужный лист
$ws = $wb.worksheets | where {$_.name -eq "Лист1"} #&lt;------- Selects sheet 1
# Activate sheet 1
$ws.activate()

#Посчитаем количество строк
$mainRng = $ws.UsedRange.Cells 
$RowCount = $mainRng.Rows.Count 
$RowCount = $RowCount-1


#Открываем приложение QlikView
$objApp = new-object -comobject QlikTech.QlikView -strict
$objDoc = $objApp.OpenDoc("C:\QVApp\Генерация чарта\Temp3.qvw")

#Идентифицируем диаграмму
$objChart = $objDoc.GetSheetObject("CH01")

#условная видимость
#$objProperties.Expressions.Item(0).Item(0).Data.EnableCondition.Expression | gm

#Первый цикл - добавим сами выражения
$row=1
Do 
{
 $row = $row + 1
 $exp = $ws.Cells.Item($row,2).value()
 $objChart.AddExpression($exp)
}
until ($row -gt $RowCount)

#Идентифицируем своства диаграммы с уже созданными выражениями
$objProperties = $objChart.GetProperties()

#Второй цикл - назовем колонки
$row=1
Do 
{
 $row = $row + 1
 $lbl = $ws.Cells.Item($row,1).value()
 $def = $ws.Cells.Item($row,3).value()
 $textcolor = $ws.Cells.Item($row,4).value()
 $textformat = $ws.Cells.Item($row,5).value()
 $background = $ws.Cells.Item($row,6).value()
 
 $Dec = $ws.Cells.Item($row,7).value()
 
 $Fmt = $ws.Cells.Item($row,8).value()
 $nDec = $ws.Cells.Item($row,9).value()
 $Thou = $ws.Cells.Item($row,10).value()
 $Type = $ws.Cells.Item($row,11).value()
 $UseThou = $ws.Cells.Item($row,12).value()
 $Comment = $ws.Cells.Item($row,13).value()
 
 $objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.Label.v = $lbl
 $objProperties.Expressions.Item($row-1).Item(0).Data.EnableCondition.Type = 2
 $objProperties.Expressions.Item($row-1).Item(0).Data.EnableCondition.Expression = $def
 
 $objProperties.Expressions.Item($row-1).Item(0).Data.AttributeExpressions.TextColorExp.Definition.v = $textcolor
 $objProperties.Expressions.Item($row-1).Item(0).Data.AttributeExpressions.TextFmtExp.Definition.v = $textformat
 $objProperties.Expressions.Item($row-1).Item(0).Data.AttributeExpressions.BkgColorExp.Definition.v = $background
 
 $objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.Dec = $Dec
 $objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.Fmt = $Fmt
 $objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.nDec = $nDec
 $objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.Thou = $Thou
 $objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.Type = $Type
 $objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.UseThou = $UseThou
 $objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionData.Comment = $Comment
 
 $objChart.SetProperties($objProperties)
}
until ($row -gt $RowCount)

cd "C:\QVApp\Генерация чарта"

#Очищаем лог

Clear

#Открываем файл Excel с выражениями

$excelApp = New-Object -ComObject Excel.Application

$excelApp.Visible = $true

$wb = $excelApp.Workbooks.Open("C:\QVApp\Генерация чарта\Expressions3.xlsx")

#Активируем нужный лист

$ws = $wb.worksheets | where {$_.name -eq "Лист1"} #<------- Selects sheet 1

# Activate sheet 1

$ws.activate()

#Посчитаем количество строк

$mainRng = $ws.UsedRange.Cells

$RowCount = $mainRng.Rows.Count

$RowCount = $RowCount-1

#Открываем приложение QlikView

$objApp = new-object -comobject QlikTech.QlikView -strict

$objDoc = $objApp.OpenDoc("C:\QVApp\Генерация чарта\Temp3.qvw")

#Идентифицируем диаграмму

$objChart = $objDoc.GetSheetObject("CH01")

#условная видимость

#$objProperties.Expressions.Item(0).Item(0).Data.EnableCondition.Expression | gm

#Первый цикл - добавим сами выражения

$row=1

{

$row = $row + 1

$exp = $ws.Cells.Item($row,2).value()

$objChart.AddExpression($exp)

}

until ($row -gt $RowCount)

#Идентифицируем своства диаграммы с уже созданными выражениями

$objProperties = $objChart.GetProperties()

#Второй цикл - назовем колонки

$row=1

{

$row = $row + 1

$lbl = $ws.Cells.Item($row,1).value()

$def = $ws.Cells.Item($row,3).value()

$textcolor = $ws.Cells.Item($row,4).value()

$textformat = $ws.Cells.Item($row,5).value()

$background = $ws.Cells.Item($row,6).value()

$Dec = $ws.Cells.Item($row,7).value()

$Fmt = $ws.Cells.Item($row,8).value()

$nDec = $ws.Cells.Item($row,9).value()

$Thou = $ws.Cells.Item($row,10).value()

$Type = $ws.Cells.Item($row,11).value()

$UseThou = $ws.Cells.Item($row,12).value()

$Comment = $ws.Cells.Item($row,13).value()

$objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.Label.v = $lbl

$objProperties.Expressions.Item($row-1).Item(0).Data.EnableCondition.Type = 2

$objProperties.Expressions.Item($row-1).Item(0).Data.EnableCondition.Expression = $def

$objProperties.Expressions.Item($row-1).Item(0).Data.AttributeExpressions.TextColorExp.Definition.v = $textcolor

$objProperties.Expressions.Item($row-1).Item(0).Data.AttributeExpressions.TextFmtExp.Definition.v = $textformat

$objProperties.Expressions.Item($row-1).Item(0).Data.AttributeExpressions.BkgColorExp.Definition.v = $background

$objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.Dec = $Dec

$objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.Fmt = $Fmt

$objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.nDec = $nDec

$objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.Thou = $Thou

$objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.Type = $Type

$objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionVisual.NumberPresentation.UseThou = $UseThou

$objProperties.Expressions.Item($row-1).Item(0).Data.ExpressionData.Comment = $Comment

$objChart.SetProperties($objProperties)

}

until ($row -gt $RowCount)

Методы QlikView API 12.40 – приложение, документ

31.12.201931.12.2019 от Qlik Expert Russia

Методы уровня приложения QlikView

Name	MemberType	Definition
ActiveDocument	Method	Doc ActiveDocument ()
AvqInitServer	Method	bool AvqInitServer (string, IDispatch)
CreateDoc	Method	Doc CreateDoc ()
CreateEmptyReport	Method	IReport CreateEmptyReport ()
DeleteEfsFiles	Method	int DeleteEfsFiles (string, string)
DisableCtlBrk	Method	void DisableCtlBrk ()
DisableDialogs	Method	void DisableDialogs (bool)
DisableWebview	Method	void DisableWebview (bool)
DoLogProcessSummary	Method	bool DoLogProcessSummary ()
EnableCtlBrk	Method	void EnableCtlBrk ()
GetAffinity	Method	int GetAffinity (int)
GetCachePercentage	Method	int GetCachePercentage ()
GetCommittedMemory	Method	double GetCommittedMemory ()
GetCpuMilliseconds	Method	double GetCpuMilliseconds ()
GetDocumentInfo	Method	Variant GetDocumentInfo (string)
GetDocumentThumbNailEx	Method	IReturn13 GetDocumentThumbNailEx (string, string)
GetEfsToc	Method	IReturn11 GetEfsToc (string, string)
GetElapsedMilliseconds	Method	double GetElapsedMilliseconds ()
GetEmptyRect	Method	IRect GetEmptyRect ()
GetMajorVersionDate	Method	string GetMajorVersionDate ()
GetProcessId	Method	int GetProcessId ()
GetProcessName	Method	string GetProcessName (int)
GetProcessSummary	Method	IProcessSummary GetProcessSummary ()
GetProperties	Method	IApplicationProperties GetProperties ()
GetRunLevel	Method	short GetRunLevel ()
GetServerDocList	Method	IArrayOfDocListEntry GetServerDocList (string)
GetSolidColorArea	Method	IColorAreaDef GetSolidColorArea (short, short, short)
GetTotalPhysicalMemory	Method	double GetTotalPhysicalMemory ()
GetUserPreferences	Method	IUserPreferences GetUserPreferences ()
InitCpuAndMemMonitor	Method	bool InitCpuAndMemMonitor ()
InputBox	Method	string InputBox (string, string)
InputBoxEx	Method	string InputBoxEx (string, string)
Launch	Method	bool Launch (string, string)
LoadNewerDoc	Method	bool LoadNewerDoc ()
MsgBox	Method	int MsgBox (string, int)
OpenDoc	Method	Doc OpenDoc (string, string, string, string)
OpenDocEx	Method	Doc OpenDocEx (string, short, bool, string, string, string, bool, bool)
OSName	Method	string OSName ()
OSVersion	Method	string OSVersion ()
PerformLef	Method	bool PerformLef ()
PerformRegistration	Method	bool PerformRegistration ()
QTProduct	Method	string QTProduct ()
Quit	Method	void Quit (int)
QvVersion	Method	string QvVersion ()
ReadEfsFile	Method	IReturn12 ReadEfsFile (string, string)
Refresh	Method	void Refresh ()
RemoveAllBuffers	Method	int RemoveAllBuffers ()
RevokeClassObjects	Method	void RevokeClassObjects ()
ScreenHeight	Method	int ScreenHeight ()
ScreenWidth	Method	int ScreenWidth ()
SetAffinity	Method	int SetAffinity (int, int)
SetCachePercentage	Method	void SetCachePercentage (int)
SetProperties	Method	void SetProperties (IApplicationProperties)
SetUserPreferences	Method	void SetUserPreferences (IUserPreferences)
ShowBookmarksBar	Method	void ShowBookmarksBar (int)
ShowDesignBar	Method	void ShowDesignBar (int)
ShowMenuBar	Method	void ShowMenuBar (int)
ShowNavigationBar	Method	void ShowNavigationBar (int)
ShowSelectionWindow	Method	bool ShowSelectionWindow (bool)
ShowSheetsBar	Method	void ShowSheetsBar (int)
ShowStandardBar	Method	void ShowStandardBar (int)
ShowStatusBar	Method	void ShowStatusBar (bool)
Sleep	Method	void Sleep (int)
WaitForIdle	Method	bool WaitForIdle (int)
WriteEfsFile	Method	bool WriteEfsFile (string, string, Variant)
XmlUpdate	Method	string XmlUpdate (string)