excel 128code ttf 编码转换
来源:互联网 发布:正则剔除js和css 编辑:程序博客网 时间:2024/06/06 02:31
--在模块中加入以下函数
Public Function GetCode128B(ByVal STR As String) As String
Dim result As String
Dim checksum As Integer, i_tmp As Integer
Dim checkCode As String '生成验证码
checksum = 104
For i = 1 To Len(STR) Step 1
i_tmp = AscW(Mid(STR, i, 1))
If i_tmp >= 32 Then
checksum = checksum + (i_tmp - 32) * i
Else
checksum = checksum + (i_tmp + 64) * i
End If
Next
checksum = checksum Mod 103
If checksum < 95 Then
checksum = checksum + 32
Else
checksum = checksum + 100
End If
checkCode = ChrW(checksum)
result = ChrW(204) + STR + checkCode + ChrW(206)
GetCode128B = result
End Function
-- 在表格中调用函数转换后,把字段设置为条码字体
阅读全文
0 0
- excel 128code ttf 编码转换
- excel vba 编码转换
- CODE 128 编码
- TTF
- TTF
- 将ttf转换为qpf的方法
- C# 转换TTF为GB2312点阵字库
- PHP编码转换在Excel读取中的作用体现
- 《剑指offer》之Excel列编码转换问题
- 将EXCEL文件转换成utf8编码的csv文件
- EXCEL表格中把汉字转换成unicode编码
- code 128编码中的特殊字符
- Ubuntu中将otf字体转换为ttf字体
- 字符根据字体文件(ttf)转换成字型(glyph)
- Excel文件转换为XML以及Linux文件编码格式转换
- 摩丝编码 Morse Code
- Lookup Code快速编码
- Gray Code 格雷码编码
- c++的初始化列表
- C#基础
- UVA1640 数位统计
- JQuery_九大选择器
- 01. JQuery 选择器与事件
- excel 128code ttf 编码转换
- OCR-光学字符识别之训练Tesseract3字库图文详解
- 宁波市第31届中小学程序设计比赛模拟试题 chicken
- JDK安装过程
- 线索化二叉树
- 02. JQuery 对HTML/CSS的操作
- 二叉树遍历前序遍历
- JQ $.ajax和$.getJson同步异步切换
- pycharm建立vagrant的SFTP连接