ICubeLoaderFromSource.LoadWithResult

CreateInfo. Information about the created object. If information is missing or loading to the current object is executed, the Null value must be passed as a parameter.

Description

Comments

Fore Example

Add links to the Collections, Cubes, Dimensions, Dt, Metabase, Rds system assemblies.

"INDICATOR";"CITY";"Year";"Value"

"Population, mln people";"Chicago";"2010";17,314

"Population, mln. people";"Chicago";"2011";17,93

"Population, mln. people";"Chicago";"2012";17,603

"Population, mln. people";"Chicago";"2013";17,603

"Population, mln. people";"Chicago";"2014";17,566

"Population, mln. people";"Chicago";"2015";17,975

"Population, mln. people";"Chicago";"2010";17,314

"Population, mln. people";"Chicago";"2011";17,93

"Unemployment rate, %";"Chicago";"2010";81,2726319

"Unemployment rate, %";"Chicago";"2011";9,12417907

"Unemployment rate, %";"Chicago";"2012";36,50366842

"Unemployment rate, %";"Chicago";"2013";22,35032041

"Unemployment rate, %";"Chicago";"2014";97,99169619

"Unemployment rate, %";"Chicago";"2015";23,13102147

"Population, mln. people";"Anchorage";"2010";17,314

"Population, mln. people";"Anchorage";"2011";17,93

"Population, mln. people";"Anchorage";"2012";17,603

"Population, mln. people";"Anchorage";"2013";17,603

"Population, mln. people";"Anchorage";"2014";17,566

"Population, mln. people";"Anchorage";"2015";17,975

"Unemployment rate, %";"Mexico";"2010";15,256

"Unemployment rate, %";"Mexico";"2011";15,59

"Unemployment rate, %";"Mexico";"2012";16,57

"Unemployment rate, %";"Mexico";"2013";16,57

"Unemployment rate, %";"Mexico";"2014";16,762

"Unemployment rate, %";"Mexico";"2015";17,132

Sub UserProc; Var     mb: IMetabase;     parent: IMetabaseObject;     rdsDatabase: IRdsDatabase;     loader: ICubeLoaderFromSource;     DimBindings: ICubeLoaderDimensionBindings;     bind: ICubeLoaderDimensionBinding;     DimModel: IDimensionModel;     Calend: ICubeLoaderDimensionBinding;     DateConv: IDateConverter;     creator: IDtObjectCreator;     prov: IDtTextProvider;     Result: ICubeLoaderResult;     Object: IMetabaseObject;     List, Arr: IArrayList;     Item: Variant;     i: Integer; Begin     // Get current repository     mb := MetabaseClass.Active;     // Get the TSDB_FOLDER where time series database     // will be created     parent := mb.ItemById("TSDB_FOLDER").Bind;     // Get MDM repository     rdsDatabase := mb.ItemById("RDS_LOAD").Bind As IRdsDatabase;     // Create object to load data     loader := New CubeLoaderFromSource.Create;     // Specify an MDM repository which will be used on loading     loader.RdsDatabase := rdsDatabase.Open(Null);     // Specify that time series database will be created     // for loaded data     loader.Type := CubeLoaderType.Rubricator;     // Specify folder where time series database will be created     loader.Parent := parent;     // Get dimension bindings to data source fields     DimBindings := loader.DimensionBindings;     // Add binding for the CITY field     bind := DimBindings.Add("CITY");     // Specify that the field will correspond  to dimension     // based on the CITY_DICT MDM dictionary     DimModel := mb.ItemById("CITY_DICT").Bind As IDimensionModel;     bind.Dictionary := DimModel;     // Specify index by which binding is created     bind.Index := DimModel.Indexes.FindById("UINDEX");     // Specify attribute identifier which is used to build index     bind.AttributeId := "NAME";     // Add binding for the INDICATOR field.     // Dictionary to create a dimension corresponding to the field     // will be created automatically in the MDM repository «RDS_LOAD»     DimBindings.Add("INDICATOR");     // Add binding for calendar dimension     Calend := DimBindings.AddCalendar("Year", DimCalendarLevel.Year);     // Create object to parse dates in data source     DateConv := New DateConverter.Create;     // Set data format     DateConv.CalendarDateFormat := "$YEAR$";     DateConv.ConvertShortYear := True;     // Set created object to calendar dimension binding     Calend.Converter := DateConv;     // Add binding for data source values     loader.FactBindings.Add("Value");     // Create an object to work with data source     creator := New DtObjectCreator.Create;     // Create a text data source from file     prov := creator.CreateDtObjectFromFile("C:\result_exp.txt") As IDtTextProvider;     // Specify field delimiter used in source     prov.DelimitedColumnDelimiter := ";";     // Load data and process loading result     Result := loader.LoadWithResult(prov, Null);     // Get object to which data was loaded     Object := Result.Object;     // Display object information in console window     Debug.WriteLine("Name and identifier of created time series database: " +     Object.Name + "(" + Object.Id + ")");     // Get empty records and display them to the console window     List := Result.NullStrings;     If List.Count <> 0 Then         Debug.WriteLine("Empty records:");         For Each Item In List Do             Arr := Item As IArrayList;             For i := 0 To Arr.Count - 1 Do                 Debug.Write(Arr.Item(i));                 Debug.Write("; ");             End For;             Debug.WriteLine("");         End For;     End If;     // Get duplicated records and display them intp console window     List := Result.DuplicatedStrings;     If List.Count <> 0 Then         Debug.WriteLine("Duplicated records:");         For Each Item In List Do             Arr := Item As IArrayList;             For i := 0 To Arr.Count - 1 Do                 Debug.Write(Arr.Item(i));                 Debug.Write("; ");             End For;             Debug.WriteLine("");         End For;     End If; End Sub UserProc;

After executing the example data from the C:\result_exp.txt file is loaded to the time series database created for this purpose. Import results and identifier and name of the created time series database are output to the console window.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Dt;
Imports Prognoz.Platform.Interop.ForeCollections;
Imports Prognoz.Platform.Interop.Rds;

Public Shared Sub Main(Params: StartParams); Var     mb: IMetabase;     parent: IMetabaseObject;     rdsDatabase: IRdsDatabase;     loader: ICubeLoaderFromSource;     DimBindings: ICubeLoaderDimensionBindings;     bind: ICubeLoaderDimensionBinding;     DimModel: IDimensionModel;     Calend: ICubeLoaderDimensionBinding;     DateConv: IDateConverter;     creator: IDtObjectCreator;     prov: IDtTextProvider;     Result: ICubeLoaderResult;     Object: IMetabaseObject;     List, Arr: IArrayList;     Item: object;     i: Integer; Begin     // Get current repository     mb := Params.Metabase;     // Get the TSDB_FOLDER folder where time series database     // will be created     parent := mb.ItemById["TSDB_FOLDER"].Bind();     // Get MDM repository     rdsDatabase := mb.ItemById["RDS_LOAD"].Bind() As IRdsDatabase;     // Create an object to load data     loader := New CubeLoaderFromSource.Create();     // Display MDM repository that will be used on loading     loader.RdsDatabase := rdsDatabase.Open(Null);     // Specify that for loaded data time series     // database will be created     loader.Type := CubeLoaderType.cltRubricator;     // Specify folder where time series database will be created     loader.Parent := parent;     // Get dimension bindings to data source fields     DimBindings := loader.DimensionBindings;     // Add binding for the CITY field     bind := DimBindings.Add("CITY");     // Specify that the filed will correspond to dimension     // based on the CITY_DICT MDM dictionary     DimModel := mb.ItemById["CITY_DICT"].Bind() As IDimensionModel;     bind.Dictionary := DimModel;     // Specify index by which binding will be created     bind.Index := DimModel.Indexes.FindById("UINDEX");     // Specify attribute identifier on which index is built     bind.AttributeId := "NAME";     // Add a binding for the INDICATOR field.     // Dictionary to create a dimension corresponding to this field     // will be created automatically in MDM repository RDS_LOAD     DimBindings.Add("INDICATOR");     // Add a binding for calendar dimension     Calend := DimBindings.AddCalendar("Year", DimCalendarLevel.dclYear);     // Create an object to parse dates in data source     DateConv := New DateConverter.Create();     // Set date format     DateConv.CalendarDateFormat := "$YEAR$";     DateConv.ConvertShortYear := True;     // Set created object to binding of calendar dimension     Calend.Converter := DateConv;     // Add a binding for data source values     loader.FactBindings.Add("Value");     // Create an object to work with data source     creator := New DtObjectCreator.Create();     // Create a text data source from file     prov := creator.CreateDtObjectFromFile("C:\result_exp.txt") As IDtTextProvider;     // Specify field delimiter that is used in source     prov.DelimitedColumnDelimiter := ";";     // Load data and process a loading result     Result := loader.LoadWithResult(prov, Null);     // Get object to which data was loaded     Object := Result.Object;     // Display information about object in console window     System.Diagnostics.Debug.WriteLine("Name and identifier of created time series database: " +         Object.Name + "(" + Object.Id + ")");     // Get empty records and display them to console window     List := Result.NullStrings;     If List.Count <> 0 Then         System.Diagnostics.Debug.WriteLine("Empty records:");         For Each Item In List Do             Arr := Item As IArrayList;             For i := 0 To Arr.Count - 1 Do                 System.Diagnostics.Debug.Write(Arr.Item[i]);                 System.Diagnostics.Debug.Write("; ");             End For;             System.Diagnostics.Debug.WriteLine("");         End For;     End If;     // Get duplicated records and display them to console window     List := Result.DuplicatedStrings;     If List.Count <> 0 Then         System.Diagnostics.Debug.WriteLine("Duplicated records:");         For Each Item In List Do             Arr := Item As IArrayList;             For i := 0 To Arr.Count - 1 Do                 System.Diagnostics.Debug.Write(Arr.Item[i]);                 System.Diagnostics.Debug.Write("; ");             End For;             System.Diagnostics.Debug.WriteLine("");         End For;     End If; End Sub;

ICubeLoaderFromSource.LoadWithResult

Fore Syntax

Fore.NET Syntax

Parameters

Description

Comments

Fore Example

Fore.NET Example