| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1046 人关注过本帖
标题:如何创建以当前年份为名字的文件夹和表?
只看楼主 加入收藏
running_drea
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-3-16
收藏
 问题点数:0 回复次数:6 
如何创建以当前年份为名字的文件夹和表?
我想创建一个以当前年份为名字的文件夹和以当前月份为名字的DBF表,以这个月为例,创建一个名为“2007”的文件夹和名为“05.dbf”的表,如何实现?
搜索更多相关主题的帖子: 年份 文件 名字 
2007-05-17 22:16
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
用宏替换就可以了,但注意要把它们转为字符型。
比如STR(YEAR(DATE()),4,0)或者STR(MONTH(DATE()),2,0)

两人行已有我师……
2007-05-17 22:22
running_drea
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-3-16
收藏
得分:0 
用户在TXTE1中输入文件夹名称,在TEXT2输入表的名称,查看此文件夹下的表是否存在。
local w,b
w=alltrim(thisform.text1.value)
b=alltrim(thisform.text2.value
if not file('d:\glxt\&w\&b.dbf')
messagebox('无!',0+64+0,'提示')
else
messagebox('有!',0+64+0,'提示')
为什么表存在也提示“无”呢?
说明:1 表不用输入扩展名;2 d:\glxt为项目所在的文件夹。
2007-05-19 11:46
啸凡
Rank: 8Rank: 8
等 级:贵宾
威 望:45
帖 子:1356
专家分:885
注 册:2006-2-22
收藏
得分:0 
我想,问题是不是应该出在这里:
if not file('d:\glxt\&w\&b.dbf')
改为if not file('d:\glxt\&w\&b..dbf')试试看,因为一个点表示宏替换结束,另一个点才是文件名与扩展名的分隔。

[此贴子已经被作者于2007-5-19 15:46:17编辑过]


两人行已有我师……
2007-05-19 15:45
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
"d:\glxt"一般可以省略,指定了反而不利于移植到其他位置。
建议改为:
w=alltrim(thisform.text1.value)+"\"+alltrim(thisform.text2.value)+".dbf"
if not file("&w") &&或者if not file(&w)试试


活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2007-05-19 19:40
running_drea
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2007-3-16
收藏
得分:0 
按啸凡的方法更改后,问题解决了,嘿嘿,谢谢!
2007-05-21 16:08
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
建议,
1、一般不要使用绝对路径!
2、宏替换的时候最好把路径和文件名做到一个宏里去!

2007-05-22 07:58
快速回复:如何创建以当前年份为名字的文件夹和表?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.057800 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved