[讨论]与大家探求易表能否自动获取目录名（含下级目录）和目录下的文档名？ - 用户社区 - 易表在线答疑

[这个贴子最后由tzszw在 2007/09/18 07:25pm 第 5 次编辑]

与大家探求易表能否自动获取目录名（含下级目录）和目录下的文档名？
一、问题的提出原因
前一段时间，因街道下属的村申报省级文明村，对资料除要求有纸质装订的6卷外，还要有电子版的，于是我亲自动手，在CZY、程版等的帮助下搞成了江苏省《省级文明村创建》资料电子文档管理系统（系统附后），这个程序对该村顺利创建起了一定的作用。该程序中所有文档现行的录入方式是在系统的“文档维护”中按“一级主题”和“二级主题”以及各主题下具体文档一条一条手工录入的，现在，工作人员建议想办法搞成“一键全自动录入”的方式，即在系统的“AZSQ”表的某个窗口放个命令按钮，点击此按钮后要能达到“自动判断该系统的数据目录DATA下有几个一级目录和几个二级目录，这几个一、二级目录下又各有多少个DOC文档，并自动分级将其导入到AZSQ表中，其物理的一、二级目录名称以及目录下文档名与AZSQ表中相关列自动匹配”的目的，这种朴实的、高效的数据录（导）入想法按说并不过份，但我考虑和尝试了好久，没做得出来，故在此提请各位共同探求解决之道！
二、要达到的要求
系统的文档数据目录DATA下有一、二级文档存放目录，一、二级文档目录下又有多少不等的DOC文档，这么多的记录如果一条条手工录入的话，一是工作量太大，二是操作上确实太繁琐，三是手工录入也有可能造成记录遗漏。现在要想根据第一条的要求，达到不管DATA下有几级目录和各级下有多少条记录，都能一键（命令按钮）傻瓜式全自动按要求录入到AZSQ表中，并与AZSQ表的相关列自动匹配。如
DATA中目前有一级目录如下：
1经济发展效益良好<一级dir>
1全面落实科学发展观<二级dir>
01.马厂村简介.doc<<二级dir>下的具体文档名>
02.2006年马厂村获得的各类主要荣誉.doc<<二级dir>下的具体文档名>
03.马厂村创建江苏省文明村概况.doc<<二级dir>下的具体文档名>
04.关于成立马厂村创建省级文明村工作领导小组的通知.doc<<二级dir>下的具体文档名>
05.马厂村(居)经济组织网络图.doc<<二级dir>下的具体文档名>
06.马厂村创建省级文明村工作网络图.doc<<二级dir>下的具体文档名>
07.马厂村关于成立高效农业和农业产业化领导小组的通知.doc<<二级dir>下的具体文档名>
08.马厂村2006年人口和劳力统计表.doc<<二级dir>下的具体文档名>
09.高港区促进农民增收调研情况统计表.doc<<二级dir>下的具体文档名>
10.村级经济不断壮大.doc<<二级dir>下的具体文档名>
11.马厂村2006年创建省级文明村总结.doc<<二级dir>下的具体文档名>
2村级可支配收入<二级dir>
马厂村集体经济总收入明细表.doc<<二级dir>下的具体文档名>
3严格执行国家政策法规<二级dir>
01.民主管理制度.doc<<二级dir>下的具体文档名>
02.马厂村（组）民主理财人员名单.doc<<二级dir>下的具体文档名>
03.财务公开制度.doc<<二级dir>下的具体文档名>
04.财务收支管理制度.doc<<二级dir>下的具体文档名>
05.财务预决算管理制度.doc<<二级dir>下的具体文档名>
4大力推进农业产业化经营<二级dir>
01.泰州市高港区马厂股份合作社简介.doc<<二级dir>下的具体文档名>
5农民生活水平提高<二级dir>
... ...

2思想道德建设成效明显<一级dir>
... ...
3村容村貌整洁优美<一级dir>
... ...
4社会秩序和谐安定<一级dir>
... ...
5科教文卫稳步发展<一级dir>
... ...
6基层组织建设切实加强<一级dir>
... ...
... ...
要能一键自动在AZSQ中生成数据，达到如下效果：
一级目录

下面引用由lxl在 2007/09/18 02:57pm 发表的内容：
呵呵你真能打字每次发贴都是一大堆字
先抢个沙发慢慢看

呵呵，为了表述得清楚，文字是不能少的了，谢谢lxl老兄关注啊！你是高手哎！

下面引用由lxl在 2007/09/18 03:02pm 发表的内容：
看到最后发现关键问题:
你的文件没传上来

分两次发的，已上传，请阅！

下面引用由lxl在 2007/09/18 03:12pm 发表的内容：
运行了 ylm斑竹的批处理程序
然后从各个list.txt文件里面导入不行吗?

从各个list.txt文件里面可以导入的，但关键是有一层又一层的嵌套文件目录难解决呀！

下面引用由lxl在 2007/09/18 03:20pm 发表的内容：
都是字符运算不难解决
一级二级目录是作为已知条件还是未知条件?
表"一级主题" "二级主题" 也是要求自动填写吗?

这个表的"一级主题" "二级主题" 乃至于更多层次的目录标题能做到自动填写那是太好了！

下面引用由lxl在 2007/09/18 06:25pm 发表的内容：
我说说我的思路
点自定义按钮将根目录(楼主文件的data文件夹)文件清单写入list.txt中
然后用ImportTextFile() 将清单导入易表处理
删除为 list.txt 和a.bat 的两个记录
...

lxl老师啊，你说的用run("D:\a.bat") 不产生list.txt 的问题，我也曾遇到过，经多方探讨后认为这是易表的弱项，但可以改用VBS文件来处理的，如同是这个问题，你可以这样用SHX.vbs来调用a.bat
其中shx.vbs的内容为CreateObject("WScript.Shell").Run "cmd /c a.bat",0

即：用edit 或　记事本　写一个文件，命名为shx.vbs，其内容为CreateObject("WScript.Shell").Run "cmd /c a.bat",0
这样应该行的，你试试！

-=-=-=- 以下内容由 tzszw 在 2007年09月18日 07:00pm 时添加 -=-=-=-
呵呵，忘记告诉你了，在你原来用run("d:\a.bat")的地方改成run("d:\shx.vbs")试试！

vbs 文件要和 bat文件都放在同一目录下的，这个我在一个系统中一直是这么用的呀，当时主要是解决 DOS模式下闪屏问题，一直在用，没出现过问题的

[这个贴子最后由tzszw在 2007/09/18 09:15pm 第 1 次编辑]

因为我用于手掌抄表机，手掌抄表机与电脑的数据传输是通过COM1口的，只有用 DOS下的批处理来解决，也是 RUN 调用方式，后来为解决闪屏问题，就改用 RUN(docdir+"shx.vbs")来解决，没问题的了。

可能还有个情况会影响run("shx.vbs")正常执行：就是不管bat还是vbs文件，易表认为这种文件放在易表安装目录中运行肯定一点没问题，但放到其他目录就可能有问题了：不运行或没反应。
要不你再试试将bat或vbs文件放在易表安装目录中，然后在按钮中执行:run(appdir+"shx.vbs")或run(appdir+"d.bat")，这个肯定行的。
这个恐怕是易表的BUG吧，反正我曾请教过不知多少人（甚至易表公司的技术客服），没人搞得清，后来是因我的用户实在追得急（系统一直用不了），我一夜没睡终于在后半夜“灵光一闪”想到了可能是这一层原因，于是一试，哈哈终于练就了“乾坤大挪移”--成功了。
但愿这个方法会给你有所帮助，我想知道这个情况的人极少。

-=-=-=- 以下内容由 tzszw 在 2007年09月18日 08:54pm 时添加 -=-=-=-
此外，不是我对易表公司的技术客服的评价太刻薄，那些客服太缺乏耐心和细心，回答问题“太简洁”，有点不着边际，让人有点失望。

全不象我们的CZY总版、程版、好版等众版和易友那样认真、细致。

下面引用由lxl在 2007/09/18 08:51pm 发表的内容：
本来是想帮你的结果自己学了不少
你运行这个VBS程序,然后到E盘看一下
CreateObject("WScript.Shell").Run "cmd /c Dir *.* /b>E:\list.txt",0

呵呵，你太客气，咱们在这论坛上本来就该互相学习、交流的嘛，即使是帮了别人，实际上也是提高了自己呀，因为别人提出了好的想法和思路让大家去练、去探讨，只有这样才能共同提高啊。
好的，我就去试试。

-=-=-=- 以下内容由 tzszw 在 2007年09月18日 08:59pm 时添加 -=-=-=-
试了，完全可以，但差点出错了，因为我的本本中无 E 盘，呵呵。
请你帮忙继续努力搞一搞，估计按你的思路有可能会成功的。

呵呵，我刚刚又看了一下，现在关心咱们这个帖子的人越来越多了，说明大家对这个问题还是感兴趣的。

如果这个问题解决了，可以说会改变大家长期以来的一种传统的记录输入习惯，也可以说是一种观念的创新啊！

特别希望大家看到我上面说的一句话，并勇于投入到这项攻关中.....

主题：[讨论]与大家探求易表能否自动获取目录名（含下级目录）和目录下的文档名？