Text: String;
Text: String;
Свойство Text определяет текст модуля.
Для выполнения примера предполагается наличие в репозитории Python модуля с идентификаторм «MOD_PYT».
Добавьте ссылки на системные сборки: Metabase, Python.
Sub UserProc;
Var
Mb: IMetabase;
PythonMod: IPythonModule;
Begin
Mb := MetabaseClass.Active;
PythonMod := Mb.ItemById("MOD_PYT").Edit As IPythonModule;
Debug.WriteLine(PythonMod.Text);
//...
//Дальнейшая работа с текстом модуля
//...
If PythonMod.Modified Then
(PythonMod As IMetabaseObject).Save;
End If;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Python;
Public Shared Sub Main(Params: StartParams);
Var
Mb: IMetabase;
PythonMod: IPythonModule;
Begin
Mb := Params.Metabase;
PythonMod := Mb.ItemById["MOD_PYT"].Edit() As IPythonModule;
System.Diagnostics.Debug.WriteLine(PythonMod.Text);
//...
//Дальнейшая работа с текстом модуля
//...
If PythonMod.Modified Then
(PythonMod As IMetabaseObject).Save();
End If;
End Sub;
Указанный пример в общем виде демонстрирует каким образом можно получить текст Python текста. Текст будет выведен в консоль среды разработки. Если в текст будут внесены какие-либо изменения, то Python модуль будет сохранён.
См. также: