IResourceImporter.Resource

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    ImpObj: ResourceImporter;
    Prov: DtTextProvider;
    ResObj: IResourceObject;
    CountrysArr: Array[0..1] Of String;
    Log: IResourceImporterLog;
    i: Integer;
    s: String;
Begin
    Prov := New DtTextProvider.Create;
    ImpObj := New ResourceImporter.Create;
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("RESOURCES").Edit;
    ResObj := MObj As IResourceObject;
    Prov.File := "C:\Res.txt";
    Prov.RangeHasHeader := True;
    ImpObj.Provider := Prov;
    CountrysArr[0] := "ru";
    CountrysArr[1] := "en";
    ImpObj.Locales := CountrysArr;
    ImpObj.Resource := ResObj;
    ImpObj.Method := ResourceImportType.UpdateAndAdd;
    ImpObj.Import;
    Log := ImpObj.Log;
    Debug.WriteLine("Всего " + Log.Count.ToString + " записей");
    For i := 0 To Log.Count - 1 Do
        Select Case log.State(i).ToString
            Case "0": s := " - запись добавлена";
            Case "1": s := " - запись обновлена";
            Case "2": s := " - запись пропущена";
        End Select;
        Debug.WriteLine(Log.Item(i) + s);
    End For;
End Sub UserProc;