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 folder, in which 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 for data loading     loader := New CubeLoaderFromSource.Create;     // Specify the MDM repository, that is used on loading     loader.RdsDatabase := rdsDatabase.Open(Null);     // Specify that time series database will be     // created for loaded data     loader.Type := CubeLoaderType.Rubricator;     // Specify the folder, in which time series database will be created     loader.Parent := parent;     // Get bindings of dimensions to data source fields     DimBindings := loader.DimensionBindings;     // Add binding for the CITY field     bind := DimBindings.Add("CITY");     // Specify, that the field will have corresponding dimension,     // based on the CITY_DICT MDM dictionary     DimModel := mb.ItemById("CITY_DICT").Bind As IDimensionModel;     bind.Dictionary := DimModel;     // Specify the index, by which binding is created     bind.Index := DimModel.Indexes.FindById("UINDEX");     // Specify identifier of the attribute, based on which index is built     bind.AttributeId := "NAME";     // Add a binding for the INDICATOR field.     // Dictionary for creating the dimension, corresponding to this field,     // is created automatically in the RDS_LOAD MDM repository     DimBindings.Add("INDICATOR");     // Add a binding for calendar dimension     Calend := DimBindings.AddCalendar("Year", DimCalendarLevel.Year);     // Create a n object for date parsing in data source     DateConv := New DateConverter.Create;     // Set date format     DateConv.CalendarDateFormat := "$YEAR$";     DateConv.ConvertShortYear := True;     // Set created object to calendar dimension binding     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 used in source     prov.DelimitedColumnDelimiter := ";";     // Load data and process loading result     Result := loader.LoadWithResult(prov, Null);     // Get the object to which data is loaded     Object := Result.Object;     // Output information about object to console window     Debug.WriteLine("Name and identifier of created time series database: " +         Object.Name + "(" + Object.Id + ")");     // Get empty records and output them to 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 duplicate records and output them to console window     List := Result.DuplicatedStrings;     If List.Count <> 0 Then         Debug.WriteLine("Duplicate 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, in which time series     // database is created     parent := mb.ItemById["TSDB_FOLDER"].Bind();     // Get MDM repository     rdsDatabase := mb.ItemById["RDS_LOAD"].Bind() As IRdsDatabase;     // Create object for data loading     loader := New CubeLoaderFromSource.Create();     // Specify MDM repository, that is used on loading     loader.RdsDatabase := rdsDatabase.Open(Null);     // Specify that time series database is created     // for loaded data     loader.Type := CubeLoaderType.cltRubricator;     // Specify the folder, in which time series database is 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 dimension corresponds to the field,     // the dimension is based on MDM dictionary CITY_DICT     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 identifier of attribute, based on which index is built     bind.AttributeId := "NAME";     // Add binding for the INDICATOR field.     // Dictionary for cretaing dimension, corresponding to this field,     // is automatically created in MDM repository RDS_LOAD     DimBindings.Add("INDICATOR");     // Add binding for calendar dimension     Calend := DimBindings.AddCalendar("Year", DimCalendarLevel.dclYear);     // Create object for parsing dates in data source     DateConv := New DateConverter.Create();     // Set date 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 object for working with data source     creator := New DtObjectCreator.Create();     // Create 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;     // Output information about object to console window     System.Diagnostics.Debug.WriteLine("Name and identifier of created time series database: " +         Object.Name + "(" + Object.Id + ")");     // Get empty records and output 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 duplicate records and output them to console window     List := Result.DuplicatedStrings;     If List.Count <> 0 Then         System.Diagnostics.Debug.WriteLine("Duplicate 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