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

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