欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

如何正确显示数据库里同时存在的GB码和BIG5码?

程序员文章站 2022-05-03 15:35:23
public function checkbig(strsource as string) as boolean...

public function checkbig(strsource as string) as boolean
dim idx as long
dim bytetemp() as byte
checkbig = false
for idx = 1 to len(strsource)
    bytetemp = strconv(mid(strsource, idx, 1), vbfromunicode)
    if ubound(bytetemp) > 0 then
        if (bytetemp(1) >= 64) and (bytetemp(1) <= 126) then
            checkbig = true
            exit for
        end if
    end if
next idx
end function