将半角转换为中文的函数
点击次数：33 次 发布日期：2008-11-26 15:40:40 作者：源代码网
|
if instr(str,chr(34))<>0 and str<>"" then str_split=split(str,chr(34)) i=1 str_s="" for j=0 to ubound(str_split)-1 if i mod 2 then str_s=str_s&str_split(j)&"“"&str_split(j+1) else str_s=str_s&str_split(j)&"”"&str_split(j+1) end if i=i+1 next end function 源代码网供稿. |
