以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]动态设置文件存储位置，特殊符号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120709)

--  作者：湛江智 --  发布时间：2018/6/22 10:48:00 --  [求助]动态设置文件存储位置，特殊符号  BeforeAttachFile  表事件 e.SubFolder = dr("产品名称") & "\\" & dr("品牌型号")     e.FileName = dr("产品名称") & "_" & dr("联系人") & dr("联系方式") & "_标准物料_" & dr("创建日期") & ".jpg" 产品名称、品牌型号含特殊符号，报错 1、新建文件夹时，怎么修改上面代码？ 2.1增加图片时，产品名称含特殊符号，报错，添加图片失败，上面代码怎么修改？ 2.2添加的图片是png格式，上面代码也把图片后缀名改jpg。怎样保留添加图片原后缀名格式？

--  作者：有点甜 --  发布时间：2018/6/22 11:10:00 --   Dim fl = e.FileName Dim idx As Integer = fl.LastIndexOf(".") Dim ext As String  = fl.SubString(idx) e.SubFolder = dr("产品名称") & "\\" & dr("品牌型号").replace("特殊符号1", "@").replace("特殊符号2", "#") e.FileName = dr("产品名称") & "_" & dr("联系人") & dr("联系方式") & "_标准物料_" & dr("创建日期") & ext

--  作者：湛江智 --  发布时间：2018/6/22 11:12:00 --  回复：（有点甜）Dim fl = e.FileNameDim idx As Inte...  如果含有 *号 呢？ [此贴子已经被作者于2018/6/22 11:22:51编辑过]

--  作者：有点甜 --  发布时间：2018/6/22 11:21:00 --   参考2楼，看懂，修改。

--  作者：湛江智 --  发布时间：2018/7/13 9:31:00 --  回复：（有点甜）参考2楼，看懂，修改。 Dim fl = e.FileName Dim idx As Integer = fl.LastIndexOf(".") Dim ext As String  = fl.SubString(idx) e.FileName = dr("产品名称").Replace("*","_").Replace("-","_") & "_" & dr("联系人") & dr("创建日期") & dr("创建时间"). Replace(":","_") & ext   列：创建时间 日期时间格式为Time，上面代码怎么改呢？ 报错： 未找到类型Date的公共成员Replace

--  作者：有点甜 --  发布时间：2018/7/13 9:33:00 --   cstr(dr("创建时间")).Replace(":","_")