А можно и напрямую, минуя Views.Register, если уж точно известно, какой конвертер (выходной формат) нужен:
Код:
IMPORT HostTextConv;
PROCEDURE ExportFocusPlain* (IN location, name: ARRAY OF CHAR);
(** Экспортировать фокусный текст в формат PlainText в файл по адресу location/name *)
VAR file: Files.File; _: INTEGER; v: TextViews.View;
BEGIN
v := TextViews.Focus();
IF v # NIL THEN
file := Files.dir.New(Files.dir.This(location), Files.dontAsk);
HostTextConv.ExportText(v, file);
file.Register(name$, '', Files.dontAsk, _)
END
END ExportFocusPlain;