/******************************************************************************/ //函数名: gf_GetWordcode //功能说明:返回汉字转换后的区位码 //输入参数:1.as_word :待转换的汉字 //输出参数:无 //返回值: string 转换后的区位码 //函数完成:woods //调用关系:本函数为公共外部函数,可被系统开发的任何地方调用 /******************************************************************************/ long ll_n1,ll_n2 long i,li_wordLen blob lb_jc String ls_WordCode,ls_temp
//如果是字符串,循环转换每个汉字 li_wordLen= len(as_word) for i=1 to li_WordLen ls_temp=mid(as_word,i,2) lb_jc=blob(ls_temp) ll_n1=asc(string(blobmid(lb_jc,1,1)))-160 ll_n2=asc(string(blobmid(lb_jc,2,1)))-160 ls_WordCode=ls_WordCode+string(ll_n1)+string(ll_n2) i=i+1 //每个汉字占2个字符 next
return ls_WordCode