Сгененрировать 360000 случайных шк - каким инструментом? : Операционные системы и программное обеспечение

Shift · █ 19.09.2019 10:19

Для ean13

Код:

K=123456789012


i=6
ch=0
nch=0

tk=K
while (i>0)
  i=i-1
  ch=ch+(tK-Int(tK/10)*10)
  tK=int(tK/10)
  nch=nch+(tK-Int(tK/10)*10)
  tK=int(tK/10)

wend
ch=ch*3
kc=10-((ch+nch) mod 10)
if (kc=10) then 
  kc=0 
end if
K=K*10+kc

Msgbox K

УКМ_эксплуатант_2 · █ 19.09.2019 13:28

На словах вот что нашел:

Цитата:

Как уже упоминалось выше, в данном коде используется 12 цифр. Последний, 13 знак, является контрольным. Проведем расчет 13 знака:
1. Сначала сложим все цифры, стоящие на четных местах: 1+0+0+0+0+0+1=2
2. Полученную сумму умножим на три: 2х3=6
3. Далее сложим цифры, стоящие на нечетных местах:2+5+0+0+0+0=7
4. Затем сложим полученные цифры в пункта 2 и 3: 6+7=13
5. Отбрасываем десятки, получим 3
6. Наконец, из 10 вычитаем число из п.5 и получаем контрольную сумму: 10-3=7

Кажется, мне придется переделать файл, шоб красиво було...

З.Ы. В прошлый раз прокатило и без этого 13 символа

OlegON · █ 19.09.2019 13:35

Цитата:

УКМ_эксплуатант_2 ➤ В прошлый раз прокатило и без этого 13 символа

Это если это не штрихкод, точнее, не EAN13. Тебе выше пример на васике привели, засобачь его в функцию и вперед по колонке с индексом...

KirillHome · █ 19.09.2019 13:51

Цитата:

OlegON ➤ Кстати, если написал или нашел тут, как делать из индекса штрихкод (контрольку) - выложи? Я что-то не найду.

Давным-давно, в одной далёкой галактике

OlegON · █ 19.09.2019 16:23

Спасибо, но это не то :) Я именно на Excel тоже собирал... Сидел где-то на внедрении и надо было кучу штрихкодов нагенерить для дисконток...