请问:如何d:\qzz目录下的1千个文件放到dbf表的备注字段
d:\qzz目录下的1千个文件,文件名是qzz_0001.txt——qzz_1000.txt。如何通过编程把这些文件放到sp.dbf表的备注字段nr中???
请高手支招!
[此贴子已经被作者于2006-2-12 20:01:22编辑过]
CLEAR
FOR I=1 TO 1000
I1=STRT(STR(I,4)," ","0")
HANDLE=FOPEN("D:\Q_ZZ\QZZ_"+I1+".TXT")
IF HANDLE<0
@ 15,20 SAY "没有找到文件!"
CLOSE ALL
RETURN
ENDIF
=FSEEK(HANDLE,0,0)
C_DATA=FGETS(HANDLE)
USE D:\AS.DBF
APPEND BLANK
REPLACE UR WITH C_DATA,URSE WITH I1 && "urse"为文件名字段
ENDFOR
RETU
[此贴子已经被作者于2006-2-13 17:19:55编辑过]