一个非常简单的将半角转换为中文的函数

代码如下: 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_sif i=i+1 next endfunction

作者: 来源: 时间: 17-11-23 15:11:48

代码如下:
function new_str(str)
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
11
22
33
隐藏区块

会员注册

本功能为预留功能,暂不支持注册 ^_^

Login

社交帐号登陆

使用以下任意帐号可登陆本站

Close section
Close

联系我们

关于5UCMS 您有任何需求 均可以留言给我们