PB全角和半角字符的转换解决方案.docVIP

PB中全角字符和半角字符之间的转换相关解决方案?? ?一 、?将字符串中的半角字符转换成全角字符 （函数） ? //函数功能：将字符串中的半角字符转换成全角字符 ??? //入口参数：in_str——准备进行转换的半角字符串 ? ? ? 类型string ??? //返回值： ? ? 转换成功的全角字符串 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 类型string ??? string ? c_return= ??? long ? l0,l1,l2,l3,l4,i,c_leng,l_asc ??? i=1 ??? c_leng=len(in_str) ??? do ? while ? i=c_leng ??? ? ? l_asc=asc(in_str) ??? ? ? if ? l_asc=128 ? then ??? ? ? ? ? ? if ? l_asc=33 ? and ? l_asc=126 ? then ??? ? ? ? ? l1=int((l_asc+41856)/(16*16*16)) ??? ? ? l0=mod((l_asc+41856),(16*16*16)) ??? ? ? l2=int(l0/(16*16)) ??? ? ? l0=mod(l0,(16*16)) ??? ? ? l3=int(l0/