收录日期:2020/06/05 10:08:55 时间:2016/05/06 18:20:39 标签:基础类
请详细告知READ EVENTS用途? 
--------------------------------------------------------------------------------
sander 于 2000-07-16 上午 11:10:36 发表:
请详细告知READ EVENTS用途?
set talk off
set safety off
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
PUBLIC MYPD
MYPD=0
DO FORM 提示信息.scx
Read events
***************
问题一、当我加了READ EVENTS 后,就象荡机一样,而我去掉READ EVENTS 则可运行?我对READ EVENTS用途还是不清楚?请高手指点!!
即GETDIR()显示窗口出现(没有READ EVENTS)
***************************

if mypd=1
jlno=0
mlpath=getdir()
cd (mlpath)
*?curdir('d') &&返回当前目录
numdir=adir(arraydir,'*.*','D') &&ADIR(ARRAYDIR)仅获取运行程序的目录
?numdir
if numdir<>0
myml=mypath+"\目录.dbf"
use &myml
zap
for ncount=1 to numdir
append blank

*删掉'.'字符
FOR N=1 TO LEN(ALLTRIM(ARRAYDIR(NCOUNT,5)))
IF SUBSTR(ALLTRIM(ARRAYDIR(NCOUNT,5)),N,1)<>'.'
EXIT
ENDIF
ENDFOR

repl 文件名 with arraydir(ncount,1),文件大小 with arraydir(ncount,2),文件日期 with arraydir(ncount,3),;
     文件时间 with arraydir(ncount,4),文件属性 with SUBSTR(ALLTRIM(arraydir(ncount,5)),N,1)
*gather from arraydir
endfor
endif
dele for '.'=substr(文件名,1,1)
pack

repl all 目录 with curdir() for left(curdir(),1)<>'\'
repl all 目录 with sys(5)+curdir() for left(curdir(),1)='\'
use
sele 1
myzwj=mypath+"\总文件目录.dbf"
use &myzwj
zap
appen from &myml for upper(文件属性)<>'D'
sele 2
myzml=mypath+"\总目录目录.dbf"
use &myzml
zap
appen from &myml for upper(文件属性)='D'
loca for upper(文件属性)='D'
repl ni with '1'
do while .not.eof()

*下级目录
cd (alltrim(目录)+alltrim(文件名)+'\')
*?curdir('d') &&返回当前目录
numdir=adir(arraydir,'*.*','D') &&ADIR(ARRAYDIR)仅获取运行程序的目录
if numdir<>0
sele 3
use &myml
zap
for ncount=1 to numdir
append blank

*删掉'.'字符
FOR N=1 TO LEN(ALLTRIM(ARRAYDIR(NCOUNT,5)))
IF SUBSTR(ALLTRIM(ARRAYDIR(NCOUNT,5)),N,1)<>'.'
EXIT
ENDIF
ENDFOR

repl 文件名 with arraydir(ncount,1),文件大小 with arraydir(ncount,2),文件日期 with arraydir(ncount,3),;
     文件时间 with arraydir(ncount,4),文件属性 with SUBSTR(ALLTRIM(arraydir(ncount,5)),N,1)
*gather from arraydir

repl all 目录 with curdir() for left(curdir(),1)<>'\'
repl all 目录 with sys(5)+curdir() for left(curdir(),1)='\'

endfor
endif
dele for '.'=substr(文件名,1,1)
pack
use
sele 1
appen from &myml for upper(文件属性)<>'D'

sele 2
use &myzml
appen from &myml for upper(文件属性)='D'
loca for upper(文件属性)='D'.and.ni<>'1'
repl ni with '1'
enddo
*mlpath2='d:\目录\'+substr(mlpath,rat("\",mlpath)+1,len(alltrim(mlpath))-rat("\",mlpath))

close data all
use &myzwj
go top
do while .not.eof()
myfile=alltrim(目录)+alltrim(文件名)

run/n2 Attrib.exe &myfile -r
skip
enddo
use &myzml
go top
do while .not.eof()
myfile=alltrim(目录)+alltrim(文件名)
run/n2 Attrib.exe &myfile -r
skip
enddo
*export to d:\目录\总文件目录 fields 文件名 type xls
close data all
endif
return
试试将READ EVENTS语句放在主程序的最后一行.

英特尔移动计算技术? 如何用代码把页面保存成word文件并放在客户端的硬盘上? 有人做过在大硬盘上部署webservice 吗? linux for 64-bit PC 的安装 请问:如何实现迅雷那样的用户界面? 关于汇编的一个初级问题 初学JAVA人的担忧!? 高中生真的可以编程吗? 撑死个眼球,饿死个球的季节有来了............................ Applet可以实现“Asp加Vbscript”的功能吗?8个入门小问题 linux报错,求助 问个关于utf8编码的小问题啊 求一没有安装sql server的情况下直接用mdf文件提供数据服务的软件 怎样作发送附件的程序 以前用过一种软件,直接利用mdf文件提供sql 服务,不知道各位用过没 工程加了一个word模版,就出现下面的问题!那位大侠知道这是什么原因?? 何为移动计算? 关于字符串的问题(菜鸟问题) 关于update ,insert 类的错误控制问题 有没有选择列导出EXCEL和打印的代码? 求救!怎么在下载的一个网页源文件中去除<>中的内容,保留文字 求救,如何生成柱状图,拆线图等统计图? 求助 求救,如何生成柱状图,拆线图等统计图? 各位高手看看如何拖动这个button,调用它的click事件 关于网页暴力破解问题??????????????? 这条过滤语名如何写 WPF疑难问题 一个菜鸟问题