Foxtable(狐表)用户栏目专家坐堂 → [分享]单文件列中新建文件功能的实现,请狐爸和bin老师指导一下。


  共有8680人关注过本帖树形打印复制链接

主题:[分享]单文件列中新建文件功能的实现,请狐爸和bin老师指导一下。

帅哥哟,离线,有人找我吗?
ztmdnzc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:501 积分:4167 威望:0 精华:0 注册:2013/1/18 13:34:00
[分享]单文件列中新建文件功能的实现,请狐爸和bin老师指导一下。  发帖心情 Post By:2013/12/29 17:15:00 [只看该作者]

以下是引用jnletao在2013-12-24 16:45:00的发言:
FileSys怎样创建一个文件?

看了此贴的讨论和帮助,发现filesys没有创建新文件的功能,在系统开发过程中,发现ft的文件列也没有新建文件的功能,缺少此功能,多少会给用户在文件管理方面带来一点儿小麻烦:原来保存的文件需通过插入文件功能进行管理毋庸置疑,但上了系统后用户还得通过插入文件功能将新建的文件挪到系统目录中,即使在系统目录中新建文件。能不能在文件列命令中增加新建文件的命令,我一直在等狐爸的升级(此建议狐爸早已收到),看到jnletao的帖子,这两天利用文件列的相关命令整了个简单的、变通的在文件列实现新建文件的功能,具体操作如下:

点击文件列的cellbutton,弹出窗口输入拟新建文件的后缀doc,xls等(下一步再优化,哪位狐友有获取电脑中所有文件后缀名的代码赞助一下),如doc,点击确定后自动将cs文件夹下的cs.txt拷贝到Attachments下并自动更名为cs.doc,同时将单元格的值置为cs.doc,然后点击文件列的cellbutton,再选择另存文件,输入拟新建文件的文件名,如123,点击保存,即可在系统目录下建立新文件123,并自动将单元格值cs.doc置换为123.doc,从而变通实现新建文件的功能,不过带了一点儿小麻烦是在打开文件时还会再弹出新建文件窗口,此时不用任何操作直接点击取消即可打开文件。

这个小麻烦的产生主要是因为ft中打开文件和另存文件的事件均为boforeopenfile事件,在此建议狐爸对文件列增加另存文件事件,另存文件事件在系统开发中的作用不可小视,举例来说,单位的重要制度文件严禁外传,但不能不让职工学习,打开文件可通过文件列相关事件代码进行控制并记录相关信息,如果某人通过文件列的另存文件功能另存了文件,却没有相应的事件代码进行控制和记录,这显然是一个管理漏洞,当然可禁用另存功能来实现,但又失去了一些灵活性。

目前打开文件和另存文件均会引发boforeopenfile事件,如何将另存和打开这两个动作分开控制和记录?请高手指点迷津,在此先谢过了。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文件.rar

[此贴子已经被作者于2013-12-29 17:32:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/29 21:51:00 [只看该作者]

 原有的控制不灵活,建议自己实现button的功能吧。

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/8/16 18:06:00 [只看该作者]

新建文件

 

这个帖子,为什么被冷落了呢?

是有价值的。

顶上。

[此贴子已经被作者于2014-8-16 18:28:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zyqzyy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:5856 威望:0 精华:0 注册:2013/7/29 12:00:00
  发帖心情 Post By:2014/8/16 23:24:00 [只看该作者]

顶起来,用得到,以前也向贺总说过,回答是 “打开”和“另存”只触发一个事件,这个对于文件管理是实在不好用!


 回到顶部
帅哥哟,离线,有人找我吗?
wei0769
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1814 积分:19186 威望:0 精华:0 注册:2013/4/10 14:38:00
  发帖心情 Post By:2019/9/14 0:23:00 [只看该作者]

https://zhidao.baidu.com/question/560306630502017764.html

在命令窗口中直接输入

  My.Computer.FileSystem.WriteAllText("ttt.txt", "Textbox1.Text",False)

就可以生成TXT文件

 回到顶部