AkinaЕсли структура именно такая - строго цифры, строго разделённые точками, и если имеется некое ограничение на количество цифр - я бы нарисовал функцию, которая форматирует эти номера в номера с фиксированным количеством ведущих нулей. Типа
1.
2.
3.
4.
5.
6.
7.
8.
9.
const cnt as integer = 10
function myformat(idx as string) as string
arr=split(idx, ".")
for i = lbound(arr) to ubound(arr)
arr(i) = right(string(cnt, '0') & arr(i), cnt)
next i
myformat = join(arr, '.')
end function
И использовал её в запросах для сортировки.
А если попробовать так
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
function myformat(idx as string) as integer
dim mf as string
do while left(idx,1)<>"."
mf= mf & left(idx,1)
idx = right(idx, len(idx)-1)
loop
mf = mf & "."
do while len(idx)<>0
if left(idx,1)="." then go to SkipDot
mf = mf & right(cstr(left(idx,InStr(idx,"."))/1000),4)
idx = right(idx, len(idx)-InStr(idx,"."))
SkipDot:
idx = right(idx, len(idx)-1)
loop
end function
Вообще сейчас это на коленке писал и задумка была круче исполнения, но, если тут ещё чуть-чуть поколдовать оно ведь может и списки а,б,в воспринимать... наверно... если оно вообще работает :D
