论坛 › 已解决问题区 › 【已解决】_FileListToArray如何支持二维数组呢？

menfan1 发表于 2011-2-25 11:23:21

【已解决】_FileListToArray如何支持二维数组呢？

本帖最后由 menfan1 于 2011-2-25 16:30 编辑

目前_FileListToArray只是一维数组，有更新函数支持二维数组吗？

yhxhappy 发表于 2011-2-25 15:47:31

本帖最后由 yhxhappy 于 2011-2-25 15:49 编辑

自己修改一下就可以了

Func _FileListToArray($sPath, $sFilter = "*", $iFlag = 0)
        Local $hSearch, $sFile, $sFileList, $sDelim = "|"
        $sPath = StringRegExpReplace($sPath, "[\\/]+\z", "") & "\" ; ensure single trailing backslash
        If Not FileExists($sPath) Then Return SetError(1, 1, "")
        If StringRegExp($sFilter, "[\\/:><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "")
        If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")
        $hSearch = FileFindFirstFile($sPath & $sFilter)
        If @error Then Return SetError(4, 4, "")
        While 1
                $sFile = FileFindNextFile($hSearch)
                If @error Then ExitLoop
                If ($iFlag + @extended = 2) Then ContinueLoop
                $sFileList &= $sDelim & $sFile
        WEnd
        FileClose($hSearch)
        If Not $sFileList Then Return SetError(4, 4, "")
        Return StringSplit(StringTrimLeft($sFileList, 1), "|")          ;这一句改改就行了。
EndFunc;==>_FileListToArray

查看完整版本: 【已解决】_FileListToArray如何支持二维数组呢？