将半角"转换为中文"的函数

核心提示：function new_str(str)if instr(str,chr(34))<>0 and str<>"" thenstr_split=split(str,chr(34))i=1str_s=""for j=0 to ubound(str_split

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