将半角转换为中文的函数
日期：2011-05-18 浏览次数：21499 次
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
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
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
