Генерация уникальных кодов

[Sorro]

Необходимо в файле генерировать и вести лог уникальных кодов, которые генерируются по определенному правилу:
xxxx-xxyy-zzzz-zzzz, где
хххххх -порядковый номер увеличивается на 1 с каждым новым кодом, начинается с 000001
yy - всегда 00
zzzzzzzz - случайное число, должно быть уникальным.

Не знаю как проверять на уникальность и соблюдать заданный формат.

[Dophin]

а Вам этот номер как число нужен? если как текст то вот)

не, над переделать


вообщем вот. два варианта накидал)

[Sorro]

О, Спасибо огромное! Это то что нужно!
А теперь пара вопросов, если можно)
Format(CDbl(Replace(Mid(t, 1, 7), "-", "")) + 1, "0000-00")
Как это работает?
И что значат два минуса в
r = --TEMP ?

[Dophin]

кстати замените CDbl на CLng ( в приложении поправлено)

1. берет первые 7 знаков из прошлой ячейки
2. убирает тире
3. преобразует в число (кстати можно и минусами как с TEMP преобразовать)
4. к числу прибавляет единицу
5 преобразует полученное число в текст в формате "0000-0000"

--Temp = преобразует текстовую строку в число.


а вообще проверку на уникальность с предыдущими числами я не сделал) попозже посмотрю


Вообщем вот, проверяйте.

[Sorro]

Спасибо, завтра буду экспериментировать с вашим кодом )

[Sorro]

Do While zztemp = False
        zzt = Round(Rnd() * 100000000, 0)
        zztemp = True
        For i = 2 To ilastrow
            If --Replace(Right(t, 9), "-", "") = zzt Then
                zztemp = False
            End If
        Next i
    Loop

Я так понимаю, в этом цикле сравнивается значение созданого рандомного значения и последних 9изнаков без "-" в последней ячейке. Там ведь должно быть i?

[Dophin]

совершенно верно. обшибся