Отправлено: 14.11.05 11:23. Заголовок: Алгоритм преобразования в штрих-код

Кто-нибудь занимался этим вопросом? Алгоритм, записанный в скрипте для Excel какой-то непомерно огромный - 20 страниц текста, и к тому же на VB. Может, где-то есть что-то поизящней?

 Отправлено: 14.11.05 13:40. Заголовок: Re:

Почитай и сделай сам ;)
http://www.barcode.kiev.ua/

 Отправлено: 22.11.05 11:09. Заголовок: Re:

Тебе Нужен стандартный EAN13?

 Отправлено: 22.11.05 11:14. Заголовок: Re:

А вообще вот моя ф-ция преобразования в EAN13

function GetMaxEan(nIdNum)
local sEan:="",s1,s2,s3,s4,ei,Check
DEFAULT Prefix TO ""
cEan:=padl(alltrim(str(nIdNum)),12,"0")
s1:=0
for ei:=2 to len(cEan) step 2
s1+=Val(substr(cEan,ei,1))
next
s2:=s1*3
s3:=0
for ei:=1 to len(cEan) step 2
s3+=Val(substr(cEan,ei,1))
next
s4:=s2+s3
Check:=s4
While int(Check/10)*10 != Check
Check++
enddo
cEan+=alltrim(str(Check-s4))
return cEan

За всеми остальными подробностями на сайт указанный Димкой :)
Если интересует то есть ф-ция рисования самого штрих кода писаная под PScript