ex_p6_11_file_write123.vhd

来自「This is the course for VHDL programming」· VHDL 代码 · 共 26 行

use std.textio.all;
entity FILEDEMO123 is end FILEDEMO123;
architecture arch of FILEDEMO123 is
BEGIN
  PROCESS
	VARIABLE lout,lin: line ;
	file DATA123_OBJ:text;
	variable file_name:string(1 to 6);
	variable b:bit_vector(7 downto 0);
  begin
   WRITE(lout, string'(" Enter 6 letter file name"));
	WRITELINE(OUTPUT, lout) ;
	READLINE(INPUT,lin);
	READ(lin,file_name);
	file_open (DATA123_OBJ,file_name,WRITE_MODE);
	for i in 1 to 100 loop
		WRITE(lout, i);
      WRITELINE(DATA123_OBJ, lout) ;
   end loop;
   file_close(DATA123_OBJ);
   WRITE(lout, string'(" Data 1-100 written"));
	WRITELINE(OUTPUT, lout) ;
	wait;
  END PROCESS;
END arch ;