Код:
#region: - Option
Opt('MustDeclareVars', 1)
Opt('TrayIconDebug', 1)
Opt('TrayIconHide', 0)
#endregion
#region: - Include
;~ #include <Array.au3>
#endregion
Local $aFilesList
Local $sDirWhereSerchPath = @WindowsDir & '\help'
$aFilesList = _GetDirFilesList($sDirWhereSerchPath, '*.*')
If @Error == -1 Then
MsgBox(32, 'Внимание', 'В папке назначения нет искомых файлов')
Exit
EndIf
;~ _ArrayDisplay($aFilesList)
$aFilesList = _CreateFilesList($sDirWhereSerchPath, $aFilesList)
Switch @Error
Case -1
MsgBox(32, 'Внимание', 'Ошибка создания списка:' & @CRLF & 'переданный параметр не массив')
Exit
Case 1
MsgBox(32, 'Внимание', 'Ошибка определения нового пути назначения')
Exit
EndSwitch
;~ _ArrayDisplay($aFilesList)
_WriteToNotepad($aFilesList)
Func _GetDirFilesList($sStartDirPath, $sFilesMask, $iAddFiles=1, $iAddDirs=0, $sRootPath=1)
$sStartDirPath = StringRegExpReplace($sStartDirPath, '\\+$', '')
Local $aRetArray[1], $aSubDirsArr, $sFindNextFile, $sCurrentPath, $iYesAdd
Local $sFindFirstFile = FileFindFirstFile($sStartDirPath & '\' & $sFilesMask)
If @error = 1 Then Return SetError(-1)
If $sRootPath == 1 AND $iAddDirs == 1 Then
$aRetArray[0] += 1
ReDim $aRetArray[2]
$aRetArray[1] = $sStartDirPath
EndIf
While 1
$sFindNextFile = FileFindNextFile($sFindFirstFile)
If @error = 1 Then ExitLoop
$sCurrentPath = $sStartDirPath & '\' & $sFindNextFile
$iYesAdd = 0
If StringInStr(FileGetAttrib($sCurrentPath), 'D') Then
If $iAddDirs == 1 Then $iYesAdd = 1
Else
If $iAddFiles == 1 Then $iYesAdd = 1
EndIf
If $iYesAdd == 1 Then
$aRetArray[0] += 1
ReDim $aRetArray[$aRetArray[0]+1]
$aRetArray[$aRetArray[0]] = $sCurrentPath
EndIf
$aSubDirsArr = _GetDirFilesList($sCurrentPath, $sFilesMask, $iAddFiles, $iAddDirs, 0)
If IsArray($aSubDirsArr) Then
For $i = 1 To $aSubDirsArr[0]
$aRetArray[0] += 1
ReDim $aRetArray[$aRetArray[0]+1]
$aRetArray[$aRetArray[0]] = $aSubDirsArr[$i]
Next
EndIf
WEnd
FileClose($sFindFirstFile)
SetError(0)
Return $aRetArray
EndFunc
Func _CreateFilesList($sStartDirPath, $aFilesPath)
If NOT IsArray($aFilesPath) Then Return SetError(1)
Local $i, $aResult[1], $sFilePath
$aResult[0] = 0
If StringRight($sStartDirPath, 1) == '\' Then $sStartDirPath = StringTrimRight($sStartDirPath, 1)
$sStartDirPath = StringSplit($sStartDirPath, '\')
If @Error == -1 Then Return SetError(-1)
$sStartDirPath = $sStartDirPath[$sStartDirPath[0]-1] & '\' & $sStartDirPath[$sStartDirPath[0]]
For $i=1 To $aFilesPath[0]
$sFilePath = StringRegExpReplace($aFilesPath[$i], '.*(\\' & StringReplace($sStartDirPath, '\', '\\') & ')', '\1', 1)
$aResult[0] += 1
ReDim $aResult[$aResult[0]+1]
$aResult[$aResult[0]] = 'FileInstall("' & $sStartDirPath & '", $test_var & ' & '"' & $sFilePath & '", 1)'
Next
Return $aResult
EndFunc
Func _WriteToNotepad(ByRef $aFilesList)
Local $iPid, $iHwd, $i, $sFilesList
$iPid = Run('notepad.exe')
While 1
$iHwd = _ProcessGetWindow($iPid)
If IsHWnd($iHwd) Then ExitLoop
WEnd
WinWait($iHwd)
For $i=1 To $aFilesList[0]
$sFilesList &= $aFilesList[$i]
If $i < $aFilesList[0] Then $sFilesList &= @CRLF
Next
ControlSetText($iHwd, '', '[CLASS:Edit; INSTANCE:1]', $sFilesList)
EndFunc
Func _ProcessGetWindow($iPID, $iRet=1)
Local $aWinList = WinList()
Local $aRet[2]
If IsString($iPID) Then $iPID = ProcessExists($iPID)
For $i = 1 To UBound($aWinList)-1
If WinGetProcess($aWinList[$i][1]) = $iPID Then
$aRet[0] = $aWinList[$i][0] ;Title
$aRet[1] = $aWinList[$i][1] ;WinHandle
If $iRet = 0 Then Return $aRet[0]
If $iRet = 1 Then Return $aRet[1]
Return $aRet
EndIf
Next
Return SetError(1, 0, $aRet)
EndFunc
|
