在数组中添加文件名

尹吉

我有这段代码可以获取所有文件类型。然后,如果它在数组中具有扩展名,则应将其存储在excludedFile数组中,并在执行后显示。

Dim excludedFile() as String
Const exts = _
  ".ade.adp.app.asp.bas.bat.cer.chm.cmd.com.cpl.crt.csh.der.exe.fxp.gadget" & _
  ".hlp.hta.inf.ins.isp.its.js.jse.ksh.lnk.mad.maf.mag.mam.maq.mar.mas.mat"

Dim file As Variant
file = Application.GetOpenFilename("All Files, *.*", , "Select File", , True)

ReDim data(1 To UBound(file) + 1, 1 To 1)

' filter the list
For i = LBound(file) To UBound(file)
  ext = LCase(Mid(file(i), InStrRev(file(i), ".")))
  If InStr(1, exts, ext & ".") = 0 Then  ' if not blacklisted
    count = count + 1
    data(count, 1) = file(i)
    Else 'I've tried this but returns Subscript out of range error
    excludedFile(UBound(excludedFile)) = file(i)
    ReDim Preserve excludedFile(1 To UBound(excludedFile) + 1) As String
    found = true
  End If
Next
if found then
     MsgBox Join(excludedFile, vbCrLf)
end if

任何帮助表示赞赏。谢谢。

832先生

不是最优雅的方式,但可以工作

Const exts = _
  ".ade.adp.app.asp.bas.bat.cer.chm.cmd.com.cpl.crt.csh.der.exe.fxp.gadget" & _
  ".hlp.hta.inf.ins.isp.its.js.jse.ksh.lnk.mad.maf.mag.mam.maq.mar.mas.mat"


Dim file As Variant
file = Application.GetOpenFilename("All Files, *.*", , "Select File", , True)

'Dim your Array and a Counter
Dim excludedFile() As String
Dim efCount As Integer

ReDim Data(1 To UBound(file) + 1, 1 To 1)

efCount = 0
' filter the list
For i = LBound(file) To UBound(file)
  ext = LCase(Mid(file(i), InStrRev(file(i), ".")))
  If InStr(1, exts, ext & ".") = 0 Then  ' if not blacklisted
    Count = Count + 1
    Data(Count, 1) = file(i)
    Else 'I've tried this but returns Subscript out of range error

    'Use counter to access array
    ReDim Preserve excludedFile(efCount)
    excludedFile(efCount) = file(i)
    efCount = efCount + 1

    found = True
  End If
Next

If found Then
     MsgBox Join(excludedFile, vbCrLf)
End If

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何从python将文件名存储在数组中

来自分类Dev

在数组中不忽略文件名

来自分类Dev

如何加载文件名存储在数组中的文件?

来自分类Dev

在数组中存储文件名、位置和大小以记住图像中的选择矩形

来自分类Java

在数组中,它存储的是NULL而不是PDF文件名

来自分类Dev

C 编程 - Strdup 不能正确地在数组中捕获和存储文件名

来自分类Dev

如何在数组中传递文件名,然后迭代赛普拉斯中的文件上载功能

来自分类Dev

在网址中添加文件名

来自分类Dev

在脚本中添加文件名增量

来自分类Dev

在文件名中添加序列前缀

来自分类Dev

无法在数据库中存储文件名

来自分类Dev

Python:需要将选择的文件名添加到数组中

来自分类Dev

创建批处理文件,以文件名中的某些字符串将文件添加到数组

来自分类Dev

数组中每个文件名的php复制文件

来自分类Dev

当多个文件合并在一起时,如何在数据框中的列中添加文件名?

来自分类Dev

在c中的文件名中添加日期和时间

来自分类Dev

如何从文件名的大数组中测试文件是否存在,如果文件名不以一致的方式存在,则从数组中删除文件名?

来自分类Dev

将列表的行添加为文件名中的前缀

来自分类Dev

Perl在文件名中添加日期/时间

来自分类Linux

Linux Shell脚本在文件名中添加前导零

来自分类Dev

bash 脚本中的 curl 添加 ? 在文件名的末尾

来自分类Dev

如何避免在发布数据中添加文件名?

来自分类Dev

在文件名,JavaScript中添加前缀

来自分类Dev

如何在 Content-Disposition 的文件名中添加“/”

来自分类Dev

在bash中的for循环期间向文件名添加后缀

来自分类Dev

在 Python 中为文件名添加时间戳

来自分类Dev

如何在vim中的文件名的开头添加“#”?

来自分类Dev

如何在保存的文件名中添加时间?

来自分类Dev

在SAS中的文件名语句后添加附件

Related 相关文章

  1. 1

    如何从python将文件名存储在数组中

  2. 2

    在数组中不忽略文件名

  3. 3

    如何加载文件名存储在数组中的文件?

  4. 4

    在数组中存储文件名、位置和大小以记住图像中的选择矩形

  5. 5

    在数组中,它存储的是NULL而不是PDF文件名

  6. 6

    C 编程 - Strdup 不能正确地在数组中捕获和存储文件名

  7. 7

    如何在数组中传递文件名,然后迭代赛普拉斯中的文件上载功能

  8. 8

    在网址中添加文件名

  9. 9

    在脚本中添加文件名增量

  10. 10

    在文件名中添加序列前缀

  11. 11

    无法在数据库中存储文件名

  12. 12

    Python:需要将选择的文件名添加到数组中

  13. 13

    创建批处理文件,以文件名中的某些字符串将文件添加到数组

  14. 14

    数组中每个文件名的php复制文件

  15. 15

    当多个文件合并在一起时,如何在数据框中的列中添加文件名?

  16. 16

    在c中的文件名中添加日期和时间

  17. 17

    如何从文件名的大数组中测试文件是否存在,如果文件名不以一致的方式存在,则从数组中删除文件名?

  18. 18

    将列表的行添加为文件名中的前缀

  19. 19

    Perl在文件名中添加日期/时间

  20. 20

    Linux Shell脚本在文件名中添加前导零

  21. 21

    bash 脚本中的 curl 添加 ? 在文件名的末尾

  22. 22

    如何避免在发布数据中添加文件名?

  23. 23

    在文件名,JavaScript中添加前缀

  24. 24

    如何在 Content-Disposition 的文件名中添加“/”

  25. 25

    在bash中的for循环期间向文件名添加后缀

  26. 26

    在 Python 中为文件名添加时间戳

  27. 27

    如何在vim中的文件名的开头添加“#”?

  28. 28

    如何在保存的文件名中添加时间?

  29. 29

    在SAS中的文件名语句后添加附件

热门标签

归档