取文件名 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 取文件名

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 446 人关注过本帖

标题：取文件名

只看楼主加入收藏

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4
结帖率：90.14%

楼主

已结贴√ 问题点数：20 回复次数：2

取文件名

运行程序后会产生一个表，我想取文件名为个人表1、个人表2、个人表3……，如果个人表1存在就取个人表2，如果个人表2存在就取个人表3，以次类推……运行程序的次数不确定。行能吗？谢谢各位的帮助。

搜索更多相关主题的帖子: 个人　运行程序　

2013-04-15 17:46

kiff

来　自：广州
等　级：贵宾
威　望：46
帖　子：756
专家分：2531
注　册：2013-1-30

第 2 楼

得分:20

方法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

[ 本帖最后由 kiff 于 2013-4-15 20:13 编辑 ]

2013-04-15 18:16

tjdeming

等　级：论坛游民
帖　子：429
专家分：54
注　册：2013-3-4

第 3 楼

得分:0

以下是引用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

谢谢,你很用心.我正在添加到我程序中去调试.

2013-04-16 05:18

快速回复：取文件名