[amel27]

если к примеру строка будет заканчиваться точкой »

ну это лечится как раз легко и без особых изменений в шаблоне

Код:

$sPath = StringRegExpReplace($sPath, '\.[^.\\]{2}(\.[^.\\]{0,4})?$', '')

[TERMINAL]

генерятся случайным образом при создании/форматировании тома, соответственно если с диска сделать образ, подправить в редакторе типа UltraISO и залить обратно на болванку серийник не изменится »

проблема в том что он даже при подправке меняется-как выйти с такой ситуации или где увидить заранее этот серийник?!

[amel27]

он даже при подправке меняется »

AFAIK серийник для томов на HDD/FDD можно поменять программно, но для CD/DVD все сложней и походу зависит от программ прожига... К примеру, MagicISO заявляет о такой фиче, но проверить самому не было случая.

[TERMINAL]

проблема в том что он даже при подправке меняется-как выйти с такой ситуации или где увидить заранее этот серийник?! »

Там тоже не показывает.....

Возможно ли вывести содержимое маленького текстового файла через команду MsgBox?

[Creat0R]

amel27,

это лечится как раз легко и без особых изменений в шаблоне »

Спасибо, но теперь проблема с точками на конце второго расширения , т.е если они как бы символы самого расширения... в общем ладно, не страшно, всё ровно это не корректное расширение файла, хотя последний вариант в моём посте отрубает нормально расширения .

TERMINAL,

вывести содержимое маленького текстового файла через команду MsgBox? »

Код:

MsgBox(64, "", FileRead("File.txt"))

?

[EgOrus]

Помомгите решить проблемму. Есть скрипт, который делает листинг файлов на всех жёстких дисках по маске и записывает результат в файл. Так вот отрабатывается он как-то странно, периодически не отрабатываются некоторые из масок и часто пишется не в той кодовой станице, хотя команда на изменение кодовой страницы добавлена. Сперва думал что вся проблемма в маленьком слипе между циклами, но при увеличении времени ситуация не меняется. Скрипт то работает нормально то нет.

Код:

Opt("ExpandEnvStrings", 1)
Opt("ExpandVarStrings", 1)

$tmpfle = @WindowsDir&'\Temp\files.tmp'
Call ("Listbase", "*.doc")
Call ("Listbase", "*.xls")
Call ("Listbase", "*.ppt")

;--- Function ------
func ListBase($ext)
;Получаем буквы имеющихся жёстких дисков
$drives = DriveGetDrive("FIXED")
	If @error Then Exit
	;По очереди открываем каждый жёсткий диск
	For $i=1 to $drives[0]
		;Получаем листинг файлов для текущего расширения на текущем диске и записываем его в файл
		$dr=$drives[$i]&'\'&$ext
		Run('%Comspec% /c chcp 1251 | dir "$dr$" /s /b >> $tmpfle$','',@SW_HIDE)
		Sleep (500)
	Next
EndFunc

Причем вот такая функций работает нормально (решил просто слегка сократить код, т.к. на мой взгляд через команду echo сделать это проще и быстрее)

Код:

;--- Func ----------------------------
func ListBase($ext)
;Получаем буквы имеющихся жёстких дисков
$drives = DriveGetDrive("FIXED")
	If @error Then Exit
	;Открываем файл со списком
	$file = FileOpen($tmpfle, 1)
	;По очереди открываем каждый жёсткий диск
	For $i=1 to $drives[0]
		;Получаем листинг файлов для текущего расширения на текущем диске
		$dr=dir($drives[$i]&'\'&$ext)
		;Заполняем файл со списком построчно из предыдущего листинга
		For $k=1 To $dr[0]-1
			FileWrite($file, '"' & $dr[$k] & '"' & @CRLF)					
		Next
		$dr=0
	Next
	FileClose($file)
EndFunc

;Функция получения списка файлов по заданному пути для заданного расширения
Func dir($d)
 $dr = Run('%Comspec% /c dir "$d$" /s /b','',0,6)
 $f  = ''
 While not @error
  $f = $f & StdoutRead($dr)
 Wend
 Return (StringSplit(StringReplace($f,@LF,''),@CR))
EndFunc

[Creat0R]

EgOrus,
Во-первых я бы не стал пользоваться «Opt("ExpandEnv/VarStrings", 1)», значительно замедляет обработку строк.

Можно перебирать сразу нужные маски...

Код:

_ListFiles('*.doc|*.xls|*.ppt', @WindowsDir & '\Temp\files.tmp')

Func _ListFiles($sMasks, $sFile)
    ;Получаем буквы имеющихся жёстких дисков
    Local $aDrives = DriveGetDrive("FIXED")
    If @error Then Exit

    ;Если файл не существует, пишем в него типа сигнатуру для UTF-8 :)
    If Not FileExists($sFile) Then FileClose(FileOpen($sFile, 2 + 128))

    Local $hFileOpen = FileOpen($sFile, 1 + 64)
    Local $sDirList, $sDirMaskList

    For $i = 1 To $aDrives[0]
        ;Получаем строку с текущим диском и всеми масками
        $sDirMaskList = '"' & $aDrives[$i] & '\' & StringReplace($sMasks, '|', '" "' & $aDrives[$i] & '\') & '"'
        If @extended = 0 Then $sDirMaskList = '"' & $aDrives[$i] & '\' & $sMasks & '"'

        ;Получаем листинг файлов для текущих расширении на текущем диске
        $sDirList = _DirList($sDirMaskList)

        ;Заполняем файл со списком из листинга
        FileWrite($hFileOpen, $sDirList)
    Next

    FileClose($hFileOpen)
EndFunc

Func _DirList($sPath)
    Local $iStdOut = Run(@Comspec & ' /c chcp 1251 | dir ' & $sPath & ' /s /b', '', '', 6)
    Local $sStdOutRead = ""

    While 1
        $sStdOutRead &= StdoutRead($iStdOut)
        If @error Then ExitLoop
    Wend

    Return $sStdOutRead
EndFunc

[EgOrus]

Во-первых я бы не стал пользоваться «Opt("ExpandEnv/VarStrings", 1)», значительно замедляет обработку строк.

спасибо не знал, по поводу возможности одновременного использовании неск. масок с командой DIR даже не подумал, за это отдельное спасибо

к сожалению я именно поэтому от варианта чтения stdout отказался, что он работает несколько дольше чем сразу листинг в файл это заметно при большом общем количестве файлов и соотв. файлов по маске - порядка 10 тысяч, кроме того это проще и меньше кода. Проблемму с кодировками также не снимает - в результирующем файле получается мешанина из 866 и 1251 кодировок (это и непонятно, видимо не всегда отрабатывается chcp, или есть какой-то ньюанс с этой командой, которого я не знаю). А UTF заголовок не влияет на то, в какой кодировке записываются данные в этот файл.
Если не использовать chcp 1251 то все идет в 866 кодировке. Но тогда придется готовый файл конвретировать в 1251, что без сторонних утилит сделать проблемматично.
В предыдущем посте я писал что скрипт работает нормально, но это не так, просто запамятовал что не использовал chcp, а конечный файл перекодировал с помощью утилиты xcode.exe
Нужно это все для того, чтобы при дальнейшей вычитке результирующего файла с помощью функции _FileReadToArray($tmpfle, $aFiles) корректно обрабатывались русские имена, для этого и нужен UTF или 1251

[TERMINAL]

Помогите, как и где можно узнать случайный номер имедж образа?

[amel27]

TERMINAL

как и где можно узнать случайный номер имедж образа? »

смонтировать образ в DAEMON Tools


Creat0R

последний вариант в моём посте отрубает нормально расширения »

в постановке задачи ты выставил требования именно к расширению, поэтому логично именно его и описывать шаблоном... кроме того, так будет проще (впоследствии) читать код RegExp

это не корректное расширение файла »

ну дык потому и не включил точку в класс... я исходил из того, что точка - спецсимвол, а значит должна полностью обрабатываться регулярным выражением, при желании состав класса можно поменять, но исключение на "\" полюбому нужно оставить... возбежание сюрпризов. Кстати, хорошим стилем считается предварять группы, не используемые в подстановках, командой "?:", это ускоряет обработку... хотя и не влияет на результат.


EgOrus

без сторонних утилит сделать проблемматично »

для AutoIT это не проблема, вот две UDF преобразования OEM в ANSI и обратно:

Код:

Func _StringANSI2OEM($strText)
    Local $buf = DllStructCreate("char["& StringLen($strText)+1 &"]")
    Local $ret = DllCall("User32.dll", "int", "CharToOem", "str", $strText, "ptr", DllStructGetPtr($buf))
    If Not(IsArray($ret)) Then Return SetError(1, 0, '') ; ошибка DLL
    If $ret[0]=0 Then Return SetError(2, $ret[0], '') ; ошибка функции
    Return DllStructGetData($buf, 1)
EndFunc  ;==> _StringANSI2OEM

Func _StringOEM2ANSI($strText)
    Local $buf = DllStructCreate("char["& StringLen($strText)+1 &"]")
    Local $ret = DllCall("User32.dll", "int", "OemToChar", "str", $strText, "ptr", DllStructGetPtr($buf))
    If Not(IsArray($ret)) Then Return SetError(1, 0, '') ; ошибка DLL
    If $ret[0]=0 Then Return SetError(2, $ret[0], '') ; ошибка функции
    Return DllStructGetData($buf, 1)
EndFunc  ;==> _StringOEM2ANSI