NB. =============================================== NB. New Version /7 Aug.2009 /written by TAKEUCHI Juichiro NB. slightly modified by SHIMURA Masato NB. ------------------------------------- NB. rewrite xlutil.ijs (JMACROS=: ..... jmacros.xls-> jmacros.txt) NB. ------------------------------------ NB. or make jmacros.xls NB. on EXCEL (tool-> macro->VisualBasic Editor) NB. on VBEditor (read jmacros.txt) --> close VBEditor NB. save as (on EXCEL) jmacros.xls NB. ------------------------- NB. get EXCEL use OLE (xlutil.ijs) NB. 0!:0< jpath '~system\main\files.ijs' NB. 0!:0xlreadr 'TEST.xls TRY ',":y ) dataout=:4 : 0 NB. c dataout 6 6 (6 6) denotes a location of Excell Files x xlwriter 'TEST.xls TRY ',":y ) charin=:3 : 0 NB. If you want to read characters, Use the "charin" function NB. a=.charin 1 1 5 5 (1 1) denotes a location; (5 5) denotes a size NB. Results are expressed by a Boxed Form xlreadr 'TEST.xls TRY ',":y ) readtable=:[:>0:".&.>[:cutopen([: 1!:1 ])-.(13{a.)"_ writetable=:4 : '(,(":x),"1 CRLF)1!:2 y' NB. Examples; makes a matrix file after reading NB. from Excell File "Sheet TRY" in "TEST.xls" NB. a=.datain 3 2 32 13 NB. a writetable<'c:\j503\temp\test.dat'