Парсинг всех 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

0 0 голос

Рейтинг статьи