Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Преобразование строки для печати штрих-кодов. / 11 сообщений из 11, страница 1 из 1
06.10.2004, 19:25
    #32726851
Kirill E.
Kirill E.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
Такая проблемка. Сегодня весь день потратил на то, чтобы печатать штрих-коды из Fox 2.5. Готового решения не нашел, поэтому обращаюсь за помощью.

Есть шрифт EanP36Tt, с помощью которого формируется штрих-код по стандарту EAN-13, но для каждой из 13 цифр, стоящих в штрих-коде, есть 3 варианта отображения.

Так вот и сам вопрос: необходимо функции передать параметр в виде 13 цифр, и чтоб она вернула буквенно-цифровой код.

Например, штрих-код "3800034951081" -> "&!80AAD4-jfbaib!".
По сути дела необходим разбор строки и замена символов.

При этом необходимо анализировать 1 цифру штрих-кода и каждую из следующих заменять согласно правил.

Может кто-нить хоть намекнет как это делать, а то я в Fox не бельмес, а очень нада.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2004, 19:53
    #32726875
po2
po2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
http://www.bizfonts.com
Там же, адаптированные Владом Гринчишиным функции для обработки различных кодировок: http://www.bizfonts.com/sourcecode/IDAutomation-prg.txt , но все для Visual FoxPro. Немалое количество ссылок находит Google, по фразе barcode foxpro , например:
http://www.hallogram.com/barcodes/bclibry/ ,
http://www.idautomation.com/sitemap/foxpro.html ,
http://www.makebarcode.com/software/dbest.html
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2004, 20:05
    #32726889
Kirill E.
Kirill E.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
Большое спасибо, но я там уже везде был. Это все платно, либо для Visual. А так как я нив обычном не в visual ниче не понимаю, то приведите, пожалуйста, пример, как разобрать и вернуть строку.

Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2004, 23:20
    #32726979
Sergey Ch
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
А самому написать - если есть что откуда и куда?

Код: plaintext
1.
* это пример вызова функции
? reteurn_code('38')

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
* это сама функция
FUNCTION reteurn_code
  PARAMETERS m.lcinputcode
  m.lnleninput=LEN(ALLTRIM(m.lcinputcode))
  m.lcoutputcode=''
  m.lcsymbol_output=''

  FOR i= 1  TO m.lnleninput
    m.lcsymbol_input=SUBSTR(m.lcinputcode,i, 1 )

    DO CASE
    CASE m.lcsymbol_input='3'
      m.lcsymbol_output='&'
    CASE m.lcsymbol_input='8'
      m.lcsymbol_output='!'

* Вот тут все аналогично и перечисляете

    ENDCASE

    m.lcoutputcode=m.lcoutputcode+m.lcsymbol_output
  ENDFOR
  RETURN m.lcoutputcode

Good luck!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2004, 08:53
    #32727163
Vadim H.Hairetdinov
Vadim H.Hairetdinov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
http://www.pisoft.ru/verstak/barfonts.htm
Самое главное, преобразовывать ни чего не надо и бесплатно, проблема одна - при считывании сканером первый символ "*" читается то как "10", иногда "12". Я вышел из положения:отбрасываю первые два символа из считанной строки.

Успехов.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2004, 09:38
    #32727231
Kirill E.
Kirill E.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
Vadim H.Hairetdinovhttp://www.pisoft.ru/verstak/barfonts.htm
Самое главное, преобразовывать ни чего не надо и бесплатно, проблема одна - при считывании сканером первый символ "*" читается то как "10", иногда "12". Я вышел из положения:отбрасываю первые два символа из считанной строки.

Успехов.

Проблема в том, что мне необходимы штрих-коды EAN-13.

"...Код EAN13 использовать уже гораздо сложнее..."

в том-то и дело, что одна цифра может быть представлена одним из 3-х штрихов. Но я с этим разобрался. Мне нужно было просто разобрать строку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2004, 13:00
    #32727863
Urri
Urri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
В простейшем случае так?

return chrtran (InputString,"&!80AAD4-jfbaib!","3800034951081")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2004, 13:01
    #32727868
Urri
Urri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
Простите, это я обратно преобразовал :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.10.2004, 18:08
    #32728652
Kirill E.
Kirill E.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
Большое спасибо всем за помощь.
Решение получилось совсем простое и длинное. Если кому интересно, то берите.

1) Проверяет на то, что код из цифр
2) Проверяет контрольную цифру
3) Перекодирует для печати при помощи фонта EanP36Tt (приложен в архиве)

Удачи!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2004, 10:47
    #32729347
Kirill E.
Kirill E.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
Если бы кто-нибудь распечатал и проверил на настоящем сканере штрих-кодов, я был бы очень благодарен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2004, 18:26
    #32730710
oleg_km
oleg_km
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование строки для печати штрих-кодов.
Попробую в понедельник, правда на лазерном
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Преобразование строки для печати штрих-кодов. / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]