RationalDMIS 7.1 READ Excel_数据

decl/COMMON,DOUBLE,xx,yy,zz

DECL/COMMON,INTGR,I,NUM,H_STR,V_STR

DECL/COMMON,CHAR,255,PTLABLE

AAA =PROMPT/TEXT,'请输入点数',EDIT,NUM,$
            TEXT,'请输入数据起始行',EDIT,H_STR,$
            TEXT,'请输入数据起始列',EDIT,V_STR



DID(mmm) = DEVICE/STOR,'F:\demo.xls'


open/DID(mmm),DIRECT,INPUT

DO/I,1,NUM

PTLABLE =ASSIGN/CONCAT('PT',STR(I))

READ/DID(mmm),xx:H_STR:V_STR

READ/DID(mmm),yy:H_STR:V_STR+1
READ/DID(mmm),yy:H_STR:V_STR+2

F(@PTLABLE) =FEAT/POINT,CART,xx,yy,zz,0,0,1

H_STR = ASSIGN/H_STR+1


ENDDO

CLOSE/DID(mmm)

RationalDMIS 7.1 READ Excel_数据_02