Опустошаем существующий QVD файл

День добрый, коллеги.

Сегодня натолкнулся на один интересный пост нашего австрийского коллеги по цеху. Пост этот об удалении существующих QVD файлов через QlikView скрипт. Штефан (автор блога и поста) рассказывает о целых 3х способах для удаления/очищения QVD. Первые два представляют собой вызов либо внутреннего макроса для удаления, либо вызов батника (командного файла), посредством выполнения команды EXECUTE. Оба этих способа сопряжены с предоставлением особых привилегий либо макро-модулю, либо сценарию загрузки. Штефан более подробно и с картинками об этом честно рассказывает, поэтому здесь я не стану на этом детально останавливаться...

А вот что касается третьего способа, то тут у меня есть небольшие мысли относительно небольшой оптимизации процедуры очищения QVD-файла.

Штефан предлагает вот такую процедуру очистки QVD файла:

Показать...

Sub EmptyQvd(qvdFilePath)

1 TRACE --;
2 TRACE Запуск EmptyQvd для файла $(qvdFilePath);

3 // Сначала проверяем существует ли qvd файл
4 if (not IsNull(QvdCreateTime(qvdFilePath))) then
5 TRACE ... файл существует ...;

6 // проверяем есть ли записи в Qvd-файле
7 if(QvdNoOfRecords(qvdFilePath) > 0) then

8 // Получаем первое поле из QVD для создания «фейкового»
9 // условия "WHERE EXISTS"
10 LET vFieldName = QvdFieldName(qvdFilePath,1);

11 //Далее создаем случайное значение, которое не может
12 //существовать в нашем файле
13 FakeFieldTable:
14 LOAD
15 //Создание «фейкового» значения, которое никогда не может
16 //быть найдено в имеющемся QVD
17 'FakeField' & 'ABCDEFGHIJKLMNOPQRSTWXYZ' &
18 text(round(rand())) as [$(vFieldName)]
19 AutoGenerate(1);

20 //Создание временной таблицы со случайным названием для предотвращения
21 //возможных коллизий с уже имеющимися в памяти таблицами
22 LET vTempTableName ='_TempTableName' & text(round(rand() * pow(9,10)));
23
24
25 //Загрузка QVD-файла с условием проверки EXISTS , которое не
26 //может быть найдено в QVD-файле; таким образом результатом
27 //будет пустая таблица со всеми полями из QVD-файла
28 $(vTempTableName):
29 LOAD
30 *,
31 1 as loadEnabler
32 FROM '$(qvdFilePath)' (qvd)
33 WHERE Exists([$(vFieldName)]);

34 //Сохраняем пустую таблицу в тот же самый QVD-файл
35 STORE $(vTempTableName) INTO $(qvdFilePath) (qvd);
36 DROP TABLE $(vTempTableName);
37 DROP TABLE FakeFieldTable;
38 end if
39 else
40 TRACE ... файл '$(qvdFilePath)' не существует;
41 end if
42 TRACE Окончание процедуры EmptyQvd;
43 TRACE --;

End Sub

В этом коде меня смутил один излишний, на мой взгляд, шаг. А именно, создание временной «фейковой» таблицы FakeFieldTable со случайным значением для последующей проверки со значениями из QVD файла. На мой взгляд, этот шаг (строки с 11ой по 19ую включительно) можно смело исключить из данной процедуры. Ведь, как я уже писал, функция Exists() может выполнять проверку внутри одного и того же оператора загрузки LOAD. Иначе говоря, нам необязательно иметь в памяти предварительно загруженное поле, чтобы использовать его в качестве параметра для функции Exists() (как это делает Штефан). Пример с реализацией выше озвученной мысли можно взять здесь.

ОБНОВЛЕНО 01-04-2011 (и это не первоапрельская шутка):

Как оказалось есть еще более простой способ обнулить существующий QVD файл и выглядит он примерно вот так:

QVDTable:
LOAD *
FROM '$(qvdFilePath)' (qvd)
WHERE 1=0;

//Сохраняем пустую таблицу в тот же самый QVD-файл
STORE QVDTable INTO $(qvdFilePath) (qvd);