Серый форум — AHK: Разделение строки на части без удаления делимитеров

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (humanoid) — Fri, 10 Feb 2023 15:08:50 +0000

teadrinker вроде все поправил.

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (teadrinker) — Fri, 10 Feb 2023 15:02:58 +0000

Только точки ставить не забывайте, у нас строгие требования к оформлению.

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (humanoid) — Fri, 10 Feb 2023 14:59:44 +0000

teadrinker Спасибо! Буду разбираться с Вашим кодом. )))

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (teadrinker) — Fri, 10 Feb 2023 14:57:19 +0000

Обращайтесь!

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (humanoid) — Fri, 10 Feb 2023 14:52:15 +0000

teadrinker wow! Кратко, изящно и красиво! Краткость - сестра таланта.))) Большое спасибо!

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (teadrinker) — Fri, 10 Feb 2023 14:51:53 +0000

Или такая регулярка, наверно даже правильнее:

RegExMatch(Content, "O)(?<="")[A-Z](?!:\\)[^""\\]*", m, m ? m.Pos + m.Len : 1)

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (teadrinker) — Fri, 10 Feb 2023 14:49:56 +0000

Уже подправил.

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (humanoid) — Fri, 10 Feb 2023 14:49:00 +0000

teadrinker да, только одной строкой и каждая в двойных кавычках: "Any dir" "AppData" и т.д..

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (teadrinker) — Fri, 10 Feb 2023 14:45:21 +0000

Content = "Any dir" "AppData\Local" "AppData\Roaming" "D:\Programs\Notepad++"
List := {}, m := ""
while RegExMatch(Content, "O)(?<="")(?![A-Z]:)[A-Z][^""\\]*", m, m ? m.Pos + m.Len : 1)
   List[m[0]] := ""
str := ""
for k in List
   str .= (str = "" ? "" : " ") . """" . k . """"
MsgBox, % str

Так?

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (humanoid) — Fri, 10 Feb 2023 14:32:38 +0000

teadrinker есть список в одной строке, содержащий path, как в последнем примере. Из него надо исключить все части в кавычках, содержащие "C:\*" "D:\*" и подобные. Затем, если есть, получить корневые директории из оставшихся, содержащие бэкслеш - типа из "AppData\Roaming" получить "AppData", но могут быть и другие. Удалить дубликаты, если будут встречаться два и более раз "AppData" и подобные. И оставшееся вернуть в виде списка корневых директорый (в названии могут быть пробелы) "Dir name 1" "Dir name 2" "AppData" и т.д. ... Сложно все )))
Вообще это директории в 7z архиве, но т.к. нет возможности заглянуть в него без распаковки с помощью AHK, чтобы получить нужные папки для дальнейшей распаковки, использую список с относительными и конкретными путями, который использовался для его упаковки. Если запустить последний пример, будет наглядно видно, что должно получиться...

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (teadrinker) — Fri, 10 Feb 2023 13:19:55 +0000

А как вы формулируете задачу? Что изначально есть и что нужно получить. Я из последнего примера не очень понял.

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (humanoid) — Fri, 10 Feb 2023 11:15:46 +0000

teadrinker у меня слишком заморочисто получилось. Не знаю, пригодится ли кому ...


Content := """Any dir"" ""AppData\Local"" ""AppData\Roaming"" ""D:\Programs\Notepad++"""

For i, str in StrSplit(Content, chr(34) Chr(32) chr(34))
	If (!RegExMatch(str, "i)^\x22?[a-z]:\\.+")){ ; исключить из поиска строки типа "D:\Programs\Notepad++"
		a := RegExReplace(str, "\x22", "") ; удалить оставшиеся "
		b := StrSplit(a, "\").1 ; разделить полученное по "\" и получить первую часть подстроки
		out .= """" b """ " ; формируем выходной список с двойными кавычками и пробелами
		}
		
For i, str in StrSplit(out , Chr(32)), uniques := {}, D := "" ; удалить дубликаты из полученного списка
	If (!uniques.HasKey(str)){
		D .= str Chr(32), uniques[str] := true
		}
		
out := RTrim(D, Chr(32)) ; удалить из списка все пробелы справа
MsgBox % out

Может есть пути проще, чтобы все ЭТО изваять?

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (teadrinker) — Fri, 10 Feb 2023 10:22:33 +0000

Поделиться не хотите?

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (humanoid) — Fri, 10 Feb 2023 08:28:14 +0000

teadrinker спасибо за подсказку. Уже сам понял и все сделал.

Re: AHK: Разделение строки на части без удаления делимитеров

null@example.com (teadrinker) — Fri, 10 Feb 2023 04:44:03 +0000

В цикле через RegExMatch().