Алфавитно-цифровая сортировка файлов с числами в названии

[Worros]

Worros, http://wincmd.ru/plugring/expander.html - разгрызает имя на слова. Именно для сортировки

Похоже, то что надо. Помнил же, что есть что-то похожее, название забыл
Только как его заставить использовать пробел как разделитель?

[Tol!k]

там исходники на Дельфи и это:

Код: Выделить всё

    sep:=tmpIni.ReadString('Main','Divider','_'); 

//замена _ на пробел и в Expander.lng и в dll-ке не помогла

[Worros]

там исходники на Дельфи и это:

Код: Выделить всё

    sep:=tmpIni.ReadString('Main','Divider','_'); 

//замена _ на пробел и в Expander.lng и в dll-ке не помогла

Угумс. Я пришёл ровно к тому же. И тем же путём. Так неохота разбираться с этих исходником серьёзно Была надежда, что кто-то знает простое "заветное слово", а придётся всё же ковыряться.

Спасибо за помощь.

[Batya]

Была надежда, что кто-то знает простое "заветное слово", а придётся всё же ковыряться.

Есть такое "заветное слово" :

Script_wdx?

Легко:

Код: Выделить всё

'===========================================================================
' Колонка Result3 возвращает имя файла\папки, начиная с заданной позиции
'===========================================================================

'========== Изменяемые параметры ===========================================
StartPos = 3         'Начальная позиция возврата имени
'===========================================================================

Dim FSO
Set FSO  = CreateObject("Scripting.FileSystemObject")
content3 = Result3
Set FSO  = Nothing

Function Result3
  Result3 = Mid(FSO.GetFileName(filename), StartPos)
End Function

Вместо content3 (это у меня такой следующий номер) можешь поставить другой номер колонки (content, content1, ... , content9).

[Lev]

regexp.wdx
regexp.ini

Код: Выделить всё

[Regexp]
rule=-3
[-3]
find="..(.*)"
change="$1"

[Worros]

Большое всем спасибо!
Остановился на последнем варианте (regexp.wdx).