Foxtable(狐表)用户栏目专家坐堂 → 怎样提取文件名


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

主题:怎样提取文件名

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


加好友 发短信
等级:五尾狐 帖子:1065 积分:7598 威望:0 精华:0 注册:2009/6/24 9:44:00
怎样提取文件名  发帖心情 Post By:2023/7/26 0:58:00 [只看该作者]

使用

OpenFileDialog提取文件名dlg.FileName,得到的是完全路径,比如说c:\aa\xx.xlsx,现在只想要具体文件名信息xx即可,需要怎么提取?


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


加好友 发短信
等级:五尾狐 帖子:1135 积分:11105 威望:0 精华:2 注册:2008/9/1 10:45:00
  发帖心情 Post By:2023/7/26 8:24:00 [只看该作者]

GetName

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

语法

GetName(FullName)

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

例如:

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

输出为:

test.xls


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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/26 8:33:00 [只看该作者]


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


加好友 发短信
等级:五尾狐 帖子:1065 积分:7598 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2023/7/26 8:53:00 [只看该作者]

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

 

这样报错,提示不是有效名称


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


加好友 发短信
等级:五尾狐 帖子:1065 积分:7598 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2023/7/26 8:57:00 [只看该作者]

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

 

这个提示


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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/26 9:39:00 [只看该作者]

这种是execl打开后出现的临时文件,用不了的,排除掉名称里有“~”字符的文件

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


加好友 发短信
等级:五尾狐 帖子:1065 积分:7598 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2023/7/26 9:45:00 [只看该作者]

没太懂,我现在只想根据这个文件名生成出一个新的表名,应该怎么做呢?

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/26 9:49:00 [只看该作者]

总之排除掉名称里有“~”字符的文件,这种文件都用不了的

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


加好友 发短信
等级:五尾狐 帖子:1065 积分:7598 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By: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()


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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/26 10:56:00 [只看该作者]

这个是execl自己的问题,数值列设置格式为字符串就这样。导入后自己写代码遍历去掉引号

 回到顶部
总数 11 1 2 下一页