]]>]]>RegExMatch(Content, "O)(?<="")[A-Z](?!:\\)[^""\\]*", m, m ? m.Pos + m.Len : 1)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Так?
]]>
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
Может есть пути проще, чтобы все ЭТО изваять?
]]>