论坛 › 已解决问题区 › 求文件全名，谢谢！[已解决]

cfs43210 发表于 2022-11-6 01:55:04

求文件全名，谢谢！[已解决]

本帖最后由 cfs43210 于 2022-11-6 19:13 编辑

#include <File.au3>
#include <Array.au3>

Local $FileList = _FileListToArray("D:\Program Files\Temp","201712170002_png.jpg")
If @error = 1 Then
         MsgBox(0, "", "No Folders Found.")
         Exit
EndIf
If @error = 4 Then
         MsgBox(0, "", "No Files Found.")
         Exit
EndIf
;~ _ArrayDisplay($FileList, "$FileList")
MsgBox(0,0,$FileList)

例如：201712170002_png.jpg 这张图片名已知20171217和_png，0002是随机数，MsgBox怎么才能得到这个全名，因为这个程序会产生2个日期一样的图片，201712170002_pgd.jpg，谢谢！

邪恶海盗 发表于 2022-11-6 11:13:23

搜索前几位并列出找到的文件应该是可以的...

chzj589 发表于 2022-11-6 11:32:20

_FileListToArray

cfs43210 发表于 2022-11-6 13:02:39

chzj589 发表于 2022-11-6 11:32
_FileListToArray

你好！没有这个函数，给个试例，谢谢！

cfs43210 发表于 2022-11-6 13:10:28

邪恶海盗 发表于 2022-11-6 11:13
搜索前几位并列出找到的文件应该是可以的...

你好！给个试例谢谢！

chzj589 发表于 2022-11-6 14:06:47

cfs43210 发表于 2022-11-6 13:02
你好！没有这个函数，给个试例，谢谢！




#include <Array.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>
Example()
Func Example()
    ; 使用默认参数返回 desktop(桌面) 目录中所有文件和文件夹的完整路径.
    Local $aFileList = _FileListToArray(@ScriptDir, Default, Default, True)
    If @error = 1 Then
      MsgBox($MB_SYSTEMMODAL, "", "路径无效.")
      Exit
    EndIf
    If @error = 4 Then
      MsgBox($MB_SYSTEMMODAL, "", "未发现文件.")
      Exit
    EndIf
    ; 显示 _FileListToArray() 的返回结果.
    _ArrayDisplay($aFileList, "文件清单")
EndFunc   ;==>Example

cfs43210 发表于 2022-11-6 14:57:41

本帖最后由 cfs43210 于 2022-11-6 15:12 编辑

chzj589 发表于 2022-11-6 14:06

#include <File.au3>
#include <Array.au3>

Local $FileList = _FileListToArray("D:\Program Files\Temp","201712170002_png.jpg")
If @error = 1 Then
      MsgBox(0, "", "No Folders Found.")
      Exit
EndIf
If @error = 4 Then
      MsgBox(0, "", "No Files Found.")
      Exit
EndIf
;~ _ArrayDisplay($FileList, "$FileList")
MsgBox(0,0,$FileList)

例如：201712170002_png.jpg 这张图片名已知20171217和_png，0002是随机数，MsgBox怎么才能得到这个全名，因为这个程序会产生2个日期一样的图片，201712170002_pgd.jpg，谢谢！

chzj589 发表于 2022-11-6 15:53:17

本帖最后由 chzj589 于 2022-11-8 07:39 编辑

cfs43210 发表于 2022-11-6 14:57
#include
#include





#include <Array.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>

Example()

Func Example()
    ; 使用默认参数返回 desktop(桌面) 目录中所有文件和文件夹的完整路径.
      Local $aFileList = _FileListToArray(@ScriptDir, "*", 1)
    ;Local $aFileList = _FileListToArray(@ScriptDir, Default, Default, True)
    If @error = 1 Then
      MsgBox($MB_SYSTEMMODAL, "", "路径无效.")
      Exit
    EndIf
    If @error = 4 Then
      MsgBox($MB_SYSTEMMODAL, "", "未发现文件.")
      Exit
    EndIf
    ; 显示 _FileListToArray() 的返回结果.
    _ArrayDisplay($aFileList, "文件清单")
EndFunc   ;==>Example

zghwelcome 发表于 2022-11-6 17:24:11

本帖最后由 zghwelcome 于 2022-11-6 17:25 编辑





#include <File.au3>
#include <Array.au3>
Local $FileList = _FileListToArray("D:\Program Files\Temp","*20171217*_png*.*",1,true)
If Not @error Then MsgBox(0,0,$FileList)

cfs43210 发表于 2022-11-6 18:16:33

本帖最后由 cfs43210 于 2022-11-6 18:21 编辑

chzj589 发表于 2022-11-6 15:53

老大可能是我表达错了，你的代码是列所有这2个格式的图片。

我的意思是，假如：这个目录有 A201712170002_png.jpg 和 A201712170002_pgd.jpg 的图片
                                              A201712180003_png.jpg 和 A201712180003_pgd.jpg 的图片
                                              A201712190004_png.jpg 和 A201712190004_pgd.jpg 的图片
          如：查A20171217 能得到这个图片 A201712170002_png.jpg 全名
          如：查A20171218 能得到这个图片 A201712180003_png.jpg 全名
          如：查A20171219 能得到这个图片 A201712190004_png.jpg 全名
只要一个图片的全名谢谢！

cfs43210 发表于 2022-11-6 18:19:18

zghwelcome 发表于 2022-11-6 17:24



老大运行出错呢！谢谢！

cfs43210 发表于 2022-11-6 18:58:33

zghwelcome 发表于 2022-11-6 17:24



#include <File.au3>



#include <Array.au3>

Local $FileList = _FileListToArray("D:\Program Files\Temp","*20171217*_png.jpg",1)

If Not @error Then MsgBox(0,0,$FileList)
这样可以了，老大厉害谢谢哦！！！

cfs43210 发表于 2022-11-6 18:59:25

cfs43210 发表于 2022-11-6 18:16
老大可能是我表达错了，你的代码是列所有这2个格式的图片。

我的意思是，假如：这个目录有 A201712170 ...

老大，搞定了，谢谢哦！！！

chzj589 发表于 2022-11-6 19:10:32

本帖最后由 chzj589 于 2022-11-8 18:01 编辑

cfs43210 发表于 2022-11-6 18:16
老大可能是我表达错了，你的代码是列所有这2个格式的图片。

我的意思是，假如：这个目录有 A201712170 ...
搞定就好。

查看完整版本: 求文件全名，谢谢！[已解决]