取文件名
运行程序后会产生一个表，我想取文件名为个人表1、个人表2、个人表3……，如果个人表1存在就取个人表2，如果个人表2存在就取个人表3，以次类推……运行程序的次数不确定。行能吗？谢谢各位的帮助。
以下是引用kiff在2013-4-15 18:16:32的发言：
方法1：
tablename_tmp=''
i=0
do whil .t.
i=i+1
tablename_tmp='个人表'+allt(str(i))+'.dbf'
if not file(tablename_tmp)
exit
endif
enddo
?tablename_tmp
-------------------------------
方法2：
CREATE CURSOR TMP1 (f1 c(50),ID int)
IF ADIR(F2,'个人表*.dbf')>0
INSERT INTO TMP1 FROM ARRAY F2
ENDIF
REPLACE ALL ID WITH VAL(SUBSTR(JUSTSTEM(f1),7)) IN TMP1
CALCULATE MAX(ID+1) TO I IN TMP1
USE IN TMP1
TABLENAME_TMP='个人表'+ALLTRIM(STR(I))+'.DBF'
？ TABLENAME_TMP
谢谢,你很用心.我正在添加到我程序中去调试.
方法1：
tablename_tmp=''
i=0
do whil .t.
i=i+1
tablename_tmp='个人表'+allt(str(i))+'.dbf'
if not file(tablename_tmp)
exit
endif
enddo
?tablename_tmp
-------------------------------
方法2：
CREATE CURSOR TMP1 (f1 c(50),ID int)
IF ADIR(F2,'个人表*.dbf')>0
INSERT INTO TMP1 FROM ARRAY F2
ENDIF
REPLACE ALL ID WITH VAL(SUBSTR(JUSTSTEM(f1),7)) IN TMP1
CALCULATE MAX(ID+1) TO I IN TMP1
USE IN TMP1
TABLENAME_TMP='个人表'+ALLTRIM(STR(I))+'.DBF'
？ TABLENAME_TMP