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

cfs43210

#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[1])

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

邪恶海盗

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

chzj589

_FileListToArray

cfs43210

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

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

cfs43210

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

你好！给个试例谢谢！

chzj589

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

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[1])

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

chzj589

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

#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[1])

cfs43210

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

zghwelcome 发表于 2022-11-6 17:24
[/td][/tr]
[/table]

老大运行出错呢！谢谢！

cfs43210

zghwelcome 发表于 2022-11-6 17:24
[/td][/tr]
[/table]

#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[1])
这样可以了，老大厉害谢谢哦！！！

cfs43210

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

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

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

chzj589

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

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

搞定就好。