以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎样提取文件名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187552)
--  作者：ycs5801
--  发布时间：2023/7/26 0:58:00
--  怎样提取文件名

使用

OpenFileDialog提取文件名dlg.FileName，得到的是完全路径，比如说c:\\aa\\xx.xlsx,现在只想要具体文件名信息xx即可，需要怎么提取？
--  作者：pyh6918
--  发布时间：2023/7/26 8:24:00
--  

GetName

返回文件名称，不含路径。

语法

GetName(FullName)

FullName: 包含完整路径的文件名。

例如：

Output.Show(FileSys.GetName("C:\\reports\\test.xls"))

输出为：

test.xls
--  作者：有点蓝
--  发布时间：2023/7/26 8:33:00
--  
http://www.foxtable.com/webhelp/topics/0331.htm
--  作者：ycs5801
--  发布时间：2023/7/26 8:53:00
--  

FileSys.GetName(dlg.FileName).Trim(".xlsx")

 

这样报错，提示不是有效名称
--  作者：ycs5801
--  发布时间：2023/7/26 8:57:00
--  

“~TMPCLPa20210205.xlsx”不是一个有效名称。请确认它不包含无效的字符或标点，且名称不太长。

 

这个提示
--  作者：有点蓝
--  发布时间：2023/7/26 9:39:00
--  
这种是execl打开后出现的临时文件，用不了的，排除掉名称里有“~”字符的文件
--  作者：ycs5801
--  发布时间：2023/7/26 9:45:00
--  
没太懂，我现在只想根据这个文件名生成出一个新的表名，应该怎么做呢？
--  作者：有点蓝
--  发布时间：2023/7/26 9:49:00
--  
总之排除掉名称里有“~”字符的文件，这种文件都用不了的
--  作者：ycs5801
--  发布时间：2023/7/26 10:52:00
--  

转换的excel数据，前边都有个单引号，咋回事？

  Dim ex As New Exporter
        ex.SourceTableName = "表B" \'指定导出表
        ex.FilePath = "c:\\Data\\" & riqi & ".xls" \'指定目标文件
        ex.Format = "Excel" \'导出格式为Excel
        ex.Fields = "日期,列名,数值" \'指定导出字段
       
        ex.Export()
--  作者：有点蓝
--  发布时间：2023/7/26 10:56:00
--  
这个是execl自己的问题，数值列设置格式为字符串就这样。导入后自己写代码遍历去掉引号