Example of a Custom Data Extraction Algorithm

Add links to the Dt, Xml system assemblies.

Public Class MyDtCustomConsumer: object, IDtCustomConsumer
    m_Active: Boolean;
    c: IDtTextConsumer;
    fs: IDtFieldDefinitions;
    _mb: IMetabase;
    keep: boolean;
    
    Public Constructor MyDtCustomConsumer;
    Begin
        m_Active := False;
    End Constructor MyDtCustomConsumer;
    
    Public Property Fields: IDtFieldDefinitions
    Get
    Begin
        If c = Null Then
            c := New DtTextConsumer.Create;
        End If;
        Return c.Fields;
    End Get
    End Property Fields;
    
    Public Property Active: Boolean
    Get
    Begin
        Return m_Active;
    End Get
    End Property Active;
    
    Public Sub Open;
    Var
        i: Integer;
        Field: IDtFieldDefinition;
    Begin
        m_Active := True;
        If c = Null Then
            c := New DtTextConsumer.Create;
        End If;
        c.File := "C:\Data_Out.txt";
        c.WriteHeader := True;
        For i := 0 To fs.Count - 1 Do
            Field := c.Fields.Add;
            Field.DataType := fs.Item(i).DataType;
            Field.Name := fs.Item(i).Name;
        End For;
        c.Open;
    End Sub Open;
    
    Public Sub Close;
    Begin
        m_Active := False;
    End Sub Close;
    
    Public Sub Save(Element: IXMLDOMElement);
    Begin
        c.Save(Element);
    End Sub Save;
    
    Public Sub Load(Element: IXMLDOMElement);
    Begin
        If c = Null Then
            c := New DtTextConsumer.Create;
        End If;
        c.Load(Element);
    End Sub Load;
    
    Public Sub FieldsFromFile;
    Begin
        c.FieldsFromFile;
    End Sub FieldsFromFile;
    
    Public Property GetType: DtObjectType
        Get
        Begin
            Return DtObjectType.TDtExcelConsumer;
        End Get
    End Property GetType;
    
    Public Sub ClearFields;
    Begin
        c.ClearFields;
    End Sub ClearFields;
    
    Public Sub Clear;
    Begin
        c.Clear;
    End Sub Clear;
    
    Public Sub Put(Values: Array);
    Begin
        c.Put(Values);
    End Sub Put;
    
    Public Sub PutRow(Values: Array);
    Begin
        c.PutRow(Values);
    End Sub PutRow;
    
    
    Public Sub PutData(Var Values: Object; RowCount: Integer; ColCount: Integer);
    Begin
        
    End Sub PutData;
    
    Public Function WritingRowsCount: Integer;
    Begin
        Return c.WritingRowsCount;
    End Function WritingRowsCount;
    
    Public Function ImplementPut: Boolean;
    Begin
        Return True;
    End Function ImplementPut;
    
    Function get_fields: IDtFieldDefinitions;
    Begin
        If fs = Null Then
            fs := New DtFieldDefinitions.Create;
        End If;
        Return fs;
    End Function get_fields;
    
    Function get_active: boolean;
    Begin
        Return m_Active;
    End Function get_active;
    
    Function get_getType: dtobjecttype;
    Begin
        Return dtobjecttype.TDtUserConsumerEx
    End Function get_getType;
    Public Function get_Metabase: IMetabase;
 Begin
Return _mb;
 End Function get_Metabase;

 Public Sub set_Metabase(metabase: IMetabase);
Begin
  _mb := metabase;
 End Sub set_Metabase;
 
Function get_KeepCalcFields: Boolean;
 Begin
  Return keep;
 End Function get_KeepCalcFields;
 
 Sub set_KeepCalcFields(Value: Boolean);
Begin
  keep := Value;
End Sub set_KeepCalcFields;

End Class MyDtCustomConsumer;

Imports Prognoz.Platform.Interop.Dt;
Imports Prognoz.Platform.Interop.MsXml2;
Imports Prognoz.Platform.Interop.Metabase;

Public Class MyDtCustomConsumer: object, IDtCustomConsumer
    m_Active: Boolean;
    c: IDtTextConsumer;
    fs: IDtFieldDefinitions;
    _mb: IMetabase;
    keep: boolean;
    
    Public Constructor MyDtCustomConsumer();
    Begin
        m_Active := False;
    End Constructor MyDtCustomConsumer;
    
    Public Property Fields: DtFieldDefinitions
    Get
    Begin
        If c = Null Then
            c := New DtTextConsumer.Create();
        End If;
    Return c.Fields;
    End Get
    End Property Fields;
    
    Public Property Active: Boolean
    Get
    Begin
        Return m_Active;
    End Get
    End Property Active;
    
    Public Sub Open();
    Var
        i: Integer;
        Field: IDtFieldDefinition;
    Begin
        m_Active := True;
        If c = Null Then
            c := New DtTextConsumer.Create();
        End If;
        c.File := "C:\Data_Out.txt";
        c.WriteHeader := True;
        c.Open();
    End Sub Open;
    
    Public Sub Close();
    Begin
        m_Active := False;
    End Sub Close;
    
    Public Sub Save(Element: IXMLDOMElement);
    Begin
        c.Save(Element);
    End Sub Save;
    
    Public Sub Load(Element: IXMLDOMElement);
    Begin
        If c = Null Then
            c := New DtTextConsumer.Create();
        End If;
        c.Load(Element);
    End Sub Load;
    
    Public Sub FieldsFromFile();
    Begin
        c.FieldsFromFile();
    End Sub FieldsFromFile;
    
    Public Property GetType: DtObjectType
        Get
        Begin
            Return DtObjectType.TDtExcelConsumer;
        End Get
    End Property GetType;
    
    Public Sub ClearFields();
    Begin
        c.ClearFields();
    End Sub ClearFields;
    
    Public Sub Clear();
    Begin
        c.Clear();
    End Sub Clear;
    
    Public Sub Put(Values: Array);
    Begin
        c.Put(Values);
    End Sub Put;
    
    Public Sub PutRow(Values: Array);
    Begin
        c.PutRow(Values);
    End Sub PutRow;
    
    
    Public Sub PutData(Var Values: Object; RowCount: Integer; ColCount: Integer);
    Begin
        
    End Sub PutData;
    
    Public Function WritingRowsCount(): Integer;
    Begin
        Return c.WritingRowsCount();
    End Function WritingRowsCount;
    
    Public Function ImplementPut(): Boolean;
    Begin
        Return True;
    End Function ImplementPut;
    
    Public Function get_Metabase(): IMetabase;
    Begin
        Return _mb;
    End Function get_Metabase;

    Public Sub set_Metabase(metabase: IMetabase);
    Begin
        _mb := metabase;
    End Sub set_Metabase;

    Function get_KeepCalcFields(): Boolean;
    Begin
        Return keep;
    End Function get_KeepCalcFields;
 
    Sub set_KeepCalcFields(Value: Boolean);
    Begin
        keep := Value;
    End Sub set_KeepCalcFields;

End Class MyDtCustomConsumer;