Цитата Sylver Dragon:
Файлы из прикреплённого архива распаковать в корень справки.
Запустить скрипт. »
|
Да, но там немного структура неверная, как получал список? Лучше такой скрипт использовать, и его кстати нужно прогнать сразу и выложить в архиве распакованную-пропатченную справку, чтобы каждому не приходилось патчить заново....
Код:
#Include <File.au3>
$aFilesList = _FileListToArrayEx(@ScriptDir, "*.htm", 1, -1)
If @error Then Exit
For $i = 1 To $aFilesList[0]
_ReplaceStringInFile($aFilesList[$i], "charset=iso-8859-1", "charset=windows-1251")
Next
;$iMode <= 0 -> Folders + files
;$iMode = 1 -> Files only
;$iMode = 2 -> Folders only
Func _FileListToArrayEx($sPath, $sMask="*", $iMode=-1, $iLevel=-1)
If Not StringInStr(FileGetAttrib($sPath), "D") Then Return SetError(1, 0, 0)
$sPath = StringRegExpReplace($sPath, "\\+$", "")
$sMask = "(?i)" & StringReplace(StringReplace($sMask, ".", "\."), "*", ".*")
StringReplace($sPath, "\", "")
Local $iLevel_Slashes = @extended + 1
Local $aPathesArr[2] = [1, $sPath]
Local $hSearch, $sFindNext, $i, $iIsDir
While $i < $aPathesArr[0]
$i += 1
$hSearch = FileFindFirstFile($aPathesArr[$i] & "\*")
If $hSearch = -1 Then ContinueLoop
While 1
$sFindNext = FileFindNextFile($hSearch)
If @error Then ExitLoop
$iIsDir = StringInStr(FileGetAttrib($aPathesArr[$i] & "\" & $sFindNext), "D")
If $iMode < 2 Or ($iMode = 2 And $iIsDir) Then
If Not $iIsDir And Not StringRegExp($sFindNext, $sMask) Then ContinueLoop
$aPathesArr[0] += 1
ReDim $aPathesArr[$aPathesArr[0]+1]
$aPathesArr[$aPathesArr[0]] = $aPathesArr[$i] & "\" & $sFindNext
EndIf
WEnd
FileClose($hSearch)
StringReplace($aPathesArr[$aPathesArr[0]], "\", "")
If @extended - $iLevel_Slashes = $iLevel Then ExitLoop
Wend
If $iMode = 1 Then
Local $aTmp_Arr = $aPathesArr
Local $iTmp_Count = 0
For $i = 1 To $aPathesArr[0]
If StringInStr(FileGetAttrib($aPathesArr[$i]), "D") Then ContinueLoop
$iTmp_Count += 1
$aTmp_Arr[$iTmp_Count] = $aPathesArr[$i]
Next
$aTmp_Arr[0] = $iTmp_Count
ReDim $aTmp_Arr[$iTmp_Count+1]
$aPathesArr = $aTmp_Arr
EndIf
Return $aPathesArr
EndFunc
Тогда зачем там соответствующая опция есть?
.
