FileOpen打开文件存在占用情况
我用PB程序打开一个txt文件后,另一个程序打开这个txt时会提示文件被占用。
下面是代码,fileopen函数的最后一个参数是设置所有人可读写的。
INT LI_HANDLE = 0
STRING LS_TXT = ""
BOOLEAN LB_TF = TRUE
IF FILEEXISTS("config.txt") THEN
BEGINGOTO:
LI_HANDLE = FILEOPEN("config.txt",LINEMODE!,READ!,SHARED!)
FILESEEK(LI_HANDLE, 0, FromBeginning! )
FILEREAD(LI_HANDLE,LS_TXT)
FILECLOSE(LI_HANDLE)
IF UPPER(LS_TXT) = "TRUE" THEN
GOTO BEGINGOTO
ELSE
UO_S1.UO_CAD.OF_CAXA_PRINT()
END IF
ELSE
END IF