站长资源网络编程
一个非常简单的将半角转换为中文的函数
简介复制代码 代码如下: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
复制代码 代码如下:
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
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
上一篇：Jmail发邮件的例子