[SyDr]

$sCompile_String = StringRegExpReplace($sCompile_String, '/(.*?) ".*?"', '/$1 %s')

Символы повтора (*, +, ?, {...} ) предписывают поиск наибольшего из подходящих фрагментов, если сразу вслед за этими символами не задан знак вопроса. В последнем случае будет предписывается поиск самого короткого по длине фрагмента, который совпадает с заданным шаблоном.

$sCompile_String = StringRegExpReplace($sCompile_String, '/(.*?) (\S)*', '/$1 %s ')

[Maza Faka]

И ещё задача по RegExp »

Вроде работает:

Код:

$sCompile_String = '/In "Yes" /Icon "No" /Bin "Ok" /Comp 1'

$sCompile_String = StringRegExpReplace($sCompile_String, '(/[\w-]*)\s("?[\w-]*"?)', '\1 %s')

ConsoleWrite($sCompile_String & @CRLF)

[Creat0R]

Sylver Dragon, Maza Faka,
Спасибо, оба варианта работают на ура (первый конечно по проще ), а я столько мучался ...

[SyDr]

Ааааа... Мой вариант немного неправильный. Строку вида '/In "Yes, Right" /Icon "No" /Bin "Ok" /Comp 1' обработать правильно не сможет. С пробелами всмысле.

Можно так тогда переписать:
$sCompile_String = StringRegExpReplace($sCompile_String, '/(.*?) ([^/])*', '/$1 %s ')
Однако строку вида '/In array "Yes, Right" /Icon, or not icon "No" /Bin "Ok" /Comp 1' Он всё равно обработать не сможет. Хотя впринципе такую строку ничто не сможет обработать. Нужны будут какие-то спец. символы, чтобы выделять нужные куски.

[Creat0R]

Sylver Dragon,

Строку вида '/In "Yes, Right" /Icon "No" /Bin "Ok" /Comp 1' обработать правильно не сможет »

Ну, оно по сути и не нужно, мне заранее известен формат строки, он именно таков как я и привёл в своём посте - Т.ч мне первый вариант очень даже подходит, спасибо.

P.S
Вот если бы ещё с первой проблемой разобраться ...

[SyDr]

StringRegExp($Clip, '(\a:\\)([^/\\<>:*?"|])*\.(txt|txt\.bk)(\n|$)')

Пока не проверял. Поясню немного:
([^\\/<>:*?"|])* - означает наличие любых символов, кроме тех, которые не могут присутствовать в имени файла. Надеюсь, что правильно записал выражение. Хотя если в буфере будет что-то типа: D:::\Bla\Text.txt - правильно обравботать не получиться.
Ну, я не думаю, что кто-то будет так маньячиться.
Щас немного потестирую.

Стоп. пути только полные, или могут быть относительные?

Пока не работает. Даже понял, почему Сменились значения спец. символов. Придёться с английской справкой работать((

---

Я немножко в ступоре))
StringRegExp($Clip, '\b:\\([^\\/<>:*?|])*')) - вот это проверит, может ли являеться ли $Clip путём к файлу. Однако расширение она учесть не сможет (точки могут быть в любом месте файла). Это уже надо сильно усложнять выражение, что приведёт к увеличению времени обработки. А это здесь явно не нужно.
Щас буду думать дальше.

И ещё, как вариант, проверять, путь ли в буфере, не во время вызова контекстного меню, а регулярно, во время работы программы. Т. е. если буфер изменился - проверить, путь ли в нём теперь.

---

Я дурак. Поставил в регулярное выражение символ \ и думаю, почему неправильно обрабатывает...

---

Всё. Вот моё окончательное слово:

Код:

StringRegExp($Clip, '\b:\\([^/<>:*?|])*(\.txt|txt\.bk)(\n|$)')

P. S. Только для полных путей.

[Creat0R]

Sylver Dragon,

пути только полные, или могут быть относительные? »

Полные, ClipGet() возвращает полные пути скопированных файлов (из проводника).

как вариант, проверять, путь ли в буфере, не во время вызова контекстного меню, а регулярно, во время работы программы »

Вариант был расмотрен ранее, он не подходит, это нагрузка на главный цикл, и занимает лишние мегабайты памяти

Вот моё окончательное слово »

Спасибо, но оно не работает как надо:

Код:

$Clip = _
    "C:\Testing\SomeFile.txt" & @LF & _
    "Testing\OtherFile.txt"

;$Clip = ClipGet()

$sExt_Pattern = '\.txt|\.txt\.bk' ;Файлы ещё могут иметь расширение txt.bk (обязательно вместе)
$iEnable_Paste_Item = StringRegExp($Clip, '\b:\\([^\/<>:*?|])*(' & $sExt_Pattern & ')(\n|$)')

MsgBox(0, "", "$iEnable_Paste_Item = " & $iEnable_Paste_Item)

Возвращает 1, хотя втрой путь совсем не путь к файлу.

[amel27]

Creat0R

Pattern для проверки содержимого б. обмена на присутствие путей к файлам »

скорость и глубина проверки противоречат друг другу, четыре разных варианта:

Код:

#Region : Построение регулярного выражения
$ExpandVarStrings = Opt("ExpandVarStrings", 1)

$extn = "(?:\.txt|\.txt\.bk)"
; диск ("C:")
$disk_1 = ".:"
$disk_2 = "[a-z]:"
; UNC путь (\\server-1.domain.local)
$host_1 = "\\\\[-\w.]+"
$host_2 = "\\\\[-\w]+(?:\.[-\w]+)*"
; корень пути (все возможные варианты)
$root_1 = "(?:$disk_1$|$host_1$)"
$root_2 = "(?:$disk_2$|$host_2$)"
; путь без корня, включая имя файла
$path_1 = ".*"
$path_2 = "(?:\\[^\n\\]+)+"
; путь без корня, без имени файла
$path_3 = "\\(?:[^\n\\]+\\)*"
; только имя файла без пути
$name_3 = ".+$extn$"
$name_4 = "[^\n\\]+$extn$"
; одна строки списка файлов
$line_1 = "$root_1$$path_1$$extn$"
$line_2 = "$root_2$$path_2$$extn$"
$line_3 = "($root_2$$path_3$)$name_3$"
$line_4 = "($root_2$$path_3$)$name_4$"
; варианты выражений с разной детализацией
$RegExp_1 = "(?i)^(?:$line_1$(?:\n|$$))+$$"
$RegExp_2 = "(?i)^(?:$line_2$(?:\n|$$))+$$"
$RegExp_3 = "(?i)^$line_3$(?:\n\1$name_3$)*$$" ; файлы с одного ресурса (один путь)
$RegExp_4 = "(?i)^$line_4$(?:\n\1$name_4$)*$$" ; файлы с одного ресурса (один путь)

Opt("ExpandVarStrings", $ExpandVarStrings)
#EndRegion

$sClip = ClipGet()
ConsoleWrite($sClip &@CRLF&@CRLF)

ConsoleWrite(StringRegExp($sClip,$RegExp_1) &': "'& $RegExp_1 &'"'&@CRLF)
ConsoleWrite(StringRegExp($sClip,$RegExp_2) &': "'& $RegExp_2 &'"'&@CRLF)
ConsoleWrite(StringRegExp($sClip,$RegExp_3) &': "'& $RegExp_3 &'"'&@CRLF)
ConsoleWrite(StringRegExp($sClip,$RegExp_4) &': "'& $RegExp_4 &'"'&@CRLF)

И ещё задача по RegExp »

Код:

$sCompile_String = '/In "Yes" /Icon "No" /Bin "Ok" /Comp 1'
$sCompile_String = StringRegExpReplace($sCompile_String,' +("[^"]*"|[^/ ]+)',' %s')

ConsoleWrite($sCompile_String & @CRLF)

P.S. Вроде таких еще не было

[Creat0R]

amel27,

скорость и глубина проверки противоречат друг другу, четыре разных варианта »

Ухты, такие выражения я ещё не видел

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

P.S
Победители конкурса по Регулярным выражениям становятся... RegExp номер 3 и номер 4!

Вроде таких еще не было

Выражении, или задач?

[SyDr]

Спасибо, но оно не работает как надо »

Просто я плохо проверял, прежде чем написать...

Возвращает 1, хотя втрой путь совсем не путь к файлу. »

Это тоже путь к файлу. Просто относительный. Хотя в случае копирования из проводника такой ситуации быть не может.

---

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

---

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

Ещё один вариант - разбить всю строку на массив (разделитель @LF). И проверять каждый элемент - являеться ли он путём к файлу. Ведь чем короче строка - тем быстрее она проверяеться на соотвествие шаблону (так ведь?).
Плюс ещё сделать предположение, что если первые несколько строк - пути к файлам, значит и всё остальное тоже.