Foxtable(狐表)用户栏目专家坐堂 → 逻辑关系咨询


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

主题:逻辑关系咨询

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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
逻辑关系咨询  发帖心情 Post By:2016/9/6 15:44:00 [只看该作者]

用判断处理所有".xls和.xlsx文件,但不包含文件以  “~$“字符开头的EXCEL应该如何写

If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") AndAlso not  file.StartsWith("~$"))

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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2016/9/6 16:09:00 [只看该作者]

老师?

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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2016/9/6 16:28:00 [只看该作者]

老师咧,帮忙解答一下先谢谢了。

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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/9/6 17:06:00 [只看该作者]

If (file.EndsWith(".xls") OrElse file.EndsWith(".xlsx")) AndAlso  file.StartsWith("~$")=False then


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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2016/9/6 17:20:00 [只看该作者]

TO狐爸,上面的代码还是处理了以~$开头的文件,例如:~$文件名.xls

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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/9/6 17:35:00 [只看该作者]

上面的代码就是后缀是xls或xlsx,且不是~$开头的意思。

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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2016/9/7 0:18:00 [只看该作者]

可能我没有表述清楚,以~$开头的文件也是以XLS为后缀的,我不想包含这类文件。
例:有3个文件
1、表A.xls
2、表B.xlsx
3、~$表C.XLS

以上3个文件只想包含文件1和文件2,不处理文件3

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


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

For Each File As String In FileSys.GetFiles("D:\项目")
    If (file.EndsWith(".xls") OrElse file.EndsWith(".xlsx")) AndAlso  FileSys.GetName(file).StartsWith("~$")=False Then
        Output.Show(File)
    End If
Next

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


加好友 发短信
等级:小狐 帖子:392 积分:3312 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2016/9/7 14:37:00 [只看该作者]

问题解决,多谢老师

 回到顶部