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

　　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