Цитата Сообщение от Gans Посмотреть сообщение
Здравствуйте, Alex12345.
а где находится файл? куда собираемся писать?
пока только на компьютер

Цитата Сообщение от Yegor Посмотреть сообщение
Код:
VAR
	ar: ARRAY [1..1000] OF REAL;
	fileHandle, index: DWORD;
	buf: STRING;
END_VAR

fileHandle := SysFileOpen('test.txt', 'w');
IF fileHandle > 0 THEN
	FOR index := 1 TO 1000 DO
		buf := CONCAT(REAL_TO_STRING(ar[index]), '$r$n');
		SysFileWrite(fileHandle, ADR(buf), LEN(buf));
	END_FOR
END_IF
SysFileClose(fileHandle);
SysFileOpen (врайт и клос тоже) не распознает как команду (((
пытаеться определить как переменную
видимо вы какую то библиотеку используете. которой, к сожалению, у меня нет