VBS/WSH/JS - [решено] [VBS] Сортировка текстовых строк с учётом директорий

VBS/WSH/JS - [решено] [VBS] Сортировка текстовых строк с учётом директорий

shadowbat

Старожил

Сообщения: 267
Благодарности: 8

Профиль | Отправить PM | Цитировать

Изменения

Автор: shadowbat
Дата: 05-01-2020

Есть текстовые строки (именно строки, а не пути к существующим файлам)

Код:

\F1\1.txt
\F111\2.txt
\f11.txt
\f33.txt
\f22.txt
\F0\3.txt
\F0\1.txt
\F0\2\2.txt
\F1\
\F0\
\F0\2\
\F111\

Если их просто отсортировать по алфавиту, то получится

Код:

\F0\
\F0\1.txt
\F0\2\
\F0\2\2.txt
\F0\3.txt
\f11.txt
\F111\
\F111\2.txt
\F1\
\F1\1.txt
\f22.txt
\f33.txt

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

Код:

\f11.txt
\f22.txt
\f33.txt
\F0\
\F0\1.txt
\F0\3.txt
\F0\2\
\F0\2\2.txt
\F1\
\F1\1.txt
\F111\
\F111\2.txt

либо наоборот, подкаталоги, потом файлы.

Код:

\F0\
\F0\2\
\F0\2\2.txt
\F0\1.txt
\F0\3.txt
\F1\
\F1\1.txt
\F111\
\F111\2.txt
\f11.txt
\f22.txt
\f33.txt

либо любым подобным образом, только не по алфавиту, а по директориям
Как это сделать? есть решение или алгоритм? это должна быть рекурсивная функция? через split("\") ?

Скрытый текст

набросок для переменных

Код:

Dim a(1 To 12)
a(1) = "\F1\1.txt"
a(2) = "\F111\2.txt"
a(3) = "\f11.txt"
a(4) = "\f33.txt"
a(5) = "\f22.txt"
a(6) = "\F0\3.txt"
a(7) = "\F0\1.txt"
a(8) = "\F0\2\2.txt"
a(9) = "\F1\"
a(10) = "\F0\"
a(11) = "\F0\2\"
a(12) = "\F111\"

Отправлено: 14:03, 05-01-2020

shadowbat

Старожил

Сообщения: 267
Благодарности: 8

Профиль | Отправить PM | Цитировать

megaloman,
время работы моментальное
теряется одна строка, нужно заменить For i = 1 To NN на For i = 1 To NN + 1

с этим макросом плавающая ошибка №3 уже не возникает, №1 и №2 также исправлены

сформировать свой файл можно через bat

Код: