一个非常简单的将半角转换为中文的函数
发布时间：2016-12-29 来源：查字典编辑
摘要：复制代码代码如下:functionnew_str(str)ifinstr(str,chr(34))0andstr""thenstr_spli...
复制代码 代码如下:
functionnew_str(str)
ifinstr(str,chr(34))<>0andstr<>""then
str_split=split(str,chr(34))
i=1
str_s=""
forj=0toubound(str_split)-1
ifimod2then
str_s=str_s&str_split(j)&"“"&str_split(j+1)
else
str_s=str_s&str_split(j)&"”"&str_split(j+1)
endif
i=i+1
next
endfunction