IF SAVE THEN
SAVE := FALSE;
J := J + 1;
STR := ' TEST FILE = ';
STR := CONCAT( STR, INT_TO_STRING( J ) );
(* префиксы
usb~ - флэшка
ffs~ (или отсутствие!) - внутренняя память
ram~ - тестовый RAM диск
*)
file_handle := SysFileOpen( 'usb~FILE.TXT', 'w' );
SysFileWrite( file_handle, ADR( STR ),LEN( STR ) );
SysFileClose( file_handle );
END_IF
IF LOAD THEN
LOAD := FALSE;
file_load := SysFileOpen( 'usb~FILE.TXT', 'r' );
size := SysFileRead( file_load, ADR( buffer ), 255 );
FOR iter := 0 TO DWORD_TO_INT( size ) DO
a_char := ADR( buffer[ iter ] );
str := CONCAT( str, LEFT( a_char^,1));
END_FOR
SysFileClose( file_load );
END_IF
сохраняет и считывает..... можно даже загрузочным не делать
ааа, хочется напомнить флэшка - формат FAT (не NTFS и не FAT32)



Ответить с цитированием


