[Creat0R]

amel27,

_StripLead...

Спасибо!
Я кстати нашёл ещё один способ как это можно сделать, только не уверен надёжен ли он:

Код:

StringRegExpReplace($Str, '\A' & $Char & '+', '')

И для конечных символов...

StringRegExpReplace($Str, $Char & '+\z', '')

как обычно... если задан флаг, то для "калассики" работает штатный метод, а для "нового стиля" автоматом подключается CallBack-функция

Я флаги вовсе не ставлю, но кнопка всё ровно не активна, как будто флаг $BIF_RETURNONLYFSDIRS используется

Заметил один глюк при использовании $BIF_BROWSEINCLUDEFILES - Если сразу после появления окна нажать Отмена или ОК (на выбранном элементе), то функция не сразу возвращает (проходит около секунды).

И ещё, значки для файлов (если есть таковы в начальном каталоге), все имеют иконку Internet Explorer - А остальные значки (для папок и системные элементы), вовсе не имеют значков, все как будто папки... это длится также около секунды, потом всё нормально становится.

[amel27]

Creat0R

кстати нашёл ещё один способ как это можно сделать

угу, в принципе то же самое, только у тебя для одного символа, а у меня для произвольного набора начальных символов... а "плюсик" ты правильно подметил ... у себя тоже поправил, и укоротил строку замены

флаги вовсе не ставлю, но кнопка всё ровно не активна

исправил (с битовыми операциями намутил), и еще добавил симуляцию "селекта" для дефолтовой папки - на ней не срабатывало затенение "Ок" (так как не было сообщения $BFFM_SETSELECTION)

Если сразу после появления окна нажать Отмена или ОК (на выбранном элементе), то функция не сразу возвращает (проходит около секунды).

да нет, у меня вроде без тормозов

значки для файлов (если есть таковы в начальном каталоге), все имеют иконку Internet Explorer - А остальные значки (для папок и системные элементы), вовсе не имеют значков, все как будто папки... это длится также около секунды, потом всё нормально становится.

ну, это експлорер так обновляет элементы... тут видимо ничего не поделать

[Creat0R]

amel27,

в принципе то же самое, только у тебя для одного символа

Да нет вроде... (для этого там и плюсик ) - Я понял что ты имел в виду - если в качестве символа задана серия разных символов, то в моём случае только первое вхождение будет заменено...
Но и с ствоим методом есть небольшая проблема:

Код:

$Char = '\t'

$Char = StringRegExpReplace($Char, '([][{}()|.?+*\\^])', '\\\1')
$Ret = StringRegExpReplace("\\test", '(?i)^[' & $Char & ']+([^' & $Char & '])', '\1')

ConsoleWrite($Ret)

Т.е под символ \ подставляется ещё один такой символ (для его отмены), и тогда неверно возвращается (должно в этом случае вернуться исходное значение - без изменении, так как в начале не найдено вхождение \t).



Вот функция (для чего вообще мне и требовалось сия опция), позволяет стриппить (обножать) определённый(е) символ(ы):

Код:

;=======================================
;$Flag = 0 (или любое значение кроме 1,2, и 3) - обычная замена всех вхождении заданного символа
;$Flag = 1 - убирание заданного символа в начале $String
;$Flag = 2 - убирание заданного символа в конце $String
;$Flag = 3 - убирание заданного символа в начале и в конце $String
;
;$ReplaceAll = 0 (по умолчанию) - заменяется только первое вхождение заданного(ных) символа(ов)
;$ReplaceAll = 0 - заменяются все вхождения символов с заданой стороны (в зависимости от значения $Flag)
;=======================================
Func _StringStripChars($String, $Char, $Flag=0, $ReplaceAll=0)
    If StringLen($String) = 0 Or Not StringInStr($String, $Char) Then Return SetError(1, 0, $String)
    Local $Patern, $RetStr = $String
    $Char = StringRegExpReplace($Char, '([][{}()|.?+*\\^])', '\\\1')
    Switch $Flag
        Case 1
            $Patern = '(?i)\A' & $Char
            If $ReplaceAll = 1 Then $Patern = '(?i)\A' & $Char & '+'
            $RetStr = StringRegExpReplace($String, $Patern, '')
            Return $RetStr
        Case 2
            $Patern = '(?i)' & $Char & '\z'
            If $ReplaceAll = 1 Then $Patern = '(?i)' & $Char & '+\z'
            $RetStr = StringRegExpReplace($String, $Patern, '')
            Return $RetStr
        Case 3
            $Patern = '(?i)\A' & $Char & '|' & $Char & '\z'
            If $ReplaceAll = 1 Then $Patern = '(?i)\A' & $Char & '+|' & $Char & '+\z'
            $RetStr = StringRegExpReplace($String, $Patern, '')
            Return $RetStr
        Case Else
            $String = StringReplace($String, $Char, '')
            Return SetError(0, @extended, $String)
    EndSwitch
    Return SetError(2, 0, $String)
EndFunc

В этой функции хотелось бы реализовать ещё одну тему - чтобы в качестве $ReplaceAll можно было задать параметр для указания того, сколько символов следует убирать. Т.е если передать к примеру 3, тогда только три первых(/последних/с обоих сторон) символа (заданных через $Char) будут убираться, если же оставить этот параметр по умолчанию (0), то чтобы убирался только первый символ, для убирания всех начальных/конечных символов, задавать -1.
Это конечно можно сделать проверкой длины и т.п... но хотелось именно средствами RegExp...

исправил

Что-то я если честно запутался уже - где следует использовать функцию _MyFSFCallbackProc(), а где _FileSFCallbackProc()

у меня вроде без тормозов

Это при использовании флага $BIF_BROWSEINCLUDEFILES? без него всё нормально.

[amel27]

Creat0R

должно в этом случае вернуться исходное значение - без изменении, так как в начале не найдено вхождение \t

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

В этой функции хотелось бы реализовать ещё одну тему - чтобы в качестве $ReplaceAll можно было задать параметр для указания того, сколько символов следует убирать.

Код:

; $Chars - удаляемые символы
; $Flags - тип замены:
;   $Flag = 0 - удаление символов по всей строке
;   $Flag = 1 - удаление символов в начале строки
;   $Flag = 2 - удаление символов в конце строки
;   $Flag = 3 - удаление символов в начале И в конце строки
;   другие значения флагов равносильны $Flag = 0, $Count=0
; $Count - количество удаляемых символов
;   $Count<=0 - глобальное удаление всех вхождений (для заданных значений флагов)
Func _StringStripChars($String, $Chars, $Flag=0, $Count=0)
    $Chars = StringRegExpReplace($Chars, '([]\\^])', '\\\1')
    Local $Pattern = '(?i)[' & $Chars & ']', $sCnt = '{1,'& $Count &'}'
    If $Count<=0 Then $sCnt='+'
    If $Flag <>0 Then $Count = 0
    If $Flag=1 Then $Pattern= '(?i)^['& $Chars &']'& $sCnt
    If $Flag=2 Then $Pattern= '(?i)[' & $Chars &']'& $sCnt &'$'
    If $Flag=3 Then $Pattern= '(?i)^['& $Chars &']'& $sCnt &'|[' & $Chars &']'& $sCnt &'$'
    Return StringRegExpReplace($String, $Pattern, '', $Count)
EndFunc

Что-то я если честно запутался уже - где следует использовать функцию _MyFSFCallbackProc(), а где _FileSFCallbackProc()

пока хватает штатной имхо _MyFSFCallbackProc не нужна

[Creat0R]

amel27,

это уже получается замена подстроки, а не символов...

Ну почему, мы как бы заменяем набор символов с определённой стороны (или с обоих), на оф форуме часто спрашивают про подобные действия, такая функция во многих случаях бывает очень полезной.

Спасибо за (довольно укороченную) функцию _StringStripChars() - но в ней тоже есть проблема...

К примеру:

Код:

$Ret = _StringStripChars("_test_", '-_', 1, 0)

ConsoleWrite($Ret)

Получаем на выходе test_ - а должно вернуться _test_, т.е должно заменяться только найденное в начале (из за того что указан $Flag = 1), ведь там нету символа -.

А вот к примеру если имеем такую строку: -_-_test_, то используя $Count = 1 должно вернуться -_test_

Код:

$Ret = _StringStripChars("-_-_test_", '-_', 1, 1)

ConsoleWrite($Ret)

А возвращается _-_test_ - я понимаю что заменяется только первое вхождение, но суть этой функции в том, чтобы заменялось то вхождение, которое передаётся через $Chars, вне зависимости от количества символов, т.е чтобы оно расматривалось как одно целое значение (символ).

У меня получилось это сделать обычными средствами (циклами и проверками String...), но это не так быстро как через RegExp .

пока хватает штатной

Спасибо, теперь всё стало ясно! в принципе больше от этой функции (я имею в виду вообще всё что касается _FileSelectFolder() ), ничего и не требуется, достигнут как говорится - идеал!

[amel27]

Creat0R

т.е чтобы оно расматривалось как одно целое значение (символ)

"несколько символов как одно целое" вроде и есть строка тогда и UDF должна по другому называться:

Код:

; $SubString - удаляемая подстрока
; $Flags - тип замены:
;   $Flag = 0 - удаление вхождений подстроки по всей строке
;   $Flag = 1 - удаление вхождений подстроки в начале строки
;   $Flag = 2 - удаление вхождений подстроки в конце строки
;   $Flag = 3 - удаление вхождений подстроки в начале И в конце строки
;   другие значения флагов равносильны $Flag = 0, $Count=0
; $Count - количество удаляемых вхождений
;   $Count<=0 - глобальное удаление всех вхождений (для заданных значений флагов)
Func _StringStripString($String, $SubString, $Flag=0, $Count=0)
    $SubString = StringRegExpReplace($SubString, '([][{}()|.?+*\\^])', '\\\1')
    Local $Pattern = '(?i)(' & $SubString & ')', $sCnt = '{1,'& $Count &'}'
    If $Count<=0 Then $sCnt='+'
    If $Flag <>0 Then $Count = 0
    If $Flag=1 Then $Pattern= '(?i)^('& $SubString &')'& $sCnt
    If $Flag=2 Then $Pattern= '(?i)(' & $SubString &')'& $sCnt &'$'
    If $Flag=3 Then $Pattern= '(?i)^('& $SubString &')'& $sCnt &'|(' & $SubString &')'& $sCnt &'$'
    Return StringRegExpReplace($String, $Pattern, '', $Count)
EndFunc

достигнут как говорится - идеал

тут идеала ИМХО не бывает ... к примеру, есть идея добавить автоматическое "раскрытие" содержимого папки для флага $BIF_BROWSEINCLUDEFILES... как ты думаешь?.. Ну и далеко не все возможности SHBrowseForFolder() еще использованы

З.Ы. в функции _StringStripChars() была ошибка - слово "Pattern" кое-где было с одной "t" (исправил)

[Creat0R]

amel27,

тогда и UDF должна по другому называться:

Название мне нравится - а функционал ещё больше! Спасибо!

есть идея добавить автоматическое "раскрытие" содержимого папки для флага $BIF_BROWSEINCLUDEFILES... как ты думаешь?

Да, было бы полезно.

Кстати, теперь почему то не нужно проверять окончание начального каталога, т.е работает без тех двух добавленных строк (с ними кстати НЕ работает ).

в функции _StringStripChars() была ошибка - слово "Pattern" кое-где было с одной "t" (исправил)

Да, я заметил, забыл сказать

[amel27]

Creat0R

Да, было бы полезно

обломс... помучил я сообщение $BFFM_SETEXPANDED и мне не понравилось. Да, оно открывает папку, но не всегда - если файлов в папке многовато, то папка отображается вообще как пустая (без "плюсика"), причем не нашел возможности потом "обновить" список папок, хотя может только у меня такой глюк? Странно, что нигде в тырнете не нашел ничего подобного... Одно радует - в "классическом" варианте папка всегда открывается. Можешь сам проверить - попробуй в CallBack-функции вместо:

Код:

DllCall ("user32.dll","int","SendMessage", "hwnd", $hWnd, "int", $BFFM_SETSELECTIONA, "int", 1, "ptr", DllStructGetPtr($uCB,1))

подставить:

Код:

DllCall ("user32.dll","int","SendMessage", "hwnd", $hWnd, "int", $BFFM_SETEXPANDED, "int", 1, "wstr", DllStructGetData($uCB,1))

Кстати, теперь почему то не нужно проверять окончание начального каталога, т.е работает без тех двух добавленных строк (с ними кстати НЕ работает )

прямо мистика... тут я ничего не менял, хотя первую-то строчку наверное надо оставить?

[spooll]

Премного извиняюсь, почитал документацию, немного разобрался, стал скрипты писать, все ок, но теперь понадобилось сделать так, чтобы если программа уже установлена, то скрипт завершался, сразу не нашел , а тут страниц очень много, подскажите пожалуйста
Типа такого:
if exists ("c:\1c\1c.exe") Then Exit

[Maza Faka]

spooll,
Либо так и проверять, к примеру:

Код:

If FileExists(@ProgramFilesDir & "\MyProgram\Program.exe") Then
    Exit
Else
    ;...Your script
EndIf

Либо проверять ключ в реестре:

Код:

If RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ICQLite", 1) Then
    Exit
Else
    ;...Your script
EndIf